diff options
| author | Markus "Holli" Holzer <holli.holzer@gmail.com> | 2020-02-25 18:45:53 +0100 |
|---|---|---|
| committer | Markus "Holli" Holzer <holli.holzer@gmail.com> | 2020-02-25 18:45:53 +0100 |
| commit | d28714c2d511fc9c218ac86fa1e7a8dd790f6a5a (patch) | |
| tree | 5b8326d425463e40735d62fcc8bcbfbba8ac0340 | |
| parent | 220a9d8c87758b29a8597d4888f97bece843f15a (diff) | |
| download | perlweeklychallenge-club-d28714c2d511fc9c218ac86fa1e7a8dd790f6a5a.tar.gz perlweeklychallenge-club-d28714c2d511fc9c218ac86fa1e7a8dd790f6a5a.tar.bz2 perlweeklychallenge-club-d28714c2d511fc9c218ac86fa1e7a8dd790f6a5a.zip | |
added impossibility check
| -rw-r--r-- | challenge-049/markus-holzer/raku/ch-1.p6 | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/challenge-049/markus-holzer/raku/ch-1.p6 b/challenge-049/markus-holzer/raku/ch-1.p6 index 5793330e98..44a9b0861b 100644 --- a/challenge-049/markus-holzer/raku/ch-1.p6 +++ b/challenge-049/markus-holzer/raku/ch-1.p6 @@ -1,4 +1,8 @@ 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 ); -}
\ No newline at end of file +} |