По колено в коде — Говнокод.ру

Java / Говнокод #12114

+93

1
2
3
4
5
6
7

Float nan=Float.NaN;
new Float(10).compareTo(nan);
//-1
nan.compareTo(nan);
//0
new Float(Float.POSITIVE_INFINITY).compareTo(nan);
//-1. POSITIVE_INFINITY<NAN. LoL

http://ideone.com/9WIo16
Тут некоторые товарищи в соседнем треде предлагали сравнивать объекты через compareTo()==0, если возможно.
Ну и беречься от equals как от огня, если есть Comparable.
А вот к чему это приводит.

3.14159265, 13 Ноября 2012

Комментарии (54)

Куча / Говнокод #12113

+121

1
2
3
4
5
6
7

Поздравляю, дамы и господа, крупнейшая электронная библиотека русских книг lib.rus.ec попала в России под запрет.

    Искомый ip адрес внесен в реестр
    Дата основания для внесения в реестр 05.11.2012
    Номер основания для внесения в реестр 2/2/16482
    Орган, принявший решение о внесении в реестр ФСКН
    Дата внесения в реестр 11.11.2012

zapret-gov.ru

Fatal error: Cannot redeclare get_web_page() (previously declared in /home/u749066976/public_html/parser.php:7) in /home/u749066976/public_html/parser.php on line 35

bot, 13 Ноября 2012

Комментарии (32)

1C / Говнокод #12112

−124

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17

Function	 ms2Str(Миллисекунды) export
	КолВоЧасов=Цел(Миллисекунды/(60*60*1000));
	Остаток=Миллисекунды-КолВоЧасов*60*60*1000;
	КолВоМинут=Цел(Остаток/(60*1000));
	Остаток=Остаток-КолВоМинут*60*1000;
	КолВоСекунд=Цел(Остаток/1000);
	КолВоМиллисекунд=Остаток-КолВоСекунд*1000;
	h=Формат(КолВоЧасов,"ЧЦ=3;ЧН=;ЧВН=")+":";
	if КолВоЧасов=0 then
		 h="";
 endif;	 
   m=Формат(КолВоМинут,"ЧЦ=2;ЧН=;ЧВН=")+":";	 
 if КолВоМинут=0 then
	  m="";
	endif;  
	return h+m+Формат(КолВоСекунд,"ЧЦ=2;ЧН=;ЧВН=")+":"+Формат(КолВоМиллисекунд,"ЧЦ=3;ЧН=;ЧВН=");
endFunction

Перевод время в миллисекундах в строку. Автор: Жуков А.П.

Danik, 13 Ноября 2012

Комментарии (10)

C++ / Говнокод #12111

+24

1

QString("a=%1 b=%2").arg("[%1]").arg("Shit happens")

Вы думаете, что результат будет "a=[%1] b=Shit happens"?
Как бы не так! "a=[Shit happens] b=%2".

Причем эта "фича" вполне документирована. Но документирована она не в самом первом описании arg'а, а только в arg(const QString &a1, const QString &a2), в доку по которому я естественно никогда не заглядывал...

UPD: правильным вариантом будет QString("a=%1 b=%2").arg("[%1]", "Shit happens"), но тогда мы лишаемся поддержки форматирования, да и таким образом можно засунуть максимум 10 аргументов.

bormand, 13 Ноября 2012

Комментарии (5)

1C / Говнокод #12110

−125

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57

procedure setParameters(aq)
 спДекрет= Новый СписокЗначений;
 спДекрет.Добавить(Перечисления.СостоянияРаботникаОрганизации.ОтпускПоБеременностиИРодам);
 спДекрет.Добавить(Перечисления.СостоянияРаботникаОрганизации.ОтпускПоУходуЗаРебенком);
	
	
	aq.setParameter("Дат",КонецДня(НачПериода));
	aq.setParameter("Уволен",Перечисления.ПричиныИзмененияСостояния.Увольнение);
	aq.setParameter("Оклад",Перечисления.СпособыРасчетов.Оклад);
	aq.setParameter("МРП",Перечисления.СпособыРасчетов.КолМРП);
	aq.setParameter("Сумма",Перечисления.СпособыРасчетов.Сумма);
	aq.setParameter("Оклад",Перечисления.СпособыРасчетов.ПроцентОтОклада);
	aq.setParameter("Доход",Перечисления.СпособыРасчетов.ПроцентОтДоходов);
	aq.setParameter("ПодразделениеОрганизации",ПодразделениеОрганизации);
	aq.setParameter("ФизЛицо",Работник);
	aq.setParameter("Должность",Должность);
	aq.setParameter("ВидЗанятости",ВидЗанятости);
	aq.setParameter("ТарифныйРазряд",ТРазряд);
	
	aq.setParameter("ВРЭкология",ВРЭкология);
	
	//Декретники
	aq.setParameter("Декрет",спДекрет);
	//Состояние общее
	aq.setParameter("Состояние",Состояние);
	aq.setParameter("Сост",Состояние1);
