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

    В номинации:
    За время:
  2. Java / Говнокод #4908

    +85

    1. 1
    while (r == BigInteger.ONE.subtract(BigInteger.ONE)) {...}

    брутальный 0 и не менее брутальное сравнение объектов...

    dfn, 12 Декабря 2010

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

    +85

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    if( str.substring(0,3).equals("110")){
                   //restarting client
                   c.close();
                   Thread.sleep(100);
                   main(args);
                   System.gc();
                   System.exit(1);
               }

    Brutal restart

    maltozzi, 07 Декабря 2010

    Комментарии (22)
  4. Куча / Говнокод #4117

    +85

    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
    А я люблю вставлять в свои проекты несвежий говнокод и потом с ним ебатся. 
    Каждый день я лажу по Сети и сохраняю на черную флешку все говнокоды которые вижу.
     Потом распечатываю. На два полных листка целый день уходит. 
    Зато, когда после тяжёлого дня я прихожу домой, иду на говнокод, 
    жму Наговнокодить!...ммм и постю туда свое сокровище. И говнокодю, представляя, 
    что меня поглотил единый организм говнокод. 
    Мне вообще кажется, что авторы говнокодов, не умеют думать. 
    Не рефакторите их, не удаляйте, лучше приютите их на Говнокоде, говорите о них, 
    обсуждайте их.... А вчера приснился чудный сон, как будто я зашел в проект,и он 
    прератился в говнокод, классы, переменные, методы, все - говнокод, даже С++, даже Страйкер!
    
    #define pi 3.14159265;
    author= (c) pi+vo[1];

    как-то седня скучно на говнокоде - его полностью окупировало похапе
    вношу свежую струю

    3.14159265, 27 Августа 2010

    Комментарии (40)
  5. Pascal / Говнокод #3476

    +85

    1. 001
    2. 002
    3. 003
    4. 004
    5. 005
    6. 006
    7. 007
    8. 008
    9. 009
    10. 010
    11. 011
    12. 012
    13. 013
    14. 014
    15. 015
    16. 016
    17. 017
    18. 018
    19. 019
    20. 020
    21. 021
    22. 022
    23. 023
    24. 024
    25. 025
    26. 026
    27. 027
    28. 028
    29. 029
    30. 030
    31. 031
    32. 032
    33. 033
    34. 034
    35. 035
    36. 036
    37. 037
    38. 038
    39. 039
    40. 040
    41. 041
    42. 042
    43. 043
    44. 044
    45. 045
    46. 046
    47. 047
    48. 048
    49. 049
    50. 050
    51. 051
    52. 052
    53. 053
    54. 054
    55. 055
    56. 056
    57. 057
    58. 058
    59. 059
    60. 060
    61. 061
    62. 062
    63. 063
    64. 064
    65. 065
    66. 066
    67. 067
    68. 068
    69. 069
    70. 070
    71. 071
    72. 072
    73. 073
    74. 074
    75. 075
    76. 076
    77. 077
    78. 078
    79. 079
    80. 080
    81. 081
    82. 082
    83. 083
    84. 084
    85. 085
    86. 086
    87. 087
    88. 088
    89. 089
    90. 090
    91. 091
    92. 092
    93. 093
    94. 094
    95. 095
    96. 096
    97. 097
    98. 098
    99. 099
    100. 100
    program Project2;
    
    {$APPTYPE CONSOLE}
    
    {#1.Ввести последовательность натуральных чисел. Если в последовательности есть
    простые числа, упорядочить последовательность по неубыванию суммы цифр.
    В противном случае удалить из последовательности числа с нечетным количеством
    цифр и продублировать 4-хзначные числа. Последовательность хранить в
    односвязном списке. Перед завершением программы очистить динамическую память с
    помощью процедуры Dispose.}
    
    uses
      SysUtils;
    
    type
      adres=^Element;
      element=
               RECORD
      body:integer; next:adres; end;
    
    Var n,i:integer;
        dub,nov,t,first,p,p0:adres;
        pred:adres;
        a:integer;
        pr:boolean;
    
    
        function sum(a:integer):integer;
        var i,s:integer;
        begin
        s:=0;
        while a<>0 do begin
        inc(s,a mod 10);
        a:=a div 10;
        end;
        sum:=s;
        end;
    
    
    
     function prostoe(a:integer):boolean;
     var i:integer;
     p:boolean;
     begin
     a:=abs(a);
     p:=true;
     for i:=2 to trunc(sqrt(a)) do
     if a mod i=0 then begin p:=false; break;  end;
     prostoe:=p;
     if a=1 then prostoe:=false;
     end;
    
    
    
    BEGIN
     pr:=false;
     reset(input,'input.txt');
     rewrite(output,'output.txt');
     first:=NIL;
     while not seekeof do begin
     read(a);
     new(p);
     p^.body:=a;
     if first=nil then first:=p else p0^.next:=p;
     p0:=p;
     end;
    
     p:=first;
     while p<>nil do begin
     if prostoe(p^.body)  then pr:=true;
     p:=p^.next;
     end;
    
    if not pr then begin
      p:=first;
    if (length(inttostr(p.body)) mod 2<>0) then first:=p.next;
      p:=first;
    while p<>nil do
    begin
    if (p.next <> nil) and (length(inttostr(p.next^.body)) mod 2<>0) then
    begin
    T:=p.next;
    p.next:=T.next;
    Dispose(T);
    end
    else p:=p.next;
    end;
    
    
      p:=first;
    while p<>nil do
    begin
    if (p <> nil) and (length(inttostr(p.body))=4) then
          begin
            new(dub);
            dub.body:=p.body;
            dub.next:=p.next;
            p.next:=dub;
    p:=p.next.next;
          end

    basic, 14 Июня 2010

    Комментарии (37)
  6. Pascal / Говнокод #3097

    +85

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    destructor TKLCWinFrame.Destroy;
    begin
      asm
        nop;
      end;
      inherited;
    end;

    StriderMan, 23 Апреля 2010

    Комментарии (29)
  7. Pascal / Говнокод #1664

    +85

    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
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    60. 60
    61. 61
    62. 62
    63. 63
    64. 64
    65. 65
    66. 66
    67. 67
    68. 68
    69. 69
    70. 70
    71. 71
    72. 72
    73. 73
    74. 74
    75. 75
    76. 76
    pocedure TForm1.line(x, y, N: integer; l: real; d: boolean);
    var
      x1,x2,x3,x4,y1,y2,y3,y4: integer;
      begin
        if l>2 then
          begin
              if d then
                case N  of
                  1: begin
                        x1:=x; y1:=y;
                        x2:=x1; y2:=y1-round(1);
                        x3:=x1+round(1); y3:=y1-round(1);
                        x4:=x1+round(1); y4:=y1;
                  end;
                  2: begin
                        x2:=x; y2:=y;
                        x1:=x2; y1:=y2+round(1);
                        x3:=x2+Round(1); y3:=y2;
                        x4:=x2+Round(1); y4:=y2+round(1);
                     end;
                  3: begin
                        x3:=x; y3:=y;
                        x1:=x3-round(1); y1:=y3+round(1);
                        x2:=x3-round(1); y2:=y3;
                        x4:=x2+round(1); y4:=y2+round(1);
    
                  end;
                  4: begin
                  x4:=x; y4:=y;
                  x1:=x4-round(1); y1:=y4;
                  x2:=x4-round(1); y2:=y4-round(1);
                  x3:=x4; y3:=y4-round(1);
                  end;
                end
                else
                 case N  of
                  1: begin
                        x1:=x; y1:=y;
                        x2:=x1; y2:=y1+round(1);
                        x3:=x1+round(1); y3:=y1+round(1);
                        x4:=x1+round(1); y4:=y1;
                  end;
                  2: begin
                        x2:=x; y2:=y;
                        x1:=x2; y1:=y2-round(1);
                        x3:=x2-Round(1); y3:=y2;
                        x4:=x2-Round(1); y4:=y2-round(1);
                     end;
                  3: begin
                        x3:=x; y3:=y;
                        x1:=x3+round(1); y1:=y3-round(1);
                        x2:=x3+round(1); y2:=y3;
                        x4:=x2-round(1); y4:=y2-round(1);
    
                  end;
                  4: begin
                  x4:=x; y4:=y;
                  x1:=x4+round(1); y1:=y4;
                  x2:=x4+round(1); y2:=y4+round(1);
                  x3:=x4; y3:=y4+round(1);
                  end;
                end;
                with Canvas do
                  begin
                    Pen.Color :=RGB(Random(256),Random(256),Random(256));
                    MoveTo(x1,y1);
                    LineTo(x2,y2);
                    LineTo(x3,y3);
                    LineTo(x4,y4);
                    LineTo(x1,y1);
                    Brush.Color:=Pen.Color;
                    FloodFill((x2+x3) div 2, (y2+y1) div 2, Pen.Color,fsBorder);
                    if l=200 then line (x1,y1,1,1/2, not d);
                    if n<>1 then line (x1,y1,1,1/2, not d);
                    if n<>2 then line (x2,y2,2,1/2, not d);
                    if n<>3 then line (x3,y3,3,1/2, not d);

    угадайте...:D

    ChakuZa, 24 Августа 2009

    Комментарии (7)
  8. Pascal / Говнокод #2111

    +84.7

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    const
       found=true;
       false=true;
    //лжи нет, да будет только правда....
    .....

    препод долго немог понять как программа вообще работает
    %DarkSvesh

    darksvesh, 07 Ноября 2009

    Комментарии (13)
  9. Куча / Говнокод #1835

    +84.7

    1. 1
    2. 2
    3. 3
    01001000 01100001 01110000 01110000 01111001 00100000 01010000 01110010 01101111 01100111 01110010 01100001 01101101 01101101 01100101 01110010 00100111 01110011 00100000 01000100 01100001 01111001 00100001
    
    01001101 01100001 01101011 01100101 00100000 01100111 01101111 01101111 01100100 00100000 01100011 01101111 01100100 01100101 00101100 00100000 01101110 01101111 01110100 00100000 01110111 01100001 01110010 00100001 00100000 00111011 00101001

    13/09/2009
    gratz!

    striker, 13 Сентября 2009

    Комментарии (23)
  10. Java / Говнокод #2593

    +84.4

    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
    public class Pair
      {
          private Object first;
          private Object second;
          private Object third;
    
          public Pair() { }
          public Pair( Object first, Object second, Object third )
          {
              this.first  = first;
              this.second  = second;
              this.third  = third;
          }
    
          public Object getFirst()  { return first; }
          public Object getSecond() { return second; }
          public Object getThird()  { return third; }
    
          public void setFirst( Object first  )  { this.first  = first; }
          public void setSecond( Object second ) { this.second  = second; }
          public void setThird( Object third  )  { this.third  = third; }
      }

    Что-то здесь не так...

    gvsmirnov, 11 Февраля 2010

    Комментарии (11)
  11. Java / Говнокод #17995

    +84

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    public static int getNumber() {
        try {
            return 7;
        } finally {
            return 43;
        }
    }

    Оказывается так делать можно...

    Qwertiy, 14 Апреля 2015

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