I'm not as good at math as I expect

1 files changed, 9 insertions, 0 deletions

diff --git a/codechef/proxyc.p6 b/codechef/proxyc.p6
new file mode 100755
index 0000000..13aa03d
--- /dev/null
+++ b/codechef/proxyc.p6
@@ -0,0 +1,9 @@
+#!/usr/bin/env perl6
+my @a = <AP PP PA>;
+for ^get() {
+    my ($d, $s) = get.Int, get;
+    my $p = elems $s ~~ m:g/P/;
+    put 0 when $p * 4 >= $d * 3;
+    my $m = ceiling $d * 0.75 - $p;
+    put ($m > elems $s ~~ m:g:ex/@a A @a/) ?? -1 !! $m
+}