From f35df0a84832788ae2e786e83c0de3504b2f9b0f Mon Sep 17 00:00:00 2001
From: 冯昶 <seaker@qq.com>
Date: Fri, 21 Aug 2020 16:12:53 +0800
Subject: #072 #1

---
 challenge-072/feng-chang/raku/ch-1a.raku | 14 ++++++++++++++
 challenge-072/feng-chang/raku/ch-1b.raku |  5 +++++
 2 files changed, 19 insertions(+)
 create mode 100755 challenge-072/feng-chang/raku/ch-1a.raku
 create mode 100755 challenge-072/feng-chang/raku/ch-1b.raku

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";
+}
-- 
cgit