diff options
| author | Simon Proctor <simon.proctor@zpg.co.uk> | 2019-07-08 15:21:38 +0100 |
|---|---|---|
| committer | Simon Proctor <simon.proctor@zpg.co.uk> | 2019-07-08 15:21:38 +0100 |
| commit | 8bd960a42cdbdcfe59e8cf4ad92feb5eafacefdd (patch) | |
| tree | bd98305cb4f232ab1a214e0a71647786e8e57bca | |
| parent | a30f3f17bbab2c0fa6ee27558e1cd1d990191608 (diff) | |
| download | perlweeklychallenge-club-8bd960a42cdbdcfe59e8cf4ad92feb5eafacefdd.tar.gz perlweeklychallenge-club-8bd960a42cdbdcfe59e8cf4ad92feb5eafacefdd.tar.bz2 perlweeklychallenge-club-8bd960a42cdbdcfe59e8cf4ad92feb5eafacefdd.zip | |
Added a verbose option
| -rw-r--r-- | challenge-016/simon-proctor/perl6/ch-1.p6 | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/challenge-016/simon-proctor/perl6/ch-1.p6 b/challenge-016/simon-proctor/perl6/ch-1.p6 index eff2f108e4..56ef06d167 100644 --- a/challenge-016/simon-proctor/perl6/ch-1.p6 +++ b/challenge-016/simon-proctor/perl6/ch-1.p6 @@ -1,7 +1,7 @@ use v6; #| Calculate the largest slace of Pie from Pythagoras Pie Puzzle -sub MAIN() { +sub MAIN( Bool :v($verbose) = False ) { my $cake = FatRat.new(1); my $slice = 0; my $person = 0; @@ -12,6 +12,7 @@ sub MAIN() { $slice = $nslice; $person = $size; } + say "Person $size gets {$nslice*100}%" if $verbose; } say "Person $person gets {$slice*100}% of the cake or {$slice.nude().join("/")}"; }
\ No newline at end of file |