langs a-z

2013-04-10 22:43:41 -07:00 · 2013-04-10 22:43:41 -07:00 · d066446780
commit d066446780
parent db842d013d
11389 changed files with 98361 additions and 1020 deletions
--- a/Task/Combinations/Pure/combinations.pure
+++ b/Task/Combinations/Pure/combinations.pure
@ -0,0 +1,7 @@
+comb m n = comb m (0..n-1) with
+  comb 0 _ = [[]];
+  comb _ [] = [];
+  comb m (x:xs) = [x:xs | xs = comb (m-1) xs] + comb m xs;
+end;
+
+comb 3 5;