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

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

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