picolisp

commit 3b2f7c912bb5b92a77a0536a2fa606f577b5f489
parent f41fb5bc7ee38230f6834ee8e60ebe3d229537fe
Author: Alexander Burger <abu@software-lab.de>
Date:   Sat,  7 Jan 2012 16:24:16 +0100

Minor 'subsets' optimization: append -> conc
Diffstat:
M
lib/simul.l
 | 
4
++--

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/lib/simul.l b/lib/simul.l
@@ -1,4 +1,4 @@
-# 15jul10abu
+# 07jan12abu
 # (c) Software Lab. Alexander Burger
 
 (de permute (Lst)
@@ -16,7 +16,7 @@
       ((=0 N) '(NIL))
       ((not Lst))
       (T
-         (append
+         (conc
             (mapcar
                '((X) (cons (car Lst) X))
                (subsets (dec N) (cdr Lst)) )