diff options
Diffstat (limited to 'challenge-159')
| -rwxr-xr-x | challenge-159/luca-ferrari/raku/ch-1.p6 | 16 | ||||
| -rw-r--r-- | challenge-159/luca-ferrari/raku/ch-2.p6 | 2 |
2 files changed, 18 insertions, 0 deletions
diff --git a/challenge-159/luca-ferrari/raku/ch-1.p6 b/challenge-159/luca-ferrari/raku/ch-1.p6 new file mode 100755 index 0000000000..e8a45c1b94 --- /dev/null +++ b/challenge-159/luca-ferrari/raku/ch-1.p6 @@ -0,0 +1,16 @@ +#!raku +# Perl Weekly Challenge 159 + + +sub MAIN( Int $n where { $n > 0 } ) { + my $start = 0/1.Rat; + my $end = 1/1.Rat; + + my @farey = $start, $end; + + for 2 .. $n -> $denominator { + @farey.push( |( 1 .. $denominator ).map: * / $denominator ); + } + + @farey.unique.sort.map( *.nude.join( '/' ) ).say; +} diff --git a/challenge-159/luca-ferrari/raku/ch-2.p6 b/challenge-159/luca-ferrari/raku/ch-2.p6 new file mode 100644 index 0000000000..4f7c3ef22b --- /dev/null +++ b/challenge-159/luca-ferrari/raku/ch-2.p6 @@ -0,0 +1,2 @@ +#!raku +# Perl Weekly Challenge 159 |