endprocedure

procedure setБабло(Тз)
	Тз.Колонки.Добавить("id",new ОписаниеТипов("Строка"));
	Тз.Колонки.Добавить("Размер",new ОписаниеТипов("Число"));
endProcedure

...
	q=new Query;
	q.Текст="                                            //--------------------------------------------бабло
|Select  
|	ПлановыеНачисленияРаботниковОрганизацийСрезПоследнихКон.Размер,
|	ПлановыеНачисленияРаботниковОрганизацийСрезПоследнихКон.ФизЛицо.код id
|from
|	РегистрСведений.ПлановыеНачисленияРаботниковОрганизаций.СрезПоследних(
|			&Дат,
|			ВидРасчета.ЯвляетсяОсновнымНачислением
|				И Размер <> 0) КАК ПлановыеНачисленияРаботниковОрганизацийСрезПоследнихКон
|";
	
	setParameters(q);
	бабло=New ТаблицаЗначений;
	setБабло(бабло);
	rs=q.Выполнить().Выбрать();
	while rs.next() do
			s=бабло.Добавить();
   s.id=rs.id;
   s.Размер=rs.Размер;
enddo;
 бабло.Индексы.Добавить("id"); 
...

Форматирование текста оставил как есть. Автор: Жуков А.П.

Danik, 13 Ноября 2012

Комментарии (40)

C++ / Говнокод #12109

+15

1
2
3
4
5

for(int y=0; y<height; ++y)
{
     for(int x=0; x<width; ++x)
         b[y,x] = a[y,x];
}

LispGovno, 12 Ноября 2012

Комментарии (67)

Си / Говнокод #12108

+136

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41

typedef char C;typedef long I;
typedef struct a{I t,r,d[3],p[2];}*A;
#define P printf
#define R return
#define V1(f) A f(w)A w;
#define V2(f) A f(a,w)A a,w;
#define DO(n,x) {I i=0,_n=(n);for(;i<_n;++i){x;}}
I *ma(n){R(I*)malloc(n*4);}mv(d,s,n)I *d,*s;{DO(n,d[i]=s[i]);}
tr(r,d)I *d;{I z=1;DO(r,z=z*d[i]);R z;}
A ga(t,r,d)I *d;{A z=(A)ma(5+tr(r,d));z->t=t,z->r=r,mv(z->d,d,r);R z;}
V1(iota){I n=*w->p;A z=ga(0,1,&n);DO(n,z->p[i]=i);R z;}
V2(plus){I r=w->r,*d=w->d,n=tr(r,d);A z=ga(0,r,d);
 DO(n,z->p[i]=a->p[i]+w->p[i]);R z;}
V2(from){I r=w->r-1,*d=w->d+1,n=tr(r,d);
 A z=ga(w->t,r,d);mv(z->p,w->p+(n**a->p),n);R z;}
V1(box){A z=ga(1,0,0);*z->p=(I)w;R z;}
V2(cat){I an=tr(a->r,a->d),wn=tr(w->r,w->d),n=an+wn;
 A z=ga(w->t,1,&n);mv(z->p,a->p,an);mv(z->p+an,w->p,wn);R z;}
V2(find){}
V2(rsh){I r=a->r?*a->d:1,n=tr(r,a->p),wn=tr(w->r,w->d);
 A z=ga(w->t,r,a->p);mv(z->p,w->p,wn=n>wn?wn:n);
 if(n-=wn)mv(z->p+wn,z->p,n);R z;}
V1(sha){A z=ga(0,1,&w->r);mv(z->p,w->d,w->r);R z;}
V1(id){R w;}V1(size){A z=ga(0,0,0);*z->p=w->r?*w->d:1;R z;}
pi(i){P("%d ",i);}nl(){P("\n");}
pr(w)A w;{I r=w->r,*d=w->d,n=tr(r,d);DO(r,pi(d[i]));nl();
 if(w->t)DO(n,P("< ");pr(w->p[i]))else DO(n,pi(w->p[i]));nl();}

