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

    Всего: 1

  2. Perl / Говнокод #12475

    −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
    46. 46
    47. 47
    #!/usr/bin/perl -w
    
    use strict;
    
    my $enchant_num=1;
    my $tries_num=0;
    
    print "Please, enter safe enchant lvl:\n";
    my $safe_enchant_num=<STDIN>; chomp $safe_enchant_num;
    print "Please enter maximum enchant lvl:\n";
    
    my $max_enchant_num=<STDIN>; chomp $max_enchant_num;
    
    if($max_enchant_num=~/\d/)
    {
    	if($max_enchant_num>$safe_enchant_num)
    	{
    		while($enchant_num<=$max_enchant_num)
    		{
    			if($enchant_num<=$safe_enchant_num)
    			{
    				while($enchant_num<=$safe_enchant_num)
    				{
    					print "Succesfully enchanted for +" . $enchant_num++ . "\r";
    				}
    			}
    			else
    			{
    				if(rand(100)<=66)
    				{
    					print "Succesfully enchanted for +" . $enchant_num++ . "\r";
    				}
    				else
    				{
    					print "Enchant failed for +" . $enchant_num++ . "\r";
    					$enchant_num=1;
    					$tries_num++;
    				}
    			}
    		}
    	}
    }
    else
    {
    	print "\nInput is incorrect\n";
    }
    print "\nEnchanted for $max_enchant_num with: $tries_num fails.";

    Комментарии излишни

    mish, 25 Января 2013

    Комментарии (14)