1. ActionScript / Говнокод #10271

    −165

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    /**
         * This is a really fast way to check for NaN; see the spec of NaN
         * on why this works; this check can yield false only for a Number
         * since it's the only one capable of having NaN as a value.
         */
        if (d != d) {
         throw new Error("value can't be NaN!");
        }

    kyzi007, 15 Мая 2012

    Комментарии (39)
  2. C# / Говнокод #10270

    +141

    1. 1
    2. 2
    string Signal = Console.ReadLine();
    Console.WriteLine(Convert.ToString(bool.Parse(Signal))); //НУ НАХУЯ?!?!?

    Для непонятных: Автор говна создает переменную типа string и записывает туда введенную в консоли строку, после он нехилым образом вызывает метод Parse который из string переводит в bool, а потом этот поносопроггер переконвертирует полученную переменную типа bool в переменную типа string. Ну нахуя спрашивается????

    KusokGovna, 15 Мая 2012

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

    +161

    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
    function validate() {
                var at = document.getElementById("email").value.indexOf("@");
                var age = document.getElementById("age").value;
                var fname = document.getElementById("fname").value;
                submitOK = "true";
    
                if (fname.length > 10) {
                    alert("Имя не должно содержать более 10 знаков");
                    submitOK = "false";
                }
                if (isNaN(age) || age < 1 || age > 100) {
                    alert("Возраст должен быть от 1 до 100");
                    submitOK = "false";
                }
                if (at == -1) {
                    alert("Неправильный e-mail");
                    submitOK = "false";
                }
                if (submitOK == "false") {
                    return false;
                }
            }

    Джордж Буль в гробу перевернулся.

    Arigato, 14 Мая 2012

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

    +126

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    IF NOT SY-SUBRC IS INITIAL.
    *  Do nothing
    ELSE.
    *  MESSAGE 'Дебитор не найден'(040) TYPE 'S' DISPLAY LIKE 'E'. 
    *  Do nothing xD
    ENDIF.

    Пускай всё идёт своим чередом ^_^

    niko, 14 Мая 2012

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

    +71

    1. 1
    2. 2
    $res= (isset($r[0]) and count($r[0]) > 0) ? true : false;
    return $res;

    Классика

    Мартин, 14 Мая 2012

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

    +115

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    9. 9
    count c l = length $ filter (c==) l
     
    main = do 
            l <- getLine
            let
                    f = count '(' l
                    s = count ')' l
            in
            print $ f s (f==s)

    Посоны, как смешивать монадический код и не монадический?
    http://ideone.com/yRGDk
    Чистый код let in не хочет в монду.

    HaskellGovno, 14 Мая 2012

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

    +78

    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
    class uagent_info
    {
       //standardized values for true and false.
       var $true = 1;
       var $false = 0;
    
       function XXX() {
          if (...) {
          	return $this->true;
          } else {
          	return $this->false;
          }
       }
    }

    http://code.google.com/p/mobileesp/source/browse/PHP/mdetect.php

    neanton, 14 Мая 2012

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

    +93

    1. 1
    2. 2
    3. 3
    4. 4
    //|| Request.Params["lbActCat"].Equals("0,0") Ваня, понятия не имею почему приходит значение 0,0, но это вызывает ошибку
    if (Request.QueryString["lbActCat"] != null && !Request.QueryString["lbActCat"].Equals("0,0")) {
        lbActCat.SelectedValue = Request.QueryString["lbActCat"];
    }

    а раз вызывает ошибку, просто вставим в if еще одно условие и нет ошибки, Ваня...

    sergey_sh, 14 Мая 2012

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

    +131

    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
    #------------обрабатываем окончания html-------------
    RewriteEngine on
    Options +FollowSymlinks
    RewriteBase /
    RewriteRule ^([A-Za-z0-9-]+)/(.*).html?$ /$1/$2 [NC,L]
    RewriteRule ^(.*).html?$ /$1 [NC,L]
    
    <IfModule mod_charset.c>
    CharsetRecodeMultipartForms off
    </IfModule>
    #------------разбор URL для админки------------------
    RewriteEngine on
    RewriteRule ^([a-zA-Z0-9_-]+).html$ ([a-zA-Z0-9_-]+) [L]
    RewriteRule ^([a-zA-Z0-9_-]+)/*([a-zA-Z0-9_-]*)/*([a-zA-Z0-9_-]*)/*([a-zA-Z0-9_-]*)/*([a-zA-Z0-9_-]*)/*([a-zA-Z0-9_-]*)/*([a-zA-Z0-9_-]*)/*([a-zA-Z0-9_-]*)/*([a-zA-Z0-9_-]*)$ /index.php?%{QUERY_STRING}&param[0]=$1&param[1]=$2&param[2]=$3&param[3]=$4&param[4]=$5&param[5]=$6&param[6]=$7&param[7]=$8&param[8]=$9

    Apache .htaccess
    Смотрите сами :D

    oooZinka, 14 Мая 2012

    Комментарии (4)
  10. 1C / Говнокод #10261

    −102

    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
    ВыборкаДетальныеЗаписи = Результат.Выбрать();
    	
    	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
    		Продукт=ВыборкаДетальныеЗаписи.Продукт;
    		ЕдИзм=ВыборкаДетальныеЗаписи.ЕдИзмПродукта;
    		Количество=ВыборкаДетальныеЗаписи.КолвоПродукта;
    		Если Прав(ВыборкаДетальныеЗаписи.Продукт,6)="1/2 кг" ИЛИ 
    			Прав(ВыборкаДетальныеЗаписи.Продукт,5)="1/2кг"  ИЛИ 
    			Прав(ВыборкаДетальныеЗаписи.Продукт,6)="1\2 кг" ИЛИ
    			Прав(ВыборкаДетальныеЗаписи.Продукт,5)="1\2кг"  ИЛИ 
    			Прав(ВыборкаДетальныеЗаписи.Продукт,9)="(500  гр)"  ИЛИ 
    			Прав(ВыборкаДетальныеЗаписи.Продукт,5)="0,5кг" ИЛИ 
    			Прав(ВыборкаДетальныеЗаписи.Продукт,6)="(05кг)"   Тогда
    			Цена=Цена+ВыборкаДетальныеЗаписи.ЦенаПродукта/2;
    			
    		ИначеЕсли Прав(ВыборкаДетальныеЗаписи.Продукт,7)="1/2,5кг"  ИЛИ 
    			Прав(ВыборкаДетальныеЗаписи.Продукт,8)="(250 гр)" ИЛИ 
    			Прав(ВыборкаДетальныеЗаписи.Продукт,9)="(0,25 кг)" ИЛИ
    			Прав(ВыборкаДетальныеЗаписи.Продукт,6)="0,25кг"   Тогда
    			Цена=Цена+ВыборкаДетальныеЗаписи.ЦенаПродукта*0.25;
    		ИначеЕсли Прав(ВыборкаДетальныеЗаписи.Продукт,6)="1/4кг." ИЛИ 
    			Прав(ВыборкаДетальныеЗаписи.Продукт,5)="1/4кг"   ИЛИ 
    			Прав(ВыборкаДетальныеЗаписи.Продукт,6)="1/4 кг"  ИЛИ 
    			Прав(ВыборкаДетальныеЗаписи.Продукт,7)="1/4 кг."  ИЛИ 
    			Прав(ВыборкаДетальныеЗаписи.Продукт,5)="0,4кг"  ИЛИ 
    			Прав(ВыборкаДетальныеЗаписи.Продукт,3)="1/4"   Тогда
    			Цена=Цена+ВыборкаДетальныеЗаписи.ЦенаПродукта*0.4;
    		ИначеЕсли Прав(ВыборкаДетальныеЗаписи.Продукт,8)="0,085 кг"  ИЛИ 
    			Прав(ВыборкаДетальныеЗаписи.Продукт,9)="(0,085кг)"   Тогда
    			Цена=Цена+ВыборкаДетальныеЗаписи.ЦенаПродукта*0.085;
    		ИначеЕсли Прав(ВыборкаДетальныеЗаписи.Продукт,5)="0,7кг"  Тогда
    			Цена=Цена+ВыборкаДетальныеЗаписи.ЦенаПродукта*0.7;
    		ИначеЕсли Прав(ВыборкаДетальныеЗаписи.Продукт,8)="(100 гр)"  Тогда
    	        Цена=Цена+ВыборкаДетальныеЗаписи.ЦенаПродукта*0.1;
    		ИначеЕсли Прав(ВыборкаДетальныеЗаписи.Продукт,8)="(350 гр)"  ИЛИ
    			Прав(ВыборкаДетальныеЗаписи.Продукт,6)="350гр."  ИЛИ 
    			Прав(ВыборкаДетальныеЗаписи.Продукт,6)="0,35кг"  ИЛИ 
    			 Прав(ВыборкаДетальныеЗаписи.Продукт,7)="0,35 кг" Тогда
     	        Цена=Цена+ВыборкаДетальныеЗаписи.ЦенаПродукта*0.35;
    		ИначеЕсли Прав(ВыборкаДетальныеЗаписи.Продукт,8)="(450 гр)" ИЛИ
    			Прав(ВыборкаДетальныеЗаписи.Продукт,9)="(0,45 кг)" ИЛИ 
    			Прав(ВыборкаДетальныеЗаписи.Продукт,6)="0,45кг"  Тогда
                Цена=Цена+ВыборкаДетальныеЗаписи.ЦенаПродукта*0.45;
    		ИначеЕсли Прав(ВыборкаДетальныеЗаписи.Продукт,5)="1/3кг"  ИЛИ 
    			Прав(ВыборкаДетальныеЗаписи.Продукт,8)="(0,3 кг)" ИЛИ
    			Прав(ВыборкаДетальныеЗаписи.Продукт,5)="0,3кг"   Тогда
    		    Цена=Цена+ВыборкаДетальныеЗаписи.ЦенаПродукта*0.3;
    		ИначеЕсли Прав(ВыборкаДетальныеЗаписи.Продукт,8)="1\1,8 кг" ИЛИ 
    			Прав(ВыборкаДетальныеЗаписи.Продукт,8)="(0,18кг)"   Тогда
    			Цена=Цена+ВыборкаДетальныеЗаписи.ЦенаПродукта*0.18;
    		ИначеЕсли  Прав(ВыборкаДетальныеЗаписи.Продукт,8)="1/1,5 кг" Тогда
    			Цена=Цена+ВыборкаДетальныеЗаписи.ЦенаПродукта*0.15;
    		ИначеЕсли Прав(ВыборкаДетальныеЗаписи.Продукт,8)="(0,12кг)" Тогда 
    			Цена=Цена+ВыборкаДетальныеЗаписи.ЦенаПродукта*0.12;
    		ИначеЕсли Прав(ВыборкаДетальныеЗаписи.Продукт,7)="0,08 кг" Тогда 
    			Цена=Цена+ВыборкаДетальныеЗаписи.ЦенаПродукта*0.08;
    		ИначеЕсли Прав(ВыборкаДетальныеЗаписи.Продукт,7)="0,075кг" Тогда 
    			Цена=Цена+ВыборкаДетальныеЗаписи.ЦенаПродукта*0.75;
    		ИначеЕсли  Прав(ВыборкаДетальныеЗаписи.Продукт,6)="0,03кг" Тогда
    			Цена=Цена+ВыборкаДетальныеЗаписи.ЦенаПродукта*0.03;
    		ИначеЕсли  Прав(ВыборкаДетальныеЗаписи.Продукт,6)="0,23кг" Тогда
    			Цена=Цена+ВыборкаДетальныеЗаписи.ЦенаПродукта*0.23;
    	
    		Иначе
    			Цена=Цена+ВыборкаДетальныеЗаписи.ЦенаПродукта;
    		КонецЕсли;
    		
    	КонецЦикла;

    Отчет почему-то не всегда работал :)

    sipkin, 14 Мая 2012

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