In Parenjs
(set nums [])
(set r [])
(while (< r.length 6)
(set n (floor (inc (* (rand) 45))))
(when (! nums[n])
(set nums[n] true)
(r.push n)))
(r.sort -)
'My Computer Programs' 카테고리의 다른 글
(Paren) 로또 번호 생성 (0) | 2013.07.09 |
---|---|
(Clojure) 로또 번호 생성 (0) | 2013.06.19 |
(JavaScript) Sort List (0) | 2013.06.10 |
(JavaScript) Set Difference (0) | 2013.06.08 |
(Scheme) primes (0) | 2013.05.05 |