C vt[]="+{~<#,";
A(*vd[])()={0,plus,from,find,0,rsh,cat},
 (*vm[])()={0,id,size,iota,box,sha,0};
I st[26]; qp(a){R a>='a'&&a<='z';}qv(a){R a<'a';}
A ex(e)I *e;{I a=*e;
 if(qp(a)){if(e[1]=='=')R st[a-'a']=ex(e+2);a= st[ a-'a'];}
 R qv(a)?(*vm[a])(ex(e+1)):e[1]?(*vd[e[1]])(a,ex(e+2)):(A)a;}
noun(c){A z;if(c<'0'||c>'9')R 0;z=ga(0,0,0);*z->p=c-'0';R z;}
verb(c){I i=0;for(;vt[i];)if(vt[i++]==c)R i;R 0;}
I *wd(s)C *s;{I a,n=strlen(s),*e=ma(n+1);C c;
 DO(n,e[i]=(a=noun(c=s[i]))?a:(a=verb(c))?a:c);e[n]=0;R e;}

main(){C s[99];while(gets(s))pr(ex(wd(s)));}

http://www.kuro5hin.org/story/2002/8/30/175531/763

Taken from Roger Hui's An Implementation of J.

One summer weekend in 1989, Arthur Whitney visited Ken Iverson at Kiln Farm and produced — on one page and in one afternoon — an interpreter fragment on the AT&T 3B1 computer. I studied this interpreter for about a week for its organization and programming style; and on Sunday, August 27, 1989, at about four o'clock in the afternoon, wrote the first line of code that became the implementation described in this document.

Arthur's one-page interpreter fragment is as follows:

Read inside for the most beautiful code you have ever seen.

bazhenovc, 12 Ноября 2012

Комментарии (74)

Pascal / Говнокод #12107

+99

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88

Procedure TForm1.CreateObjects(Column, Row: Integer); // Процедура создания кнопок (ячеек).
Var
  i, j, iLeft, iTop, iRow : Integer; // Переменные, отвечающие за расположение ячеек на форме. (Кроме iRow, она содержит номер ячейки по горизонтали.)
  SpeedButton : array of TSpeedButton; // Собственно, сам массив с ячейками.
  cColumn : Char; // Номер ячейки по вертикали.
  iMine : ShortInt; // Дополнительная переменная кол-ва бомб на поле.
BEGIN
{Присваиваем начальные значения переменным. :7:}
  iLeft := 0; // Начальная позиция по горизонтали.
  iTop := 5; // Начальная позиция по вертикали.
  iRow := 1; // Номер ячейки по горизонтали.
  iMine := MineCount; // Кол-во мин на поле.
  cColumn := 'A'; // Номер ячейки по вертикали.
  SetLength(SpeedButton, Row+1); // Массив с ячейками.
{------------------------------------------ :7:}

{Создаём новые списки. :8:}
  FObjectList := TObjectList.Create; // Список с объектами.
  Form2.FMineList := TStringList.Create(); // Список с номерами мин на поле.
{--------------------- :8:}

