1. Список говнокодов пользователя Сан Саныч

    Всего: 4

  2. Pascal / Говнокод #2300

    −96

    1. 1
    2. 2
    {//}l:= a+sqrt(b); 
    {//}r:= c+sqrt(d);

    Ещё из одного исходника олимпиадной задачи. Не удалять же символы комментов, если их можно закомментить?

    Сан Саныч, 19 Декабря 2009

    Комментарии (9)
  3. Pascal / Говнокод #2113

    +96.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
    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
    temp:= min(Mon.VGA,Comp.VGA);
    inc(n,temp);
    dec(Mon.VGA,temp);
    dec(Comp.VGA,temp);
    temp:= min(Mon.DVI,Comp.DVI);
    inc(n,temp);
    dec(Mon.DVI,temp);
    dec(Comp.DVI,temp);
    temp:= min(Mon.Multi,Comp.Multi);
    inc(n,temp);
    dec(Mon.Multi,temp);
    dec(Comp.Multi,temp);
    if Mon.Multi<>0
     then
      begin
      temp:= min(Mon.Multi,Comp.VGA);
      inc(n,temp);
      dec(Mon.Multi,temp);
      dec(Comp.VGA,temp);
      temp:= min(Mon.Multi,Comp.DVI);
      inc(n,temp);
      dec(Mon.Multi,temp);
      dec(Comp.DVI,temp);
      end;
    if Comp.Multi<>0
     then
      begin
      temp:= min(Mon.VGA,Comp.Multi);
      inc(n,temp);
      dec(Mon.VGA,temp);
      dec(Comp.Multi,temp);
      temp:= min(Mon.DVI,Comp.Multi);
      inc(n,temp);
      dec(Mon.DVI,temp);
      dec(Comp.Multi,temp);
      end;

    Из ещё одного решения олимпиадной задачи. Вроде подсчитывает количество компов, которые можно собрать при учёте, что у системников и мониторов может быть интерфейс DVI, VGA или оба сразу (Multi).

    Сан Саныч, 09 Ноября 2009

    Комментарии (0)
  4. Pascal / Говнокод #1935

    +107.9

    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
    if l<9
     then
      if r<10
       then
        s:= inttostr(l)
       else
        s:= '10'
     else
      if l<99
       then
        if r<100
         then
          s:= inttostr(l)
         else
          s:= '100'
       else
        if l<999
         then
          if r<1000
           then
            s:= inttostr(l)
           else
            s:= '1000'
         else
          if l<9999
           then
            if r<10000
             then
              s:= inttostr(l)
             else
              s:= '10000'
           else
            if l<99999
             then
              if r<100000
               then
                s:= inttostr(l)
               else
                s:= '100000'
             else
              if l<999999
               then
                if r<1000000
                 then
                  s:= inttostr(l)
                 else
                  s:= '1000000'
               else
                if l<9999999
                 then
                  if r<10000000
                   then
                    s:= inttostr(l)
                   else
                  s:= '10000000'
                 else
                  if l<99999999
                   then
                    if r<100000000
                     then
                      s:= inttostr(l)
                     else
                      s:= '100000000'
                   else
                    if l<999999999
                     then
                      if r<1000000000
                       then
                        s:= inttostr(l)
                       else
                        s:= '1000000000';

    Нашёл в своём решении какой-то олимпиадной задачи. Долго пытался вспомнить, в каком состоянии был...

    Сан Саныч, 05 Октября 2009

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

    +66.8

    1. 1
    bind "attack" kill

    Классика консоли CS

    Сан Саныч, 24 Сентября 2009

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