Changeset 37008 in project


Ignore:
Timestamp:
12/16/18 21:12:36 (5 weeks ago)
Author:
kon
Message:

better shuffle

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/5/amb/trunk/amb.scm

    r37005 r37008  
    2828  (chicken base)
    2929  (chicken fixnum)
     30  (only (chicken bitwise) integer-length)
    3031  (chicken syntax)
    3132  (chicken type)
     
    5657        (vector-set! vec i (vector-ref vec i+1))
    5758        (vector-set! vec i+1 tmp) ) )
    58     (do ((n len (fx- n 1)))
     59    (do ((n (integer-length len) (fx- n 1)))
    5960        ((fx= n 0))
    6061      (swap-adj! (rnd len)) ) ) )
Note: See TracChangeset for help on using the changeset viewer.