- 1
- 2
# mount /var/run or /run (DONTFIXME: obscure black magic)
mount_directory "$timestamp_base_dir" "$chroot_env_root"'/var/run'Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
−122
# mount /var/run or /run (DONTFIXME: obscure black magic)
mount_directory "$timestamp_base_dir" "$chroot_env_root"'/var/run'монтирование /var/run или /run (в зависимости от дистрибутива) в chroot, тоже в /var/run или /run, в зависимости от дистрибутива в chroot
+157
function ru_date($date) {
    $ru_m = array("января","февраля","марта","апреля","мая","июня","июля","августа","сентября","октября","ноября","декабря");
    $el = explode(".",$date);
    for($i=0;$i<12;$i++) if($i+1==str_replace("0","", $el[1])) $el[1] = $ru_m[$i];
    $date = implode(" ", $el);
    return $date;
}функция превращения даты вида 'd.m.Y' в 'd месяц Y'
+104
if (!fragment || !texture)
  {
    return (1); /* Валидность параметров не пройдена. Дальнейшие действия бесмыслены */
  }
  else
  {
    /* Ничего не делать*/
  }Эпичный комментарий, найденный в коде
−97
Private Sub CommandButton1_Click() 'необходимо
    For q = 2 To 500
    For w = 25 To 34
    For e = 3 To 13
        If Лист1.Cells(q, 4) = "Затрачено [...]" Or Лист1.Cells(q, 4) = "Затрачено на [...]" Then
        If Лист1.Cells(q, 7) = Лист11.Cells(w, 1) Then
        If Лист1.Cells(q, 6) = Лист11.Cells(3, e) Then
            Лист11.Cells(w, e) = Лист11.Cells(w, e) + Лист1.Cells(q, 5)
            Rem Лист1.Cells(q, 11) = 151
        End If
        End If
        End If
    Next
    Next
    Next
End Sub
...
TextBox4.Value = CLng(cdop1 * (TextBox15.Value * Лист5.Cells(10, 11)) + cdop2 * (TextBox15.Value * Лист5.Cells(10, 11))) + CLng(TextBox53.Value)
...
Лист1.Cells(a, 45) = TextBox32.Value ' отсрочка
If IsDate(TextBox58.Value) And IsDate(TextBox62.Value) Then
Лист1.Cells(a, 46) = CDate(TextBox62.Value) - CDate(TextBox58.Value) ' прошло дней
End If
Лист1.Cells(a, 47) = TextBox55.Value ' зарплата
Лист1.Cells(a, 48) = TextBox63.Value ' штраф
If CheckBox6.Value = True Then
Лист1.Cells(a, 49) = 1 ' комплект
Else
Лист1.Cells(a, 49) = 0
End If
            Ну и так далее.
Беда, коль пироги начнёт печи сапожник, а макросы писать бухгалтер.
        
−153
SELECT COUNT(*) INTO v_inserted_data FROM f2s.column_map 
WHERE old_id='TYPE='||i.pk_0 AND migration_id='fin95_aral' 
AND fndr_table='R_ALLOWABLE' AND UPPER(NVL(fndr_constraint,'null'))=UPPER('NULL');
            Oracle 10.2 PL/SQL. продакшн код.
Условие поиска NULL убило...
        
−113
CURSOR v_cursor IS
  SELECT
   ...
   NVL(DECODE(record_status,'CURRENT',1,0),'1')       r_grain_ro_1_ins_64,
  ...
            Это в продакшн коде.
Oracle 10.2, PL/SQL
        
+166
void sort(student x[], perech *&py)
     { int l;
       perech t;
       //perech *y;
       py=new perech[n];
       l=1; k=0;
       for(i=0; i<n; i++)
	  { fl=0;
	    for(j=0; j<l; j++)
	       { if((strcmp(x[i].fam,py[j].fam)==0)&&((strcmp(x[i].im,py[j].im)!=0)||(strcmp(x[i].gr,py[j].gr)!=0)))
		   { fl=1;
	    py[j].ng++; break;
		   }
		 if(fl==0) { strcmp(py[l-1].fam,x[i].fam);
			     py[l].ng=1; l++;
			   }
	       }
	  }
       for(i=0; i<(l-1); i++)
	  for(j=i+1; j<l; j++)
	     if(py[i].ng<py[j].ng)
	       { t=py[i];
		 py[i]=py[j];
		 py[j]=py[i];
	       }
       for(i=1; i<l; i++)
	  if(py[0].ng=py[i].ng)
	    k++;
       k++;
       py=new perech[k];
       if(py==NULL) {
		      cout<<"Net pamyati"; getch();
		      k=0; delete []py; return;
		    }
       for(i=0; i<l; i++)
	  py[i]=py[i];
       delete []py;
       cout<<"Perechen' sformirovan:\n";
       getch();
       for(i=0; i<l; i++)
	  cout<<py[i].fam<<" "<<py[i].ng<<endl;
       getch();
     }
