Re^4: Golf Challenge: FizzBuzz

[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;