1. Куча / Говнокод #10067

    +90

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    * {
  display: block;
  padding: 0;
  margin: 0;
}

    напомнил www.govnokod.ru/10060

    я понял, что перестарался с таким reset.css, когда мне броузер с готовностью отобразил и title, и скрипты.

    я и не думал, что браузер обращает на них внимание.

    Lure Of Chaos, 28 Апреля 2012

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

  2. Куча / Говнокод #10059

    +111

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    ul.conference-menu > li:first-child:hover
{
    /* Люди мы не местные, есть нам нечего */
    padding-left: 0px;
    padding-right: 0px;
    margin-right: 5px;
    margin-left: 18px;
}

    varg242, 27 Апреля 2012

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

  3. Куча / Говнокод #10040

    +99

    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
    import Text.Parsec
import Control.Monad

romanToArabic :: String -> Either ParseError Integer
romanToArabic = parse (genParser (Nothing : Nothing : map Just romans)) "" where

    romans = [('M', 1000), ('D', 500), ('C', 100),
              ('L', 50), ('X', 10), ('V', 5), ('I', 1)]

    genParser [_] = eof >> return 0
    genParser (ten : five : one : rest) = state1 where

        state1 = choice [on one state2, on five state3, next]
        state2 = choice [on (sub2 five one) next, on (sub2 ten one) next,
                         on one state5, next]
        state3 = choice [on one state4, next]
        state4 = choice [on one state5, next]
        state5 = choice [on one next, next]
        next = genParser (one : rest)

        on Nothing _ = fail ""
        on (Just (ch, val)) nextNode = char ch >> nextNode >>= return . (+val)

        sub2 = liftM2 $ \(ch1, val1) (ch2, val2) -> (ch1, val1-2*val2)

    Кучка в ответ на http://govnokod.ru/9995#comment136058

    > с другой стороны раз хаскель, то хотелось бы, например:
    > *Main> romanToArabic "LC"
    > Left (line 1, column 2):
    > unexpected 'C'
    > expecting "X", "IX", "IV", "V", "I" or end of input

    bormand, 25 Апреля 2012

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

  4. Куча / Говнокод #10031

    +97

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    If bd12tc->mes!=num_month
  st_mes=num_month
Else
  st_mes=bd12tc->mes
EndIf

    Clipper
    Перевожу на работе старую программку (писалась больше 12 лет назад) в Delphi, нашёл вот такое

    avstecenko, 25 Апреля 2012

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

  5. Куча / Говнокод #10022

    +103

    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
    digits n  = reverse $ map (`mod` 10) (takeWhile (/= 0) (iterate (`div` 10) n))

fromDigits l = sum $ zipWith (*) (reverse l) (map (10^) [0..])

isPalindromic x = digits x == (reverse $ digits x)


f :: Integer -> [[Integer]] -> [Integer] -> Int -> [[Integer]]
f x founded lookedup niter 
                  | niter > 50 = [notlychers, [x] ++ lychers ++ lookedup, zs]
                  | nextX `elem` notlychers = [[x] ++ notlychers ++ lookedup, lychers, zs]
                  | nextX `elem` lychers = [notlychers, [x] ++ lychers ++ lookedup, zs]
                  | isPalindromic nextX = [[x] ++ notlychers ++ lookedup, lychers, zs]
                  | otherwise = f nextX founded (x : lookedup) (niter+1)
   where nextX = x + fromDigits (reverse $ digits x)
         notlychers = founded !! 0
         lychers = founded !! 1
         zs = founded !! 2

g :: [[Integer]] -> [[Integer]]
g founded = f (x-1) [xs, ys, [x-1]] [] 0
 where x  = zs !! 0
       xs = founded !! 0
       ys = founded !! 1
       zs = founded !! 2

gg n = g [[],[],[n+1]]

isLycher n = null $ (gg n) !! 0

    http://projecteuler.net/problem=55
    http://projecteuler.net/thread=55

    >i even haven't understood why it works :(

    TheHamstertamer, 23 Апреля 2012

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

  6. Куча / Говнокод #10010

    +91

    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
    #include <amxmodx>

new g_MsgSync
new g_MsgSync2

new isConnected[33 char]

public plugin_init()
{
   register_plugin("Damager", "1.0", "Prayer")
   
   register_event("Damage", "EVENT_Damage", "b", "2!0", "3=0", "4!0")
   
   g_MsgSync = CreateHudSyncObj()
   g_MsgSync2 = CreateHudSyncObj()
}

