diff options
| -rw-r--r-- | challenge-049/markus-holzer/raku/ch-1.p6 | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/challenge-049/markus-holzer/raku/ch-1.p6 b/challenge-049/markus-holzer/raku/ch-1.p6 index 44a9b0861b..69827afbac 100644 --- a/challenge-049/markus-holzer/raku/ch-1.p6 +++ b/challenge-049/markus-holzer/raku/ch-1.p6 @@ -1,8 +1,4 @@ -sub MAIN( $n ) +sub MAIN( $n ) { - # I have no formal proof for this, but I have a strong hunch that it's true. - say "Impossible" and exit - if so ( 2, 4, 8 ... *² > $n ).first( $n %% * ); - - say (1, 10, { $_ %% 2 ?? $_ + 1 !! $_ * 10 } ... *).first( * %% $n ); + say (1 .. Inf).map( *.base(2).Str ).first( * %% $n ); } |