challenge-051/simon-proctor/raku/ch-2.p6


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

#!/usr/bin/env perl6

use v6;

#| Print all the colourful 3 digit numbers
sub MAIN() {
    .say for (111..999).grep( &is-colourful );
}

sub is-colourful( Int $number ) {
    my @vals = $number.comb;
    [!==] (|@vals, @vals[0] * @vals[1], @vals[1] * @vals[2], @vals[0] * @vals[1] * @vals[2]).sort;

}