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

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

В номинации:

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

За время:

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

+125

1
2
3
4
5
6
7
8

: %fib
    ( left right count limit -- result )
    2dup u<= if 2drop swap drop exit then
    1+ 2swap tuck + 2swap recurse ;

: fib
    ( n -- n )
    1 2 0 -rot 2swap %fib ;

Где там ForthGovno?

wvxvw, 03 Августа 2013

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

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

+125

1
2
3

<a class="buy_btn" href="javascript://228;" onclick="$.l_basket_modify(this.href.replace(/\D+/g, ''), 1);">
   <img src="/images/addToBasket.png" alt="Добавить в корзину">
</a>

Сначала привлёк хинт у ссылки при наведении...

Crazyzubr, 02 Августа 2013

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

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

+125

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

slowCallPattern (P: P: P: P: P: P: _) = (fsLit "stg_ap_pppppp", 6)
slowCallPattern (P: P: P: P: P: _) = (fsLit "stg_ap_ppppp", 5)
slowCallPattern (P: P: P: P: _) = (fsLit "stg_ap_pppp", 4)
slowCallPattern (P: P: P: V: _) = (fsLit "stg_ap_pppv", 4)
slowCallPattern (P: P: P: _) = (fsLit "stg_ap_ppp", 3)
slowCallPattern (P: P: V: _) = (fsLit "stg_ap_ppv", 3)
slowCallPattern (P: P: _) = (fsLit "stg_ap_pp", 2)
slowCallPattern (P: V: _) = (fsLit "stg_ap_pv", 2)
slowCallPattern (P: _) = (fsLit "stg_ap_p", 1)
slowCallPattern (V: _) = (fsLit "stg_ap_v", 1)
slowCallPattern (N: _) = (fsLit "stg_ap_n", 1)
slowCallPattern (F: _) = (fsLit "stg_ap_f", 1)
slowCallPattern (D: _) = (fsLit "stg_ap_d", 1)
slowCallPattern (L: _) = (fsLit "stg_ap_l", 1)
slowCallPattern (V16: _) = (fsLit "stg_ap_v16", 1)
slowCallPattern [] = (fsLit "stg_ap_0", 0)

Исходник GHC
https://github.com/ghc/ghc/blob/master/compiler/codeGen/StgCmmArgRep.hs#L120

j123123, 27 Июля 2013

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

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

+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

var colorInfoList = new List<ColorInfo>()
                {
                    new ColorInfo("#000000", "	black", "	Черный"),
                    new ColorInfo("#000080","	navy","	Темно-синий"),
                    new ColorInfo("#00008B","	darkblue","	Темно-голубой"),
                    new ColorInfo("#0000CD","	mediumblue","	Умеренно-голубой"),
                    new ColorInfo("#0000FF","	blue	","Голубой"),
                    new ColorInfo("#006400","	darkgreen","	Темно-зеленый"),
                    new ColorInfo("#008000","	green","	Зеленый"),
                    new ColorInfo("#008080","	teal","	Чайный"),
                    new ColorInfo("#008B8B","	darkcyan","	Темный циан"),
                    new ColorInfo("#00BFFF","	deepskyblue","	Темный небесно-синий"),
                    new ColorInfo("#00CED1","darkturquoise	","Темно-бирюзовый"),
                    new ColorInfo("#00FA9A","	mediumspringgreen","	Умеренный синевато-серый"),
                    new ColorInfo("#00FF00","	lime","	Известковый"),
                    new ColorInfo("#00FFFF","	aqua","	Синий"),
                    new ColorInfo("#2E8B57","	seagreen","	Морской волны"),
                    new ColorInfo("#32CD32","	limegreen","	Зеленовато-известковый"),
                    new ColorInfo("#4B0082","	indigo","	Индиго"),
                    new ColorInfo("#696969","	dimgray","	Тускло-серый"),
                    new ColorInfo("#7CFC00","	lawngreen","	Зеленой травы"),    
                    new ColorInfo("#7FFFD4","	aquamarine","	Аквамарин"),
                    new ColorInfo("#800000","	maroon","	Оранжево-розовый"),
                    new ColorInfo("#808080"," 	gray","	Серый"),
                    new ColorInfo("#8B0000","	darkred","	Темно-красный"),
                    new ColorInfo("#9ACD32","	yellowgreen","	Желто-зеленый"),
                    new ColorInfo("#A52A2A","	brown","	Коричневый")
                };


        public ColorInfo ColorCheck(List<ColorInfo> list, string colorHex)
        {
            for (int i = 0; i < list.Count-1; i++)
            {
                if (String.Compare(list[i].HexInfo, colorHex, StringComparison.Ordinal) <= 0 && String.Compare(list[i + 1].HexInfo, colorHex, StringComparison.Ordinal)>=0)
                    return list[i+1];
            }
            return new ColorInfo();
        }

Определение названия цвета

iofjuupasli, 17 Июля 2013

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

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

+125

1
2
3
4
5
6
7
8
9

wrs(S):-put_char('\"'), wrsi(S).
wrsi([C|S]):-put_char(C), wrsi(S).
wrsi([]):-put_char('\"').
 
wrl(S):-put_char('['), wrli(S), put_char(']').
wrli([C|[O|S]]):-wrs(C), put_char(','), wrli([O|S]).
wrli([C]):-wrs(C).
 
:- wrl(["dog", "cat", "canary"]).

