Re^2: Golf Challenge: FizzBuzz

print+(Fizz)[$_%3].(Buzz)[$_%5]||$_,$/for 1..100
[download]

scores 48, and wins!

Hmm? That's the solution I posted to FizzBuzz before this thread even started...

--shmem

_($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}

Comment on Re^2: Golf Challenge: FizzBuzz Download Code

Replies are listed 'Best First'.
Re^3: Golf Challenge: FizzBuzz by blazar (Canon) on Mar 04, 2007 at 23:52 UTC
Well done, then, I wanted to write "which is also shmem's solution", but I didn't because in this thread the other one appeared first. I won't update my node to acknowledge that you came first, since... well... these further followups do. Compliments again!	[reply]
Re^3: Golf Challenge: FizzBuzz by tweetiepooh (Hermit) on Jun 02, 2009 at 15:25 UTC
`#2345678901234567890123456789012345678901234567 warn+(Fizz)[$_%3].(Buzz)[$_%5]\|\|$_,$/for 1..100` [download] also works with one fewer characters. `#2345678901234567890123456789012345678901234 perl -M5.01 -e 'say+(Fizz)[$_%3].(Buzz)[$_%5]\|\|$_,for 1..100'` [download] But this isn't really golf since you need to add -M5.01 to the calling statement.	[reply] [d/l] [select]
Re^4: Golf Challenge: FizzBuzz by shmem (Chancellor) on Jun 02, 2009 at 18:28 UTC
As you can see from the date of the post to which you answered, it was written previous to the release of perl5.10 - there is no 'say' in 5.8.8...	[reply]