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

    Всего: 1

  2. 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)