diff options
| -rwxr-xr-x | challenge-072/feng-chang/raku/ch-1a.raku | 14 | ||||
| -rwxr-xr-x | challenge-072/feng-chang/raku/ch-1b.raku | 5 |
2 files changed, 19 insertions, 0 deletions
diff --git a/challenge-072/feng-chang/raku/ch-1a.raku b/challenge-072/feng-chang/raku/ch-1a.raku new file mode 100755 index 0000000000..5701a8172e --- /dev/null +++ b/challenge-072/feng-chang/raku/ch-1a.raku @@ -0,0 +1,14 @@ +#!/bin/env raku + +# it all comes down to how many factors of 5 you have in N! +sub MAIN(UInt $N) { + my UInt $cnt = 0; + my UInt $f5s = 5; + + while $f5s <= $N { + $cnt += $N div $f5s; + $f5s *= 5; + } + + say "{$N}! has $cnt trailing zeros"; +} diff --git a/challenge-072/feng-chang/raku/ch-1b.raku b/challenge-072/feng-chang/raku/ch-1b.raku new file mode 100755 index 0000000000..10e8277d34 --- /dev/null +++ b/challenge-072/feng-chang/raku/ch-1b.raku @@ -0,0 +1,5 @@ +#!/bin/env raku + +sub MAIN(UInt $N) { + say "{$N}! has { (([*] 1..$N) ~~ /(0*$)/).chars } trailing zeros"; +} |