[rosalind] ASPC, slightly shorter

Author: L. Grondin

rosalind/aspc-grondilu.pl

@@ -6,8 +6,7 @@ sub postfix:<!> { [*] 1 .. $^n }
 
 my $sum = my $C = C $n, $m;
 for $m+1 .. $n -> $k {
-    $C = $C * ($n - $k + 1) div $k;
-    "$k: ", $sum += $C;
+    $sum += $C = $C * ($n - $k + 1) div $k;
 }
 say $sum % 1_000_000;