1. Pascal / Говнокод #1122

    +93.9

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    SetTime(0,0,0,0);  {засекаем время, т.е. устанавливаем системное время равным
                        0 ч 0 мин 0.00 сек   }
    {NumDist - число расматриваемых расстояний
    i - индекс элемента массива расстояний,
    количество групп всегда равно расстоянию d,
    CurGroup - номер сортируемой группы}
    For i:=1 to NumDist do
      begin
        d:=dist[i];
        For CurGroup:=1 to d do
          InsertSort(d,CurGroup);
      end;
    GetTime(hour,minute,second,hund);   {Получаем время сортировки}

    Говнокод для измерения времени работы алгоритма.
    Источник - http://ru.wikipedia.org/wiki/%D0%A1%D0%BE%D1%80%D1%82%D0%B8%D1%80%D0% BE%D0%B2%D0%BA%D0%B0_%D0%A8%D0%B5%D0%BB% D0%BB%D0%B0

    В лучших индусских традициях, виват!

    guest, 01 Июня 2009

    Комментарии (5)
  2. JavaScript / Говнокод #1121

    +150

    1. 1
    2. 2
    // генерация области отображения команд "все снять" и "все починить"
    function update_vse_snyat_ili_po4init_div() {

    в продолжение предыдущего поста)) Ололо!!

    guest, 01 Июня 2009

    Комментарии (0)
  3. JavaScript / Говнокод #1120

    +148

    1. 1
    2. 2
    3. 3
    // обновление полей бонуса вещей
    function update_bonus_ves4ey_fileds() {
    ...

    одна из онлайновы игрушек, заголовок функции

    guest, 01 Июня 2009

    Комментарии (0)
  4. C++ / Говнокод #1119

    +22

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    int ololo = 0;
    int neololo = 0;
    for (ololo=0;ololo=10000;ololo++)
    {
    /*snip*/
    }

    Ололо! =)

    guest, 01 Июня 2009

    Комментарии (0)
  5. PHP / Говнокод #1118

    +62.5

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    9. 9
    require_once ("lib/bsyscall.inc");
    require_once ("lib/page.inc");
    
    	push		( "hello" );
    	push		( new Page() );
    	pop		( $r );
    	pop		($t);
    	page_init	($r, $t);
    	push		( $r );

    Не говнокод, но поржать можно.
    Запускал. Реально создает страницу:)

    guest, 01 Июня 2009

    Комментарии (6)
  6. Си / Говнокод #1117

    +144

    1. 1
    if (!strcmp(buf, "stuff"))

    Анекдот на сях в одну строчку.

    guest, 01 Июня 2009

    Комментарии (9)
  7. PHP / Говнокод #1116

    +144.1

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    9. 9
    $query = "SELECT `parent_id` FROM `items` WHERE `id`='".$_GET['id']."'";
    $result = mysql_query($query);
    $result = mysql_fetch_assoc($result);
    $parent_id = $result[0]['parent_id']
    
    $query = "SELECT `id` FROM `catalog` WHERE `id`='".$parent_id."'";
    $result = mysql_query($query);
    $result = mysql_fetch_assoc($result);
    $catalog_id = $result[0]['id']

    Кто-нибудь мне объяснит нахрена здесь второй цикл?

    guest, 31 Мая 2009

    Комментарии (14)
  8. C++ / Говнокод #1115

    −21.1

    1. 1
    2. 2
    const bool b = false ? true ? false ? true : false : true : false;
    cout << b;

    Студенческая лаба

    guest, 31 Мая 2009

    Комментарии (4)
  9. Си / Говнокод #1114

    +131.2

    1. 1
    WCHAR szSLASHSTARDOTSTAR[] = TEXT("\\*");  /* This is a single "\"  */

    Из убежавших исходников Widnows 2000,
    win2k\private\ntos\w32\ntuser\client\clg lobal.c

    guest, 31 Мая 2009

    Комментарии (2)
  10. Pascal / Говнокод #1113

    +153

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    program Drink;
     
    {$APPTYPE CONSOLE}
     
    uses
      SysUtils,
      Windows;
    
    const
      C: array[0..5] of Cardinal = ($64AABAB8, $54AAA288, $54AB3A90, $54AAAAA0, $563ABBB8,$60820000);
     
    var
      I: Byte;
      B: PByte;
    begin
      for I := 191 downto 0 do
      begin
        B := @C[I div 32];
        Inc(B, (I - (I div 32) * 32) div 8);
        if (B^ and (1 shl (I mod 8))) <> 0 then
          Write('X')
        else
          Write(' ');
        if (I mod 32) = 0 then
          Writeln('');
      end;
      ReadLn;
    end.

    guest, 31 Мая 2009

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