diff options
| -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]; |