diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2022-02-01 18:47:25 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-02-01 18:47:25 +0000 |
| commit | 449ceaf129d901ffc55b3e578edbe3b88e705c8a (patch) | |
| tree | 1f2f426dfc53113cb6d0bb3daae2cc3ca30e3d76 | |
| parent | ebcd59a50056e1da3a3f28c98e867c2344548ac6 (diff) | |
| parent | deaeddfba405826ffe42675a54b55f255bda338b (diff) | |
| download | perlweeklychallenge-club-449ceaf129d901ffc55b3e578edbe3b88e705c8a.tar.gz perlweeklychallenge-club-449ceaf129d901ffc55b3e578edbe3b88e705c8a.tar.bz2 perlweeklychallenge-club-449ceaf129d901ffc55b3e578edbe3b88e705c8a.zip | |
Merge pull request #5593 from ash/ash-150
Ash 150
| -rw-r--r-- | challenge-150/ash/raku/ch-1.raku | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/challenge-150/ash/raku/ch-1.raku b/challenge-150/ash/raku/ch-1.raku new file mode 100644 index 0000000000..07e83215d9 --- /dev/null +++ b/challenge-150/ash/raku/ch-1.raku @@ -0,0 +1,11 @@ +my $a = '1234'; +my $b = '5678'; + +my $L = 51; + +my @fib = $a, $b, * ~ * ... *; + +my $long = @fib.first: *.chars >= $L; +my $char = $long.comb[$L-1]; + +say "The {$L}st digit in the first term having at least $L digits '$long' is $char."; |