1. C# / Говнокод #10332

    +96

    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
    private void textBox10_TextChanged(object sender, EventArgs e)
            {
            }
            private void button3_Click(object sender, EventArgs e)
            {
                textfactorname1.Text = "";
                textfactorname2.Text = "";
                textfactorname3.Text = "";
                textfactorname4.Text = "";
                textfactorname5.Text = "";
                textfactorname6.Text = "";
                textfactorname7.Text = "";
                textfactorname8.Text = "";
                textfactorname9.Text = "";
                ...
               
                checkBox9.Checked = false;
                checkBox10.Checked = false;
            }
            private void button2_Click_1(object sender, EventArgs e)
            {
                int n;
                try
                {
                    n = Convert.ToInt32(textItera.Text);
                }
                catch
                {
                    n = 1;
                }
                string results;
                double[] NPVarray = new double[n];
                double[] NPVsquares = new double[n];
                double NPVmax,NPVmin,NPVmid,disp,standdev,CV,zeropoint,pxy,xxx,yyy;
                int lessthanzero, morethanxxx, lessthanyyy;
                try
                {
                    for (int i = 0; i < n; i++)
                    {
                        string factorname1;
                       ...
                        string factorname10;
                        double fixedvalue1;
                       ...
                        double fixedvalue10;
                        double midvalue1;
                        ...
                        double midvalue10;
                        double minvalue1;
                        ...
                        double minvalue10;
                        double maxvalue1;
                        ...
                        double maxvalue10;
                        string varname1;
                       ...
                        string varname10;
                        if (textfactorname1.Text == "")
                        {
                            factorname1 = "What a fuck?";
                        }
                        else
                        {
                            factorname1 = textfactorname1.Text;
                        }
                        if (textfactorname2.Text == "")
                        {
                            factorname2 = "What a fuck?";
                        }

    Вот так вот. Лимит в 100 строк не позаоляет показать все прелести.

    tarabo, 20 Мая 2012

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

    +124

    1. 1
    f = (((.) flip) . (((flip (.)) flip) . ((.) . (.))))

    Для тех кто не смог догадаться это {spoiler} f x1 x2 x3 x4 = x1 (x2 x3 x4) {/spoiler}

    HaskellGovno, 20 Мая 2012

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

    +119

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    s f g x = f x (g x)
    k x y   = x
    b f g x = f (g x)
    c f g x = f x g
    y f     = f (y f)
    cond p f g x = if p x then f x else g x
    fac  = y (b (cond ((==) 0) (k 1)) (b (s (*)) (c b pred)))

    HaskellGovno, 20 Мая 2012

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

    +116

    1. 1
    append x = foldr (map (:) x) id

    HaskellGovno, 20 Мая 2012

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

    +119

    1. 1
    2. 2
    import Control.Monad.Reader
    head >>= (:)

    HaskellGovno, 20 Мая 2012

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

    +119

    1. 1
    foldr ((.) . (:)) id

    HaskellGovno, 20 Мая 2012

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

    +147

    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
    <br><br><br><br>
    
             &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
    
             &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
    
             &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
    
             &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
    
             &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
    
             &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
    
             &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
    
             <a style="color:red; font-type:bold;" href="recipes.html">Рецепты хлеба</a>&nbsp;&nbsp;&nbsp;
    
             <a style="color:red;" href="vipechka.html">Выпечка хлеба</a>&nbsp;&nbsp;&nbsp;
    
             <a style="color:red;" href="combinates_msk.html">Хлебозаводы Москвы</a>&nbsp;&nbsp;&nbsp;
    
             <a style="color:red;" href="faq.php">Вопрос эксперту</a>&nbsp;&nbsp;&nbsp;
    
             <a style="color:red;" href="press.php">Хлебные новости</a>
    
    
    
             </div>

    Не знал куда выложить, запостил сюда. Нувыпоняли...

    ibrain, 19 Мая 2012

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

    +74

    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
    public static boolean isBouncy(long n) {
    	boolean isBouncy = false;
    	String num = Long.toString(n);
    	String[] seperateDigits = new String[num.length()+1];
    	for (int i=1; i <= num.length(); i++) {
    		seperateDigits[i] = num.substring(i-1,i);
    	}
    	int firstDig = Integer.parseInt(num.substring(0,1));
    	int cDig;
    	int iDeg = 0;
    	int cDeg = 0;
    	int dig0;
    	int dig1;
    	for (int i = 2; i <= seperateDigits.length-1; i++) {
    		if (!isBouncy) {
    			dig0 = Integer.parseInt(seperateDigits[i-1]);
    			dig1 = Integer.parseInt(seperateDigits[i]);
    			if (i == 2) iDeg = getDegree(dig0, dig1);
    			else {
    				cDeg = getDegree(dig0,dig1);
    				if (iDeg == 0) iDeg = cDeg;
    				else if (cDeg == -iDeg) isBouncy = true;
    			}
    		}
    	}
    	if (iDeg == 0) isBouncy = false;
    	return isBouncy;
    }

    http://projecteuler.net/problem=112
    http://projecteuler.net/thread=112&page=6#63821


    >Nothing intuitive about it at all

    TheHamstertamer, 19 Мая 2012

    Комментарии (20)
  9. SQL / Говнокод #10323

    −118

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    IF @stage = 9
    BEGIN
    	UPDATE dbo.Company SET [Site] = @site_uri, [EMail] = @email 
    		FROM dbo.DirtyApartments dirty
    		WHERE [Name] = dirty.Компания_Clean
    END

    Довелось столкнуться с проектом, в котором в СУБД mssql в половине таблиц поля написаны по-русски, а так-же, по русско-английски.

    nolka4, 19 Мая 2012

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

    +265

    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
    00410803  PUSH OFFSET 004FC0C8                     ASCII "AnVir Task Manager Pro"
    0041189D  PUSH OFFSET 004FC0A4                     ASCII "data Task Manager Pro"
    0041A074  PUSH OFFSET 00500120                     ASCII "%sAnVir Task Manager Pro"
    0042F9CE  PUSH OFFSET 005012A4                     ASCII "AnVir Task Manager Pro %s %s!"
    00410803  PUSH OFFSET 006AC6E8                     ASCII "AnVir Task Manager Pro"
    004479E9  PUSH EDI                                 ASCII "AnVir Task Manager Pro"
    0044FE01  PUSH OFFSET 00502C34                     ASCII "AnVir Task Manager Pro "
    00463DC9  PUSH OFFSET 00503708                     ASCII "AnVir Task Manager Pro folder selection"
    004606BE  MOV DWORD PTR SS:[EBP-130],OFFSET 005035>ASCII "AnVir Task Manager Pro file selection"
    00490CE9  PUSH OFFSET 00507E5C                     ASCII "AnVir Task Manager Pro. "
    00495441  PUSH OFFSET 00508450                     ASCII "AnVir Task Manager Pro, 6.7.1"
    00497858  PUSH OFFSET 0050866C                     ASCII "Logfile of AnVir Task Manager Pro v6.7.1 "
    004A3DE6  PUSH OFFSET 00509B54                     ASCII "AnVir Task Manager"

    Вывод ольки по поиску всех строк. (лишнее порезал)
    Надо напомнить сотню раз пользователю имя программы, а то вдруг он забудет что он запустил!
    Немного удивляет такой маразм.

    ReckO, 19 Мая 2012

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