4 ms·
Yes, a Perl one-liner: perl -E 'map { say } map { { 3 => "Fizz", 5 => "Buzz", 15 => "FizzBuzz" }->{ sub { my $val = shift; (grep { $val % $_ == 0 } (3, 5,
by eCa 11y ago
Yes, a Perl one-liner:
perl -E 'map { say } map { { 3 => "Fizz", 5 => "Buzz", 15 => "FizzBuzz" }->{ sub { my $val = shift; (grep { $val % $_ == 0 } (3, 5, 15))[-1] }->($_) } || $_ } (1..100)'
Or a little more readable:
map { say }
map {
{ 3 => "Fizz", 5 => "Buzz", 15 => "FizzBuzz" }->{
sub {
my $val = shift;
(grep { $val % $_ == 0 } (3, 5, 15))[-1]
}->($_)
} || $_
} (1..100)