challenge 013 #2

3 files changed, 14 insertions, 1 deletions

diff --git a/challenge-013/feng-chang/.gitignore b/challenge-013/feng-chang/.gitignore
new file mode 100644
index 0000000000..1377554ebe
--- /dev/null
+++ b/challenge-013/feng-chang/.gitignore
@@ -0,0 +1 @@
+*.swp
diff --git a/challenge-013/feng-chang/perl6/ch-1.p6 b/challenge-013/feng-chang/perl6/ch-1.p6
index 51e3da63df..17436e10c7 100755
--- a/challenge-013/feng-chang/perl6/ch-1.p6
+++ b/challenge-013/feng-chang/perl6/ch-1.p6
@@ -3,7 +3,7 @@
 my $format = sub ($self) { sprintf '%04d/%02d/%02d', .year, .month, .day, given $self };
 
 sub last-day-to-last-friday(Int $year, Int $month, Int $day) {
-    my Date $d = Date.new(sprintf("%04d-%02d-%02d", $year, $month, $day));
+    my Date $d = Date.new(sprintf "%04d-%02d-%02d", $year, $month, $day);
     $d -= ($d.day-of-week - 5) mod 7;
 }
 
diff --git a/challenge-013/feng-chang/perl6/ch-2.p6 b/challenge-013/feng-chang/perl6/ch-2.p6
new file mode 100755
index 0000000000..262dfce177
--- /dev/null
+++ b/challenge-013/feng-chang/perl6/ch-2.p6
@@ -0,0 +1,12 @@
+#!/bin/env perl6
+
+multi F(0) { 1 }
+multi F(Int $n where * > 0) { $n - M(F($n - 1)) }
+
+multi M(0) { 0 }
+multi M(Int $n where * > 0) { $n - F(M($n - 1)) }
+
+sub MAIN(Int $n where * >= 0) {
+    (^$n)».&F.say;
+    (^$n)».&M.say;
+}