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

PHP / Говнокод #2420

+162

1
2
3
4
5
6
7
8
9

<?
$str = ""; 
$amp="";
foreach ($p as $i=>$v)
{
         $str .= $amp."$i=$v";
         $amp = "&";
}
?>

xXx_totalwar, 15 Января 2010

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

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

+66.6

1
2
3
4
5
6
7

//Дефайн в некотором хэдере
#define _TAPI(b) do {BOOL _b = (BOOL)(b); if (!b) throw(system_exception(GetLastError())); } while (false);
//...
// И далее такое:
//...
_TAPI (::CreateProcess(0, (LPWSTR)m_process.c_str(), 0, 
				0, FALSE, CREATE_SUSPENDED, 0, 0, &si, &pi));

Мой говнокод, хотя скорее опечатка =), я с такими явлениями уже не раз сталкивался, но все равно в течение получаса не мог понять, почему у меня по два процесса запускается =)))

ISith, 15 Января 2010

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

Perl / Говнокод #2418

−109.5

01
02
03
04
05
06
07
08
09
10

sub title {
    my ($str, $len) = @_;

    while (1) {
        last if substr($str, $len, 1) eq ' ';
        ++$len;
    }

    return substr($str, 0, $len) . "...";
}

аналог Index.

klem4, 15 Января 2010

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

JavaScript / Говнокод #2417

+159.6

1

document.getElementById('myID').disabled = document.getElementById('myCheckbox').checked == false ? true : false;

Это замечательно, тащем-та! =) Досталось в наследство от команды аутсорсеров. =)

Red Son, 15 Января 2010

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

Ruby / Говнокод #2416

−131.4

1

some_variable = (some_condition && some_other_condition) ? true : false

Иногда встречаю ГК подобный этому но реализованный в виде case..when. Еще более впечатляет :)

shine, 15 Января 2010

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

JavaScript / Говнокод #2415

+143.5

1
2
3
4
5

if (data.success) {
     document.location = "/contests/" + $('#contest_id').val() + '/' + $('#composition_type').val() + '/page/1';
}else {
     document.location = "/contests/" + $('#contest_id').val() + '/' + $('#composition_type').val() + '/page/1';
}

Stinkie, 15 Января 2010

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

C# / Говнокод #2414

+144.2

1

if ( strlen(f.ToString()) < 5 )

Проверку булевской переменной.

Говногость, 14 Января 2010

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

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

+126.6

1

<meta млн="" $42="" за="" рынке,="" масличном="" на="" оператора="" украинского="" крупнейшего="" group,="" allseeds="" доли="" контрольной="" приобретении="" о="" соглашение="" подписала="" Украины,="" групп="" агропромышленных="" крупнейших="" из="" одна="" ,="" Групп="" Кернел="" content="" name="description"/>

Говнодвижок слепил описание странички.

condemetrius, 14 Января 2010

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

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

+144.9

01
02
03
04
05
06
07
08
09
10

function ... : Integer;
var
  i:integer;
begin
  Result := 0;
  for i := 1 to ... do
    if bla-bla then
      inc(Result);
  Result := Result;
end;

popa, 14 Января 2010

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

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

−134

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

Процедура СправочникСписокПриВыводеСтроки(Элемент, ОформлениеСтроки, ДанныеСтроки)
	
ТекКвота = ДанныеСтроки.Ссылка;
мЗапросДок = Новый Запрос;
мЗапросДок.Текст = 
"ВЫБРАТЬ
|	ЕСТЬNULL(СУММА(СДотчетТовары.Количество), 0) КАК Количество
|ИЗ
|	Документ.СДотчет.Товары КАК СДотчетТовары
|ГДЕ
|	СДотчетТовары.Ссылка.Проведен = ИСТИНА
|	И СДотчетТовары.КвотаОтчета = &Квота";			
мЗапросДок.УстановитьПараметр("Квота",ТекКвота);
			
Выборка = мЗапросДок.Выполнить().Выбрать();
Выборка.Следующий();
ВДоке = Выборка.Количество;
ОформлениеСтроки.Ячейки.СогласноСД.Значение = ?(ВДоке=0,"",ВДоке);
мЗапросПОС = Новый Запрос;
мЗапросПОС.Текст = 
"ВЫБРАТЬ
|	ЕСТЬNULL(СписаноПоПОСОбороты.КоличествоОборот, 0) КАК Количество
|ИЗ
|	РегистрНакопления.СписаноПоПОС.Обороты(, , , Квота = &Квота) КАК СписаноПоПОСОбороты";

мЗапросПОС.УстановитьПараметр("Квота",ТекКвота);
Выборка = мЗапросПОС.Выполнить().Выбрать();
Выборка.Следующий();
ВПОС = Выборка.Количество;
ОформлениеСтроки.Ячейки.СогласноПОС.Значение = ?(ВПОС=0,"",ВПОС);
			
мЗапросРег = Новый Запрос;

мЗапросРег.Текст = 
"ВЫБРАТЬ
|	ЕСТЬNULL(Квоты.КолВЗаказахПокупателя, 0) КАК КолВЗаказахПокупателя,
|	ЕСТЬNULL(ЗаказПоставщику.КолВЗаказахПоставщику, 0) КАК КолВЗаказахПоставщику
|ИЗ
|	(ВЫБРАТЬ
|		СУММА(ЕСТЬNULL(ЗаказПоставщикуТовары.Количество, 0)) КАК КолВЗаказахПоставщику
|	ИЗ
|		Документ.ЗаказПоставщику.Товары КАК ЗаказПоставщикуТовары
|	ГДЕ
|		ЗаказПоставщикуТовары.КвотаЗаказа = &Квота) КАК ЗаказПоставщику,
|	(ВЫБРАТЬ
|		СУММА(ЕСТЬNULL(КвотыЗаказовПокупателейОстаткиИОбороты.КоличествоПриход, 0)) КАК КолВЗаказахПокупателя
|	ИЗ
|		РегистрНакопления.КвотыЗаказовПокупателей.ОстаткиИОбороты(
|				,
|				,
|				,
|				,
|				Квота = &Квота
|					И ВидКвоты = ЗНАЧЕНИЕ(Перечисление.ВидыКвот.ОтчетнаяКвота)) КАК КвотыЗаказовПокупателейОстаткиИОбороты) КАК Квоты";

			
мЗапросРег.УстановитьПараметр("Квота",ТекКвота);
Выборка = мЗапросРег.Выполнить().Выбрать();
ЕстьВыборка = Выборка.Следующий();
КолВЗаказахПокупателя = ?(не ЕстьВыборка,0,Выборка.КолВЗаказахПокупателя);
КолВЗаказахПоставщику = ?(не ЕстьВыборка,0,Выборка.КолВЗаказахПоставщику);

ОформлениеСтроки.Ячейки.ВЗаказахПокупателя.Значение = КолВЗаказахПокупателя;
ОформлениеСтроки.Ячейки.ВЗаказахПоставщику.Значение = КолВЗаказахПоставщику;

КонецПроцедуры

Чудный справочник, очень быстро открывается и прокручивается. Приходится ждать по 20 секунд)))

KingOfShit, 14 Января 2010

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

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