diff options
| author | Markus "Holli" Holzer <holli.holzer@gmail.com> | 2020-02-25 23:03:52 +0100 |
|---|---|---|
| committer | Markus "Holli" Holzer <holli.holzer@gmail.com> | 2020-02-25 23:03:52 +0100 |
| commit | cac984b82e2400bb35ed8265278ba626093ae2b5 (patch) | |
| tree | 4bb092eddb0cc20375dbad01d624ba173e2ecc58 | |
| parent | d28714c2d511fc9c218ac86fa1e7a8dd790f6a5a (diff) | |
| download | perlweeklychallenge-club-cac984b82e2400bb35ed8265278ba626093ae2b5.tar.gz perlweeklychallenge-club-cac984b82e2400bb35ed8265278ba626093ae2b5.tar.bz2 perlweeklychallenge-club-cac984b82e2400bb35ed8265278ba626093ae2b5.zip | |
did't work. now it does
| -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 ); } |
