diff options
| -rw-r--r-- | challenge-114/luca-ferrari/raku/ch-2.p6 | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/challenge-114/luca-ferrari/raku/ch-2.p6 b/challenge-114/luca-ferrari/raku/ch-2.p6 new file mode 100644 index 0000000000..876d7a2724 --- /dev/null +++ b/challenge-114/luca-ferrari/raku/ch-2.p6 @@ -0,0 +1,7 @@ +#!raku + + +sub MAIN( Int $N where { $N > 0 } ) { + say $_ and exit if ( $N.base( 2 ).split( '' ).grep( '1' ).elems == $_.base( 2 ).split( '' ).grep( '1' ).elems ) for $N ^.. Inf; + +} |