challenge-001/ryan-thompson/perl6/ch-2.p6


1
2
3
4
5
6
7
8
9
10
11
12
13
14

#!/usr/bin/env perl6

# ch-2.p6 - FizzBuzz "one-liner"
#
# Ryan Thompson <rjt@cpan.org>

use v6;

(1..20).map({
    !($_ % 15) ?? 'fizzbuzz'
 !! !($_ %  3) ?? 'fizz'
 !! !($_ %  5) ?? 'buzz'
 !!               $_
})».say;