Re: Golf Challenge: FizzBuzz

[eric256]

Here is my variation..got 50! ;)

#23456789 123456789 123456789 123456789 123456789 
print+((Fizz)[$_%3]).((Buzz)[$_%5])||$_ for 1..100

[Sidhekin]

Ooh, neat! You've got a few unnecessary parentheses, though. That should be 46:

#23456789 123456789 123456789 123456789 123456
print+(Fizz)[$_%3].(Buzz)[$_%5]||$_ for 1..100

... which I expect will be the winning entry. Not much cruft there.

[liverpole]

Unfortunately, the last several entries are all missing newlines, which makes the output very hard to read.

It seems like such output is just a little too golfed!

Update:  Otherwise, you can still make it shorter:

die+map{(Fizz)[$_%3].(Buzz)[$_%5]||$_}1..100

Update 2:  As Sidhekin pointed out to me, the -l switch makes the newline problems go away.

On an unrelated note, I thought it would be fun writing a version that doesn't use the modulo operator (%).  Originally I tried golfing it, but it didn't golf well, so here's an easy-to-read version, which makes use of divisibility tests:

use strict;
use warnings;

sub divisible_by_3 {
    my $num = shift;
    while (length($num) > 1) {
        my $sum = 0;
        map { $sum += $_ } split '', $num;
        $num = $sum;
    }
    return $num =~ /^[0369]$/;
}

sub divisible_by_5 {
    my $num = shift;
    return ($num =~ /[05]$/);
}

sub divisible_by_15 {
    my $num = shift;
    return (divisible_by_3($num) and divisible_by_5($num));
}

foreach (1 .. 100) {
    printf "%s\n",
        divisible_by_15($_)? "fizzbuzz":
        divisible_by_3($_)?  "fizz":
        divisible_by_5($_)?  "buzz":
        $_;
}

[merlyn]

    while (length($num) > 1) {
        my $sum = 0;
        map { $sum += $_ } split '', $num;
        $num = $sum;
    }

Ugh. Void Map. Ugh. How about this instead:

1 while $num =~ s/(\d)(\d)/$1 + $2/e;

[tye]

(Note the lack of %).

#2345678 1 2345678 2 2345678 3 2345678 4 2345678 5 2345678 6 2345678 7
+ 2345
for('001'x33|'00002'x20){print[pos,Fizz,Buzz,FizzBuzz]->[$1],$/while/(
+.)/g}
for('001'x33|'00002'x20){warn+(pos,Fizz,Buzz,FizzBuzz)[$&],$/while/./g
+}

map{warn+(FizzBuzz,Fizz,Buzz,pos)[$&],$/while/./g}331x34&33332x20
#2345678 1 2345678 2 2345678 3 2345678 4 2345678 5 2345678 6 2345

Update: Dropped 3 4 strokes above. Then 6 more. Then s/x33/x34/ to fix a bug where only 99 lines were printed by the 3rd version.

[blazar]

Update: Otherwise, you can still make it shorter:

die+map{(Fizz)[$_%3].(Buzz)[$_%5]||$_}1..100

Generally printing to STDERR is not considered equivalent to printing to STDOUT.

Update 2: As Sidhekin pointed out to me, the -l switch makes the newline problems go away.

But under common golfing rules -l does count as +3 strokes. Changing

$_ for

to

$_,$/for

adds two.

[vrk]

Unfortunately, the last several entries are all missing newlines, which makes the output very hard to read.

Indeed, but there is an easy fix: $\="\n";. This does add eight characters, though.

Solving the problem without modulo seems fun. If this were Perl 6 or Haskell, one could do it with filtered streams. How about table-driven programming?