Курю правильные примеры кода на прологе. PrologGovno ждите во всех кинотеатрах страны.
http://ideone.com/L4vIKs
Почему вместо того чтобы пользоваться стандартной функцией вывода списков или строк - автор рекомендует это? Я код правда поправил, а то хаскельных скобок (я уже без них не могу) не было и запятую в конце списка выдавало.

HaskellGovno, 15 Июля 2013

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

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

+125

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

<Target Inputs="@(DeployLabel)" Name="GenericDeploy" Outputs="%(Identity).Dummy">
    <PropertyGroup>
      <TargetFilter>%(DeployLabel.Dir)</TargetFilter>
      <TargetFilterReplaced>$(TargetFilter.Replace('\', ''))</TargetFilterReplaced>
    </PropertyGroup>
    <WriteLinesToFile
        File="$(ProjectDir)tsfiles.txt"
        Condition="$([System.Text.RegularExpressions.Regex]::IsMatch(%(Filter),
                   '$(TargetFilterReplaced)'))"
        Lines="@(TypeScriptCompile -&gt;'&quot;%(fullpath)&quot;', ' ')"
        Overwrite="false" />
    <PropertyGroup>
      <TSFilesFiltered>$([System.IO.File]::ReadAllText($(ProjectDir)tsfiles.txt))</TSFilesFiltered>
      <TSFilesOneLine>$([System.Text.RegularExpressions.Regex]::Replace(
      $(TSFilesFiltered), "[\n\r]+", " "))</TSFilesOneLine>
    </PropertyGroup>
    <Exec Command="tsc --target ES3 -c -d --out $(Deployroot)\foo.js $(TSFilesOneLine)" />
    <Delete Files="$(ProjectDir)tsfiles.txt"/>
  </Target>

Кто не был, тот будет, кто был, тот не забудет.
MSBuild: задача отфильтровать массив из строк. Я за два дня ничего лучшего не придумал.

wvxvw, 07 Июля 2013

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

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

+125

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

[QUOTE]очередной пациэнт с раком мозга. призываю тролей для проведения лоботомии.[/QUOTE]

Это вопрос или утверждение?

Если Вы не уверены, Вам сюда:
[url]http://www.kaschenko.ru/ShMuZ/viewforum.php?f=72&sid=42e3532a0f5c9559bbd57b3b49f40bdb[/url]

Если же уверены, сюда:
[url]http://za-hodi.narod.ru/[/url]

То, что тебе дали в руки банхаммер, еще не значит, что ты бог. Это говорит лишь о том, что админ тебе доверяет.
 А судить о том, оправдываешь ли ты его доверие, можно исходя из того, что общее впечатление от сайта крайне негативно.
 Ваш форум напоминает медленно загнивающее болото. 
Я не увидел тут абсолютно ничего, что бы хоть как то отличало его в лучшую сторону от остальных сайтов-помоек.
 Как говорится, каков поп, таков и приход.

Админ же - вообще уникальная личность. На аве у него написано "Злобный админ". 
Это как бы предполагает издевательство над участниками. Но кто в здравом уме будет регистрироваться, чтобы терпеть издевательства админов?
 Только любители садо-мазо. А что, если мне не нравится садо - мазо? В таком случае, получается, что мне его навязывают. Делайте выводы, товарищи.

Мастер класс нанотроллинга. Меня до сих пор не забанили )

http://forum.boolean.name/showthread.php?p=262357#post262357

Stertor, 01 Июля 2013

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

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

+125

1

Безопасная работа с Tstringlist из потоков

Товарищи, гламурно ли будет создать класс на базе tstringlist и все методы вызывать через criticalsection? Иначе потоки злобно ухмыляясь показывают голый член и грозят меня изнасиловать.

Stertor, 30 Июня 2013

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

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

+125

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

sh-4.1$ make
make[1]: Entering directory `/cygdrive/c/CrossCompiler/binutils-2.8/libiberty'
echo "# !Automatically generated from ./functions.def"\
          "- DO NOT EDIT!" >needed2.awk
grep '^DEFVAR(' < ./functions.def \
         | sed -e '/DEFVAR/s|DEFVAR.\([^,]*\).*|/\1/ { printf "#ifndef NEED_\1\\n#define NEED_\1\\n#endif\\n" }|' \
         >>needed2.awk
grep '^DEFFUNC(' < ./functions.def \
         | sed -e '/DEFFUNC/s|DEFFUNC.\([^,]*\).*|/\1/ { printf "#ifndef NEED_\1\\n#define NEED_\1\\n#endif\\n" }|' \
         >>needed2.awk
gcc -O2 -c -O2 -I. -I./../include -DNEED_sys_siglist -DNEED_basename -DNEED_strsignal ./dummy.c 2>/dev/null
make[1]: *** [dummy.o] Ошибка 1
make[1]: Leaving directory `/cygdrive/c/CrossCompiler/binutils-2.8/libiberty'
make: *** [all-libiberty] Ошибка 2

Угадайте чего оно хочет. Я не знаю (awk есть, если что).

Sh1tM4ker, 12 Июня 2013

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

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

+125

1
2
3
4
5
6
7
8
9

private void goSimpleButton_Click(object sender, EventArgs e)
{
    if (Properties.Settings.Default.username == "edodonova")
    {
        if (MessageBox.Show("Открывать?", "На всякий случай спрашиваем :-)", MessageBoxButtons.YesNo) != DialogResult.Yes)
        {
            return;
        }
    }

someone, 19 Мая 2013

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

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