mc #5591(2008/01/31 06:36 GMT) [ Arc ] Rating0/0=0.00
1 2 3 4 5 6 7 8 9 10 11 12
(def bingo (n) (let lst (iota n 1) (for i 0 (- n 1) (swap (lst i) (lst (rand n)))) lst)) (def iota (n (o start 0) (o step 1)) (let res () (repeat n (push start res) (++ start step)) (rev res)))
Rating0/0=0.00-0+
[ reply ]
mc
#5591()
[
Arc
]
Rating0/0=0.00
割とCommon Lispみたいになってしまいました。
(def bingo (n) (let lst (iota n 1) (for i 0 (- n 1) (swap (lst i) (lst (rand n)))) lst)) (def iota (n (o start 0) (o step 1)) (let res () (repeat n (push start res) (++ start step)) (rev res)))Rating0/0=0.00-0+
[ reply ]