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

    +140

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    говорят, что на PL/1 это работает:
    
    if if = then then
        then = else;
    else else = if;

    dim1r, 25 Октября 2012

    Комментарии (11)
  2. Куча / Говнокод #11979

    +175

    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
    with Ada.Integer_Text_Io, Ada.Text_Io;
    use Ada.Integer_Text_Io, Ada.Text_Io;
    
    procedure Test is
    v : Long_Float := 26.0;
    v1 : float := 26.0;
    begin
       while (v<27.0) loop
             Put_Line("Value = " & Long_Float'image(v));
            v:=v+0.2;
       end loop;
       while (v1<27.0) loop
             Put_Line("Value = " & float'image(v1));
            v1:=v1+0.2;
       end loop;
    
    end;

    ideone.com/pXIhvY
    Безопасный военный язык, да.

    3.14159265, 23 Октября 2012

    Комментарии (42)
  3. Куча / Говнокод #11978

    +132

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    main = do
            print [1 .. 9]
            print [1, 3 .. 9]
            print [1, 3 .. 10]
            print [26.0, 26.2 .. 27.0]
            print [25.5..30.0]
            print [25, 25 .. 25]

    В хаскеле сломан генератор списков. :(
    http://ideone.com/AvBSuz

    HaskellGovno, 22 Октября 2012

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

    +128

    1. 1
    f = expr `catches` [Handler (\ (ex :: ArithException) -> handleArith ex), Handler (\ (ex :: IOException)    -> handleIO    ex)]

    Собственно это пример как в хаскеле перехватывать исключения из одного выражения expr.
    Выглядит конечно отстойно. Очень многословно и судя по всему метода проще нет. И понятное дело, в чистых ленивых функциях это не работает. Ловить исключения можно только в грязных IO-функциях, тк сигнатура такова: catches :: IO a -> [Handler a] -> IO a

    HaskellGovno, 21 Октября 2012

    Комментарии (43)
  5. Куча / Говнокод #11956

    +123

    1. 1
    2. 2
    (format t "~{~[~:R~; ~S~:;none~] chance~^, ~}" '(0 1 0 2 0 3))
    ;; first chance, second chance, third chance

    Любителям ДСЛ (а так же древесно-стружечных плит, и других керамических изделий):
    Объясните почему так работает? Наверное не говнокод, просто нихрена не понятно.

    wvxvw, 18 Октября 2012

    Комментарии (2)
  6. Куча / Говнокод #11948

    +127

    1. 1
    2. 2
    <COUNTRY>Испания</COUNTRY>
     <REGION><![CDATA[Краснодарский Край]]></REGION>

    "Максим не знал, смеяться или плакать, Максим не знал, зачем учился в школе..."(с)
    xml-выгрузка данных с одного сайта агентства недвижимости.

    twsdwf, 17 Октября 2012

    Комментарии (3)
  7. Куча / Говнокод #11944

    +129

    1. 1
    arr <- return $ map (2*) lst

    Я тут читал раздел на одном форуме по решению задач для школьников и наткнулся на такое говно.
    - let?
    - Не, не слышал.
    Подозреваю, что автор не понял, что let нужно писать без in в монадах, чтобы скомпилировалось.

    HaskellGovno, 17 Октября 2012

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

    +126

    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
    PHP (66%, 152 голосов)
    C++ (8%, 18 голосов)
    Java (5%, 12 голосов)
    Delphi (5%, 11 голосов)
    Ни одного не знаю ( (4%, 10 голосов)
    C# (4%, 9 голосов)
    JavaScript (3%, 8 голосов)
    Ни одного не знаю (2%, 5 голосов)
    C (1%, 3 голосов)
    Perl (0%, 1 голосов)
    Ассемблер (0%, 1 голосов)
    Python (0%, 0 голосов)
    Ruby (2%, 0 голосов)
    Всего голосов: 230

    Нормальная такая статистика. Прогеры явно подигрывают ruby

    Vasiliy, 16 Октября 2012

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

    +123

    1. 1
    2. 2
    fixed login dabl validation;
    dabl ajax zaproses;

    комментарий к коммиту

    crook, 03 Октября 2012

    Комментарии (7)
  10. Куча / Говнокод #11862

    +130

    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
    <!DOCTYPE html>
    <html>
    <head>
    <meta charset="utf-8">
    <title>Centering div content in 2012 using CSS</title>
    <meta name="viewport" content="width=device-width, initial-scale=1, maximum-scale=1">
    <style>
    
    /* align horizontally */
    .fu { width: 100%; text-align: center; }
    
    /* align vertically */
    @media all and (min-height:0px) { .fu { margin-top: 0px; }}
    @media all and (min-height:2px) { .fu { margin-top: 1px; }}
    @media all and (min-height:4px) { .fu { margin-top: 2px; }}
    @media all and (min-height:6px) { .fu { margin-top: 3px; }}
    @media all and (min-height:8px) { .fu { margin-top: 4px; }}
    @media all and (min-height:10px) { .fu { margin-top: 5px; }}
    @media all and (min-height:12px) { .fu { margin-top: 6px; }}
    @media all and (min-height:14px) { .fu { margin-top: 7px; }}
    @media all and (min-height:16px) { .fu { margin-top: 8px; }}
    @media all and (min-height:18px) { .fu { margin-top: 9px; }}
    @media all and (min-height:20px) { .fu { margin-top: 10px; }}
    @media all and (min-height:22px) { .fu { margin-top: 11px; }}
    .....
    .....
    .....
    @media all and (min-height:1994px) { .fu { margin-top: 997px; }}
    @media all and (min-height:1996px) { .fu { margin-top: 998px; }}
    @media all and (min-height:1998px) { .fu { margin-top: 999px; }}
    
    
    </style>
    </head>
    <body>
    <div class="fu">horizontally and vertically centered</div>
    </body>
    </html>​

    Центрируем содержимое дива по горизонтали и вертикали :) http://jsfiddle.net/ykrBh/

    makc3d, 02 Октября 2012

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