picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE

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:
Mlib/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