Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW

Re^2: Golf Challenge: FizzBuzz

by shmem (Chancellor)
on Mar 04, 2007 at 22:11 UTC ( #603139=note: print w/replies, xml ) Need Help??

in reply to Re: Golf Challenge: FizzBuzz
in thread Golf Challenge: FizzBuzz

print+(Fizz)[$_%3].(Buzz)[$_%5]||$_,$/for 1..100
scores 48, and wins!
Hmm? That's the solution I posted to FizzBuzz before this thread even started...


_($_=" "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}

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!

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
    also works with one fewer characters.
    #2345678901234567890123456789012345678901234 perl -M5.01 -e 'say+(Fizz)[$_%3].(Buzz)[$_%5]||$_,for 1..100'
    But this isn't really golf since you need to add -M5.01 to the calling statement.

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

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://603139]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (3)
As of 2020-07-11 23:25 GMT
Find Nodes?
    Voting Booth?

    No recent polls found