diff options
| author | Mark Anderson <mark@frontrangerunner.com> | 2020-08-03 02:35:30 -0600 |
|---|---|---|
| committer | Mark Anderson <mark@frontrangerunner.com> | 2020-08-03 02:35:30 -0600 |
| commit | 2756b8fa0582eab32b07d93f318c51eeaff23f09 (patch) | |
| tree | d3d188c866ee6fa8f53ef973eb6a00cb75a493a3 /challenge-072 | |
| parent | 8c2f5fd585d45d45a93bea8031ad0a30c9534218 (diff) | |
| download | perlweeklychallenge-club-2756b8fa0582eab32b07d93f318c51eeaff23f09.tar.gz perlweeklychallenge-club-2756b8fa0582eab32b07d93f318c51eeaff23f09.tar.bz2 perlweeklychallenge-club-2756b8fa0582eab32b07d93f318c51eeaff23f09.zip | |
Challenge 72 Solutions
Diffstat (limited to 'challenge-072')
| -rw-r--r-- | challenge-072/mark-anderson/raku/ch-1.p6 | 11 | ||||
| -rw-r--r-- | challenge-072/mark-anderson/raku/ch-2.p6 | 5 |
2 files changed, 16 insertions, 0 deletions
diff --git a/challenge-072/mark-anderson/raku/ch-1.p6 b/challenge-072/mark-anderson/raku/ch-1.p6 new file mode 100644 index 0000000000..acf59a389a --- /dev/null +++ b/challenge-072/mark-anderson/raku/ch-1.p6 @@ -0,0 +1,11 @@ +#!/usr/bin/env raku + +unit sub MAIN(UInt $N where 1 <= $N <= 10); + +my $factorial = [*] 1 .. $N; + +my $ans = do if $factorial ~~ /(0+)$/ { $0.to - $0.from } else { 0 } + +my $end = do if $ans <= 1 { q{} } else { "es" } + +say $ans ~ ' as $N! = ' ~ "$factorial has $ans trailing zero" ~ $end; diff --git a/challenge-072/mark-anderson/raku/ch-2.p6 b/challenge-072/mark-anderson/raku/ch-2.p6 new file mode 100644 index 0000000000..e32e5e99b9 --- /dev/null +++ b/challenge-072/mark-anderson/raku/ch-2.p6 @@ -0,0 +1,5 @@ +#!/usr/bin/env raku + +unit sub MAIN(Str $file, UInt $from, UInt $to where 1 <= $from <= $to); + +print |$file.IO.lines(chomp => False)[$from-1 .. $to-1]; |