Лучший говнокод за всё время

Лучший говнокод

В номинации:

Лучший рейтинг
Самый комментируемый

За время:

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

−80

1

Если Найти(Строка(ТипЗнч(Ссылка)),"Документ") Тогда

Проверка, является ли переданная ссылка документом. Сегодня без авторства.

ilya2184, 05 Июня 2013

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

Haskell / Говнокод #12262

−85

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

by :: Int -> [a] -> [[a]]
by _ [] = []
by n xs = take n xs: by n (drop n xs)
 
words2 :: String -> (String, String)
words2 str = conc $ words str where
    conc (x:xs) = (x, concat xs)
 
groupTemplates :: String -> [(String, String)]
groupTemplates xs = map (words2) (lines xs)
 
decodeOne :: String -> [(String, String)] -> String
decodeOne _ [] = ""
decodeOne str (x:xs) | str == fst x = fst x ++ " " ++ snd x ++ "\n"
decodeOne str (_:xs) = decodeOne str xs
 
decode :: [String] -> [(String, String)] -> String
decode bs ts = concat $ map (\b -> decodeOne b ts) bs
 
main = do
    bits      <- readFile "bits.txt"
    templates <- readFile "templates.txt"
 
    writeFile "out.txt" $ decode (by 4 bits) (groupTemplates templates)

http://www.cyberforum.ru/haskell/thread723767.html

Fai, 09 Декабря 2012

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

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

+46

1

for($i=0;$i<=100;$i++)echo(!$i?$i:($i%3==0&&$i%5==0?'FizzBuzz':($i%3==0?'Fizz':($i%5==0?'Buzz':$i)))).'<br>';

FizzBuzz - мое решение.

pkot, 20 Ноября 2012

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

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# / Говнокод #11989

+141

1
2
3
4
5
6
7
8

public sealed class CustomProvider
{
     private readonly object _SyncRoot = new object();
 
    public CustomProvider()
    {
             lock(_SyncRoot)
             {

А вообще, если честно, создание экземпляра класса предка (object) всех классов, чтобы произвести захват критической секции - это так печально. Одному мне эта техника кажется удобной, но странной? Нет чтобы создать класс CriticalSection или что-то такое. А они создают объект совсем не связанный с синхронизацией. Не самодокументированно и тут явно какая-то переголова скрывается при создании объекта, по затратам памяти и системных ресурсов, что в каждый объект на уровне имплементации языка приходится по критической секции добавлять.
Кстати, там как реализована эта критическая секция? Хендл этой критической секции фактически системный ресурс и для него по идеи нужно вызывать Dispose, но это не происходит. Тогда почему этих системных хендлов критической секции хватает, хотя ситуация без Dispose похожа на утечку системных ресурсов?

Если кто подумал про lock(this), то это плохо с точки зрения проектирования класса и его последующего использования, поэтому идея с private _SyncRoot - это правильно. Ведь lock(this) (под this в последнем случае имеется данный экземпляр класса), может использоваться и снаружи класса, что может быть пересинхронизацией.

HaskellGovno, 24 Октября 2012

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

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

+125

1
2
3

Сайт оптимизирован под 
браузер GooGle Chrome
Разрешение: 1280х1024

http://anidream.net/

zim, 04 Августа 2012

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

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

+62

01
02
03
04
05
06
07
08
09
10

$ar = array(5050,5370,6285,48100,6730,6730,4700,6500,3450,7260,2500,1370,4288,9620);
	
$cpr = 0;
	
foreach($ar as $k=>$v)
{
	$cpr += $v;
}

echo $cpr;

Нестандартность мышления в действии

domaster, 20 Июля 2012

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

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

+119

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

/**
 * Imbues the given {@link Font} with support for fallback fonts,
 * needed to display CJK characters in fonts that do not support them.
 * 
 * This is an ugly mess that depends on internal Sun APIs. Use sparingly!
 *
 * @param font the font
 * @return the composite font UI resource
 */
public static FontUIResource getCompositeFontUIResource(final Font font) {
	try {
		Class<?> klass;
		
		try {
			// Java 7
			klass = Class.forName("sun.font.FontUtilities");
		} catch (final ClassNotFoundException e) {
			// Java 6
			klass = Class.forName("sun.font.FontManager");
		}
		
		// Invoke static method that wraps the font
		val method = klass.getMethod("getCompositeFontUIResource", Font.class);
		return (FontUIResource) method.invoke(null, font);
	} catch (final ClassNotFoundException e) {
		// Long block of catches that cannot happen on a Sun JRE
		throw new AssertionError(e);
	} catch (final IllegalAccessException e) {
		throw new AssertionError(e);
	} catch (final IllegalArgumentException e) {
		throw new AssertionError(e);
	} catch (final InvocationTargetException e) {
		throw new AssertionError(e);
	} catch (final NoSuchMethodException e) {
		throw new AssertionError(e);
	} catch (final SecurityException e) {
		throw new AssertionError(e);
	}
}

someone, 10 Июля 2012

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

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

−117

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

Если Номенклатура1 <> Номенклатура2 Тогда
Запрос=Новый Запрос("ВЫБРАТЬ
|РаспределениеМатериаловПоМенеджерам.ЗаявкаНаМатериалы,
|РаспределениеМатериаловПоМенеджерам.Материал
|ИЗ
|РегистрСведений.РаспределениеМатериаловПоМенеджерам КАК РаспределениеМатериаловПоМенеджерам
|ГДЕ
|РаспределениеМатериаловПоМенеджерам.Материал = &Материал");
Запрос.УстановитьПараметр("Материал",Номенклатура1);
Выборка=Запрос.Выполнить().Выбрать();
Пока Выборка.Следующий() Цикл
МЗСтарой=РегистрыСведений.РаспределениеМатериаловПоМенеджерам.СоздатьМенеджерЗаписи();
МЗСтарой.ЗаявкаНаМатериалы=Выборка.ЗаявкаНаМатериалы;
МЗСтарой.Материал=Номенклатура2;
МЗСтарой.Прочитать();
МЗНовой=РегистрыСведений.РаспределениеМатериаловПоМенеджерам.СоздатьМенеджерЗаписи();
МЗНовой.ЗаявкаНаМатериалы=Выборка.ЗаявкаНаМатериалы;
МЗНовой.Материал=Выборка.Материал;
МЗНовой.Прочитать();
Если МЗСтарой.Выбран() тогда
МЗНовой.Удалить();
Иначе
МЗНовой.Материал=Номенклатура2;
МЗНовой.Записать(Истина);
КонецЕсли;
КонецЦикла;
КонецЕсли;

Вот такой код сделан был франчем, который потребовал за это еще и 3 часа оплаты)))) Одно только непонятно почему при обращении к регистру нельзя было использовать отбор это же гораздо проще и быстрее и кода меньше

dart, 14 Июня 2012

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

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