DB<102> for my $i (0..20) { print "$i:\t"; print "fizz" if not $i % 3; print "buzz" if not $i % 5; print "\n"; } 0: fizzbuzz 1: 2: 3: fizz 4: 5: buzz 6: fizz 7: 8: 9: fizz 10: buzz 11: 12: fizz 13: 14: 15: fizzbuzz 16: 17: 18: fizz 19: 20: buzz
Cheers Rolf
(addicted to the Perl Programming Language and ☆☆☆☆ :)
Je suis Charlie!
In reply to Re: The FizzBuzz Thing =)
by LanX
in thread The FizzBuzz Thing :(
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |