picolisp

commit 81082dfa4da2063dd086e9289ecc6ab6f5b178d7
parent 3279880927b882fa0ac9f32bd39db508541f5712
Author: Commit-Bot <unknown>
Date:   Thu, 15 Jul 2010 08:15:32 +0000

Automatic commit from picoLisp.tgz, From: Thu, 15 Jul 2010 08:15:32 GMT
Diffstat:
M
lib/simul.l
 | 
13
++++++++++++-
M
src64/version.l
 | 
4
++--

2 files changed, 14 insertions(+), 3 deletions(-)
diff --git a/lib/simul.l b/lib/simul.l
@@ -1,4 +1,4 @@
-# 09jul10abu
+# 15jul10abu
 # (c) Software Lab. Alexander Burger
 
 (de permute (Lst)
@@ -11,6 +11,17 @@
                (permute (delete X Lst)) ) )
          Lst ) ) )
 
+(de subsets (N Lst)
+   (cond
+      ((=0 N) '(NIL))
+      ((not Lst))
+      (T
+         (append
+            (mapcar
+               '((X) (cons (car Lst) X))
+               (subsets (dec N) (cdr Lst)) )
+            (subsets N (cdr Lst)) ) ) ) )
+
 (de shuffle (Lst)
    (by '(NIL (rand)) sort Lst) )
 
diff --git a/src64/version.l b/src64/version.l
@@ -1,6 +1,6 @@
-# 09jul10abu
+# 15jul10abu
 # (c) Software Lab. Alexander Burger
 
-(de *Version 3 0 3 4)
+(de *Version 3 0 3 5)
 
 # vi:et:ts=3:sw=3