diff options
| -rwxr-xr-x | challenge-148/luca-ferrari/raku/ch-2.p6 | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/challenge-148/luca-ferrari/raku/ch-2.p6 b/challenge-148/luca-ferrari/raku/ch-2.p6 new file mode 100755 index 0000000000..2d16a062ac --- /dev/null +++ b/challenge-148/luca-ferrari/raku/ch-2.p6 @@ -0,0 +1,28 @@ +#!raku + +multi sub is-cardano-triplet( $a, $b, $c ) { + + my $left = .sign * .abs**( 1 / 3 ) given ( $a + $b * $c.sqrt ); + my $right = .sign * .abs**( 1 / 3 ) given ( $a - $b * $c.sqrt ); + return 1 =~= ( $left + $right ); +} + + +multi sub is-cardano-triplet( @triplet ) { + return is-cardano-triplet( @triplet[ 0 ], @triplet[ 1 ], @triplet[ 2 ] ); +} + +sub MAIN( Int $limit = 5 ) { + my @triplets = lazy gather { + for 1 .. Inf -> $a { + for 1 ..^ $a -> $b { + for 1 ..^ $b -> $c { + $_.take if is-cardano-triplet( $_ ) for ( $a, $b, $c ).permutations; + + } + } + } + }; + + @triplets[ 0 .. 5 ].join( "\n" ).say; +} |