diff options
| author | Luca Ferrari <fluca1978@gmail.com> | 2022-04-04 09:41:59 +0200 |
|---|---|---|
| committer | Luca Ferrari <fluca1978@gmail.com> | 2022-04-04 09:41:59 +0200 |
| commit | 14dda6355b6f7ee3734a67fa17f126bfc32e7efd (patch) | |
| tree | d18f0c0cbae2a8016fec738bc244ec432d601139 /challenge-159 | |
| parent | 21b2771f7439710ee9a4631c40679a916ca9f723 (diff) | |
| download | perlweeklychallenge-club-14dda6355b6f7ee3734a67fa17f126bfc32e7efd.tar.gz perlweeklychallenge-club-14dda6355b6f7ee3734a67fa17f126bfc32e7efd.tar.bz2 perlweeklychallenge-club-14dda6355b6f7ee3734a67fa17f126bfc32e7efd.zip | |
Task 1 done
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 |