{Главный цикл создания игрового поля :9:}
  For i := 1 to Column do // Запускаем цикл создания по вертикали.
   Begin
    For j:=1 to Row do // Теперь тоже самое по горизонтали.
     bEgin
       SpeedButton[j] := TSpeedButton.Create(Self); // Создаём очередную ячейку на поле.
       SpeedButton[j].Parent := GamePanel; // Этим параметром указываем, что ячейка принадлежит первой форме.
       SpeedButton[j].Top := iTop; // Задаём расположение ячейки по вертикали.
       SpeedButton[j].Name := cColumn + IntToStr(iRow); // Задаём имя ячейки.
       SpeedButton[j].Flat := True; // Используем св-во кнопок не отображаться на рисунке.
       SpeedButton[j].Font.Color := clBlue; // Делаем цвет текста синим.
       SpeedButton[j].Font.Style := [fsBold]; // Делаем шрифт жирным.
       SpeedButton[j].OnClick := SpeedButton1.OnClick; // Указываем, какая процедура будет вызываться при клике на ячейку.
       SpeedButton[j].OnMouseDown := SpeedButton1.OnMouseDown; // Указываем, какая процедура будет вызываться при нажатии на ячейку.
       SpeedButton[j].Left := iLeft+8; // Задаём расположение ячейки по горизонтали, смещая её на 8 пикселей вправо.
       {Устанавливаем бомбу в ячейку. :10:}
         If (iMine <> 0) and (SpeedButton[j].Name <> 'A1') then // Если кол-во бомб не превышено, то...
          beGin
           Randomize; // Генерируем список ПСЧ.
           SpeedButton[j].Tag := Random(2); // Случайным образом задаём, будет ли бомба находится в ячейке.
           If SpeedButton[j].Tag = 1 then
            begin
             Form2.FMineList.Add(SpeedButton[j].Name); // Добавляем новую запись в массив бомб.
             Dec(iMine); // Уменьшаем счетчик мин на единицу.
            end;
          enD;
       {----------------------------- :10:}
         FObjectList.Add(SpeedButton[j]);// Добавляем новую запись в массив ячеек.
         iLeft := iLeft + 24; //Увеличиваем расстояние между ячейками.
         If iRow = Row then iRow := 1 // Если номер следующей ячейки по горизонтали неправильный, то меняем его на 1.
          Else Inc(iRow); // Иначе увеличиваем номер.
     eNd;
    cColumn := Char(Ord(cColumn) + 1); // Увеличиваем номер ячейки по вертикали.
    iTop := iTop + 24; // Увеличиваем положение ячейки по вертикали.
    iLeft := 0; // Обнуляем позицию ячейки по горизонтали.
   End;
{----------------------------------- :9:}

  ImageList1.GetBitmap(0, (FindComponent('A1') as TSpeedButton).Glyph); // Загружаем спрайт в первую ячейку.
  Form2.FMineList.SaveToFile('OUTPUT.TXT'); // Сохраняем расположение мин в файл.
  MineCountLabel.Caption := IntToStr(Form2.FMineList.Count); // Показываем колво мин на поле.
END;

Function TForm1.CheckMove(X,Y : ShortString): Boolean; // Функция проверки валидности ячейки. Она должна находится рядом с текущей.
Var
 iXod, iAlf : Integer; // Вспомогательные переменные.
BEGIN
 result := false; // Презумпция вины :)
 iXod := Abs(StrToInt(Y) - StrToInt(dPos.yInt)); // Получаем расстояние до текущей ячейки по горизонтали.
 iAlf := Abs(Ord(dPos.xChr) - Ord(X[1])); // Получаем расстояние до текущей ячейки по вертикали.
 If ((iXod <= 1) and (iAlf <= 1)) and ((iXod <> 0) or (iAlf <> 0)) then result := true; // И если оно не больше одного, то разрешаем ход.
END;

Procedure TForm1.SpeedButton1Click(Sender: TObject); // Главная процедура нажатия на кнопку(ячейку).
Var
  i : Integer; // Счётчик цикла.
  cObject : TSpeedButton; // Сам объект.
  Str, j : String; // Вспомогательная переменная имени ячейки.
  Count : Integer; // Вспомогательная переменная. (стр. 160)
BEGIN
{Подготавливаем переменные :1:}
  cObject := TSpeedButton(Sender); // Получаем ячейку, на которую кликнули.
  Str := cObject.Name; // Присваиваем вспомогательной переменной имя задействованной ячейки.
  dClick.xAlf := Str[1]; // Присваиваем переменной первый символ задействованной ячейки по вертикали.
  dClick.yFlt := Copy(Str, 2, Length(Str)); // Получаем номер ячейки по горизонтали.
{------------------------- :1:}
...

По просьбам желающих. Код некогда созданной мною игрушки Сапёр. Отдельный прикол, это как потом все эти кнопки удаляются.

Govnocoder#0xFF, 12 Ноября 2012

Комментарии (149)

C++ / Говнокод #12106

+16

1
2
3

struct WideParams
{
    WideParams(size_t CountParameters...):

Посоны, это бомба. Вот что я обнаружил в проекте.

LispGovno, 12 Ноября 2012

Комментарии (62)

Куча / Говнокод #12105

+127

1
2
3
4
5

if(Normal(Pawn.Acceleration) Dot Vect(1,0,0) > 0)
      {
         tempRot.Yaw = 0;
         Pawn.SetRotation(tempRot);
      }

Из туториала по UDK. Почему просто не написать Pawn.Acceleration > 0 ?

tirinox, 12 Ноября 2012

Комментарии (23)

Говнокод: по колено в коде.