diff options
| -rw-r--r-- | challenge-051/mohammad-anwar/raku/ch-2.p6 | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/challenge-051/mohammad-anwar/raku/ch-2.p6 b/challenge-051/mohammad-anwar/raku/ch-2.p6 new file mode 100644 index 0000000000..b70b766bee --- /dev/null +++ b/challenge-051/mohammad-anwar/raku/ch-2.p6 @@ -0,0 +1,16 @@ +#!/usr/bin/env perl6 + +use v6; + +sub MAIN() { + + for 102 .. 987 -> $i { + my $j = $i.comb.unique.join; + next if $i != $j; + + my @N = $i.comb; + my @S = (@N[0], @N[1], @N[2], (@N[0] * @N[1]), (@N[1] * @N[2]), (@N[0] * @N[1] * @N[2])); + + say "[$i] => [" ~ @S.join(", ") ~ "]" if @S.unique.elems == @S.elems; + } +} |