diff options
| -rwxr-xr-x | challenge-137/luca-ferrari/raku/ch-2.p6 | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/challenge-137/luca-ferrari/raku/ch-2.p6 b/challenge-137/luca-ferrari/raku/ch-2.p6 new file mode 100755 index 0000000000..3a67328fad --- /dev/null +++ b/challenge-137/luca-ferrari/raku/ch-2.p6 @@ -0,0 +1,18 @@ +#!raku + +sub MAIN( Int $n where { 10 <= $n <= 10000 }, Bool :$verbose = False ) { + + my ( $result, $iteration ) = $n,0; + while ( $result < 10_000_000 && $iteration < 500 ) { + $iteration++; + $result += $result.split( '' ).reverse.join; + if $result == $result.split( '' ).reverse.join { + '0'.say; + "Found $result after $iteration iterations".say if $verbose; + exit; + } + } + + '1'.say; + "Cannot find Lychrel number for $n".say if $verbose; +} |