1. Perl / Говнокод #60

    −366.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
    ###
    ### ввод цен на открытки
    ###
    
    if ($p{card}==0) {$o=0}
    if ($p{card}==1) {$o=20}
    if ($p{card}==2) {$o=20}
    if ($p{card}==3) {$o=20}
    if ($p{card}==4) {$o=20}
    if ($p{card}==5) {$o=20}
    if ($p{card}==6) {$o=20}
    if ($p{card}==7) {$o=20}
    if ($p{card}==8) {$o=20}
    if ($p{card}==9) {$o=20}
    if ($p{card}==10) {$o=20}
    if ($p{card}==11) {$o=20}
    if ($p{card}==12) {$o=20}
    if ($p{card}==13) {$o=20}
    if ($p{card}==14) {$o=20}
    if ($p{card}==15) {$o=20}
    if ($p{card}==16) {$o=20}
    if ($p{card}==17) {$o=20}
    if ($p{card}==18) {$o=20}

    Запостил: guest, 04 Декабря 2008

    Комментарии (6) RSS

    • кереведко:
      плакал .... ))
      Ответить
    • очень трудолюбивый кодер
      Ответить
    • А я даже не заметил подвоху, т.к. привык к такому коду. Приходится видеть его каждый день, поддерживая одно двигло :)
      Ответить
    • орал :D
      Ответить
      • Как орёт в поле оратай, посвистывает,
        Сошка у оратая поскрипывает,
        Омешики по камешкам почиркивают.
        Ответить
    • может быть со временем надо будет заменить значения с 20 на какое либо другое...
      Ответить

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