aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMarkus "Holli" Holzer <holli.holzer@gmail.com>2020-02-25 23:03:52 +0100
committerMarkus "Holli" Holzer <holli.holzer@gmail.com>2020-02-25 23:03:52 +0100
commitcac984b82e2400bb35ed8265278ba626093ae2b5 (patch)
tree4bb092eddb0cc20375dbad01d624ba173e2ecc58
parentd28714c2d511fc9c218ac86fa1e7a8dd790f6a5a (diff)
downloadperlweeklychallenge-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.p68
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 );
}