From a30f3f17bbab2c0fa6ee27558e1cd1d990191608 Mon Sep 17 00:00:00 2001
From: Simon Proctor <simon.proctor@zpg.co.uk>
Date: Mon, 8 Jul 2019 13:55:32 +0100
Subject: Cakes

---
 challenge-016/simon-proctor/perl6/ch-1.p6 | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 challenge-016/simon-proctor/perl6/ch-1.p6

diff --git a/challenge-016/simon-proctor/perl6/ch-1.p6 b/challenge-016/simon-proctor/perl6/ch-1.p6
new file mode 100644
index 0000000000..eff2f108e4
--- /dev/null
+++ b/challenge-016/simon-proctor/perl6/ch-1.p6
@@ -0,0 +1,17 @@
+use v6;
+
+#| Calculate the largest slace of Pie from Pythagoras Pie Puzzle
+sub MAIN() {
+    my $cake = FatRat.new(1);
+    my $slice = 0;
+    my $person = 0;
+    for 1..100 -> $size { 
+        my $nslice = $cake * ($size/100);
+        $cake -= $nslice;
+        if $nslice > $slice  {
+            $slice = $nslice;
+            $person = $size;
+        }
+    }
+    say "Person $person gets {$slice*100}% of the cake or {$slice.nude().join("/")}";
+}
\ No newline at end of file
-- 
cgit