public client_putinserver(id)
{
   isConnected{id} = true
}

public client_disconnect(id)
{
   isConnected{id} = false
}

public EVENT_Damage(id)
{ 
   if(isConnected{id})
   {
      static damage, pid
      damage = read_data(2)
      
      set_hudmessage(255, 0, 0, 0.45, 0.50, 2, 0.1, 4.0, 0.1, 0.1, -1)
      ShowSyncHudMsg(id, g_MsgSync2, "%d", damage)
   
      pid = get_user_attacker(id)
      
      if((pid > 0) && (pid < 33) && isConnected{pid})
      {
         set_hudmessage(0, 100, 200, -1.0, 0.55, 2, 0.1, 4.0, 0.02, 0.02, -1)
         ShowSyncHudMsg(pid, g_MsgSync, "%d", damage)
      }
   }
}

    Это павн переработанный вельвом. Кто писал плагины для CS тот поймёт всю соль.

    Dg_INC, 22 Апреля 2012

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

  7. Куча / Говнокод #10002

    +100

    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
    procedure interpretation;
var
s,f:string;
i,m,v:integer;

begin
s:=#0;

for I:=0 to form9.Memo2.Lines.Count-1 do begin
  s:=form9.Memo2.Lines.Strings[i];//ïðîñìîòð ñòðîê èäåò
  //ñâåðõó âíèç

  if s='hex' then hex;
  if s='acsii' then acsii;

  if (s[1]='a') and (s[2]='d') and (s[3]='d') then begin
  form9.Edit6.Text:=s[5];
  form9.Edit5.Text:=s[7];
  peredsim;
  end;

  if (s[1]='s') and (s[2]='a') and (s[3]='m') then begin
  form9.Edit2.Text:=s[5];
  form9.Edit4.Text:=s[7];
  samsimbyl;
  end;

  if (s[1]='d') and (s[2]='e') and (s[3]='l') then begin
  form9.Edit3.Text:=s[5];
  for v:=1 to length(s) do
  deletesimbyl;
  end;

  if (s[1]='d') and (s[2]='e') and (s[3]='l') and (s[4]='s') then begin
  form9.Edit3.Text:=s[6];
  dels;
  end;

  if (s[1]='i') and (s[2]='n') and (s[3]='f') then begin
  form9.Memo1.Text:=s[5]+form9.Memo1.Text;
  end;

  if (s[1]='f') and (s[2]='n') and (s[3]='i') then begin
  form9.Memo1.Text:=form9.Memo1.Text+s[5];
  end;

  if (s[1]='p') and (s[2]='h') and (s[3]='e') then RapsrRedel;


  if (s[1]='n') and (s[2]='a') and (s[3]='b') then PerstNO;


  if (s[1]='a') and (s[2]='t') and (s[3]='s') then acsiitosim;
  if (s[1]='h') and (s[2]='t') and (s[3]='s') then hextosim;
  if (s[1]='h') and (s[2]='t') and (s[3]='a') then hextoacsii;
  if (s[1]='a') and (s[2]='t') and (s[3]='h') then acsiitohex;
end;
end;

    Нужно было быстро накодить интерпретатор, которым никто пользоваться не будет, кроме собственно автора программы, для создания простеньких скриптов (сами понимаете семантический анализатор писать, в данном случае не улыбалось). Потому получился такой МегОАдЪовый говнокод!

    Kerny, 21 Апреля 2012

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

  8. Куча / Говнокод #10000

    +99

    1. 1
    http://img.ponibooru.org/images/4e/4e688d1fa583ab735ea3974cdb855897

    bot-minurast, 20 Апреля 2012

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

  9. Куча / Говнокод #9999

    +64

    1. 1
    http://i.imgur.com/z30k3.png

    bot, 20 Апреля 2012

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

  10. Куча / Говнокод #9933

    +132

    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
    <asp:Label></asp:Label>
<br>
<asp:TextBox></asp:TextBox>
<br>
<br>
<br>
<br></br>
<asp:Label></asp:Label>
<br>
<asp:TextBox></asp:TextBox>
<br>
<br>
<br>
<br></br>
<asp:Button />
<br></br>
</br>
</br>
</br>
</br>
</br>
</br>

    новый сотрудник "наваял" страницу. кто его надоумил использовать закрывающий тег </br>, да еще и по такому странному принципу - неизвестно...

    _vinka, 12 Апреля 2012

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