My Computer Programs

(Parenjs) 로또 번호 생성

steloflute 2013. 6. 17. 23:30

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