void outputFileStudent(perech x[])
     { int l;
       ofstream fout;
       char file[L];
       cout<<"Vvedite imya faila:\n"; cin>>file;
       fout.open(file);
       if(fout.fail()) { cout<<"Error... Press any key for exit";
			 getch(); return;
		       }
       for(i=0; i<l; i++)
	  fout<<x[i].fam<<" "<<x[i].ng<<endl;
       cout<<"File save\n";
       getch();
     }
void outputFileStudentBin(perech y[])
     { ofstream fout;
       char file[L];
       cout<<"Vvedite imya save fila:\n"; cin>>file;
       fout.open(file, ios::binary);
       if(fout.fail()) { cout<<file<<"ne sozdan\n"; getch(); return; }
       fout.write((char *) y, k*sizeof(perech()));
       if(fout.fail()) { cout<<"Oshibka zapisi\n"; getch(); return; }
       cout<<"Perechen save\n";
       getch();
       fout.close();
     }
void inputFileStudentBin(perech *&px)
     { ifstream fin;
       char file[20];
       int l;
       perech t;
       cout<<"Vvedite imya save faila:\n"; cin>>file;
       fin.open(file);
       if(fin.fail()) { cout<<"Error\n"; getch(); return();}
       for(i=0; i<l; i++)
	   fin>>t.fam>>t.ng;
       fin.close();
       if(px!=NULL) delete []px;
       fin.open(file);
       if(fin.fail()) { cout<<"Povtornaya oshibka\n"; getch();
			delete []px; k=0; return; }
       for(i=0; i<k; i++)
	  fin>>px[i].fam>>px[i].ng;
       cout<<"file vveden\n"; getch();
       for(i=0; i<l; i++)
	  cout<<px[i].fam<<" "<<px[i].ng<<endl;
       getch();
       fin.close();
     }
            Новый стажер решил задачу про студентов, вызывая их в компилированном виде из модуля 1С.
Не знал в какой раздел запостить, поэтому пощу в 1С
Вообще-то в 1С своя база.
        
−105
Предлагаю конкурс на лучшую реализацию задачи про стеки.
Язык - bash, python или любой скриптовый.
Номинируются такие стадии
1. Ленивая стека, push - o(n) pop o(1) top o(1) 
2. Забывчивая стека, push - o(1), pop o(1) top o(1), для любого l : len(l)>=n push(l,x) = l
3. Стека-очередь, push переводит стеку в режим очереди, pop переводит в режим стеки. top - O(1)
4. Маразматическая стека, map (push l) (x1,x2,x3,x4) -> [x1, x1, x3, x3] o(n), pop(l) -> (x1,x1,x4) - номер сиротливого брата определяется старшим номером брата
5. Бинарная стека - push o(1) pop o(1) top o(1), sort o(1), shuffle o(log(n))
Номинантам лучших стадий будут достанутся приз
            Главное - не программировать стеку, а показывать всем, как я это делаю.
До второй стадии осталось 22 часа. Второй шаг алгоритма
        
+144
Уж извиняйте, сегодня без говнокода на С++ с геймдева.
Ну, что-то я стал сильно жирный. Пора принимать фери внутриутробно.
Я ухожу, чтобы не толстеть и дальше. It's last day.
Нужно забанить RS-232 c паролем RS и ohlol с паролем ohlol.
Я разлогинился и удалил ящики.
Пожелайте мне удачного пути, да чтоб в двери не застрял. Я Вас всех полюбил, как и С++.
Мне будет Вас всех не хватать, друзья.
Ещё раз извините. До свидания в лучшем месте. Желаю вам всем удачи и хорошего настроения. ^_^
http://www.youtube.com/watch?feature=player_detailpage&v=KUYhqUgg-ig#t=503s+119
class Greeter {
  static var prefix = 'Hello,';
  static greet(name) {
    print('$prefix $name');
  }
}
main() {
  var greeter = new Greeter();
  greeter.greet("govnokod!");
}
            Решил потыкать в Dart (http://www.dartlang.org/), а он мне:
greeter.greet$named is not a function