diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2019-07-08 13:58:53 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2019-07-08 13:58:53 +0100 |
| commit | 812081dac3b6d09d63e88d294845740fe614e642 (patch) | |
| tree | f35cad3260bc1357c0b6aa01cbc433c250f665b5 | |
| parent | 7e7216ae68c4cdb94491a173c08c1fec0cc198b8 (diff) | |
| parent | a30f3f17bbab2c0fa6ee27558e1cd1d990191608 (diff) | |
| download | perlweeklychallenge-club-812081dac3b6d09d63e88d294845740fe614e642.tar.gz perlweeklychallenge-club-812081dac3b6d09d63e88d294845740fe614e642.tar.bz2 perlweeklychallenge-club-812081dac3b6d09d63e88d294845740fe614e642.zip | |
Merge pull request #353 from Scimon/master
Cakes
| -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 |