diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2019-06-07 15:38:07 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2019-06-07 15:38:07 +0100 |
| commit | ccbd2682b031809d75444023e49fb1f743120b78 (patch) | |
| tree | 328e655132e7c067dc6d1d988551e62d6f124419 /challenge-011 | |
| parent | e3d46091fdb8bf0c49294bf8a6d6d94502ed1be7 (diff) | |
| download | perlweeklychallenge-club-ccbd2682b031809d75444023e49fb1f743120b78.tar.gz perlweeklychallenge-club-ccbd2682b031809d75444023e49fb1f743120b78.tar.bz2 perlweeklychallenge-club-ccbd2682b031809d75444023e49fb1f743120b78.zip | |
- Added solution by Jo Christian Oterhals.
Diffstat (limited to 'challenge-011')
| -rw-r--r-- | challenge-011/jo-christian-oterhals/perl6/ch-1.sh | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/challenge-011/jo-christian-oterhals/perl6/ch-1.sh b/challenge-011/jo-christian-oterhals/perl6/ch-1.sh new file mode 100644 index 0000000000..46451905ba --- /dev/null +++ b/challenge-011/jo-christian-oterhals/perl6/ch-1.sh @@ -0,0 +1 @@ +perl6 -e 'sub MAIN($a, $b) { say "Equal point: " ~ ( $b - $a == 100 ?? "None" !! $a / (1 - (($b - $a) / 100))) }' 32 212 |