diff options
author | Nguyễn Gia Phong <vn.mcsinyx@gmail.com> | 2019-01-14 20:41:09 +0700 |
---|---|---|
committer | Nguyễn Gia Phong <vn.mcsinyx@gmail.com> | 2019-01-14 20:41:09 +0700 |
commit | ce56bd193a7c8c6437443227cd3abb51134e3e7a (patch) | |
tree | 590c003d9f99e9912e0618a8c77d73ed2b481d20 /codechef/xypizq.p6 | |
parent | bf538954817e568322c83030dd2fbc688a3ee13d (diff) | |
download | cp-ce56bd193a7c8c6437443227cd3abb51134e3e7a.tar.gz |
At least I managed to stay in top 10%
Diffstat (limited to 'codechef/xypizq.p6')
-rwxr-xr-x | codechef/xypizq.p6 | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/codechef/xypizq.p6 b/codechef/xypizq.p6 new file mode 100755 index 0000000..ff0598f --- /dev/null +++ b/codechef/xypizq.p6 @@ -0,0 +1,6 @@ +#!/usr/bin/env perl6 +multi xypizq($N, 1, $x, $y, $z where $x == $z) { $x / ($N * 2 + 1) } +multi xypizq($N, 1, $x, $y, $z) { 1 - xypizq $N, 1, $z, $y, $z } +multi xypizq($N, 3, $x, $y, $z) { xypizq $N, 1, $z, $y, $x } +multi xypizq($N, $t, $x, $y, $z) { 1 - $y * 2 / ($N * 2 + 1) } +xypizq(|get.words>>.Int).nude.put for ^get |