1. 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) RSS

    • ava bildja 05.10.2009 12:24 # +2

      олимпиаду выиграл?=)
      Ответить

    • ava Oleg_quadro 05.10.2009 13:32 # 0

      Это случайно не сложение больших чисел?
      Ответить

      • ava Сан Саныч 05.10.2009 22:44 # 0

        Нет, насколько я понял и вспомнил, это поиск числа из интервала l..r, строковое представление которого лексиграфически минимально...
        Ответить

    • ava guest 06.10.2009 14:21 # 0

      Ну в каком состоянии находится решающий олимпиаду? На жутких нервах, из-под рук само по себе вылетает непонятно что. А если это вышло в результате тренировки на время - тем более.
      Ответить

      • ava Сан Саныч 15.10.2009 08:01 # 0

        Вообще-то это писалось не на олимпиаде, а на сервере с задачами с олимпиад разных лет, то есть времени на каждую задачу навалом...
        Ответить

    • ava guest 20.10.2009 20:00 # 0

      Как бы это есть такой способ решения задач.
      Ответить

    Добавить комментарий