[rosaling] ASPC

Author: L. Grondin

rosalind/aspc-grondilu.pl

@@ -0,0 +1,14 @@
+use v6;
+
+sub postfix:<!> { [*] 1 .. $^n }
+sub C($n, $k) { $n! div ($k! * ($n-$k)!) }
+my ($n, $m) = $*IN.get.split(' ')».Int;
+
+my $sum = my $C = C $n, $m;
+for $m+1 .. $n -> $k {
+    $C = $C * ($n - $k + 1) div $k;
+    "$k: ", $sum += $C;
+}
+say $sum % 1_000_000;
+
+# vim: ft=perl6