picolisp

commit c467837e5bc762e09a5ff6471e16c8e09add24e0
parent 6f08669e22eb1634b505a9d1e92e23667d20df95
Author: Commit-Bot <unknown>
Date:   Wed, 30 Jun 2010 11:25:52 +0000

Automatic commit from picoLisp.tgz, From: Wed, 30 Jun 2010 11:25:52 GMT
Diffstat:
M
lib/simul.l
 | 
9
++-------

1 file changed, 2 insertions(+), 7 deletions(-)
diff --git a/lib/simul.l b/lib/simul.l
@@ -1,4 +1,4 @@
-# 22mar10abu
+# 30jun10abu
 # (c) Software Lab. Alexander Burger
 
 (de permute (Lst)
@@ -12,12 +12,7 @@
          Lst ) ) )
 
 (de shuffle (Lst)
-   (make
-      (for (N (length Lst) (gt0 N))
-         (setq Lst
-            (conc
-               (cut (rand 0 (dec 'N)) 'Lst)
-               (prog (link (car Lst)) (cdr Lst)) ) ) ) ) )
+   (by seed sort Lst) )
 
 (de samples (Cnt Lst)
    (make