diff options
| -rw-r--r-- | challenge-016/simon-proctor/perl6/ch-1.p6 | 17 |
1 files changed, 17 insertions, 0 deletions
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 |