masak++ \'s combinations solution.

Raku · Apr 21, 2012 · 80e1d29 · 80e1d29
1 parent 7f7a7c5
commit 80e1d29
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/other/combinations.pl b/other/combinations.pl
@@ -0,0 +1,6 @@
+use v6;
+
+multi combs(@, 0) { "" };
+multi combs { combs(@^dict, $^n - 1) X~ @dict };
+
+(.say for combs(<a b c>, $_)) for 1..4;