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

    −115

    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
    #если делится на 3 без остатка, то приписываем 3 

if (!($sn%3)){$sn.="3";}

#если делится на 2 без остатка, то припысываем 2

elsif (!($sn%2)){$sn.="2";}

#если делится на 5 без остатка, то припысываем 5

elsif (!($sn%5)){$sn.="5";}

#втрой округ шифрования

#если делится на 7 без остатка, то приписываем 8 

if (!($sn%7)){$sn.="8";}

#если делится на 3 без остатка, то припысываем 2

elsif (!($sn%3)){$sn.="2";}

#если делится на 5 без остатка, то припысываем 3

elsif (!($sn%5)){$sn.="4";} 



my $len = length($sn);

if ($len ==6){$sn=~m/(\d)(\d)(\d)(\d)(\d)(\d)/;$itog=$6.$3.$1.$4.$5.$2;}

elsif ($len ==5){$sn=~m/(\d)(\d)(\d)(\d)(\d)/;$itog=$2.$1.$5.$4.$3;}

elsif ($len == 4){$sn=~m/(\d)(\d)(\d)(\d)/;$itog=$4.$1.$3.$2;}

elsif ($len == 3){$sn=~m/(\d)(\d)(\d)/;$itog=$2.$1.$3;}

elsif ($len == 2){$sn=~m/(\d)(\d)/;$itog=$2.$1;}

elsif ($len == 1){$itog=$sn;}

return $itog;

}

    пример "крутого" кода с free-lance.ru

    Запостил: mahatharata, 13 Августа 2010

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

    • ava ZeiZ 13.08.2010 10:40 # +1

      очень много цыфирек! не асилил!
      Ответить

    • ava Lure Of Chaos 13.08.2010 10:49 # 0

      круто!
      Ответить

    • ava Crazzy 13.08.2010 12:06 # +10

      #если делится на 5 без остатка, то припысываем 3
      elsif (!($sn%5)){$sn.="4";}
      -------------------------------------------------------------------------
      КО в шоке
      Ответить

    • ava Arigato 31.10.2010 19:02 # −1

      Типичная программа :)
      Ответить

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