(Paren) 로또 번호 생성

In Paren

 

(set contains? (fn (x lst)
  (set found false)
  (set i (dec (length lst)))
  (while (&& (>= i 0) (! found))
    (when (== x (nth i lst))
      (set found true))
    (-- i))
  found))
 
(set lotto (fn () 
  (set r (list))
  (while (< (length r) 6)
    (set x (inc (int (* (rand) 45))))
    (when (! (contains? x r))
      (set r (cons x r))))
  (prn r)))
 
(lotto)