Combinations with repetitions: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,200: / Line 1,200: @@
 (define combinations
   (lambda (lst k)
-    (cond ((null? lst) '())
+    (cond ((= k 0) '(()))
-          ((= k 0) '(()))
+          ((null? lst) '())
           (else
            (append