(newLISP) 로또 번호 생성

In newLISP

 

(slice (randomize (sequence 1 45)) 0 6)

 

; 로또 1등이 얼마나 되기 어려운지 실험
(define (lotto) (slice (randomize (sequence 1 45)) 0 6))
(let (i 0) (while (!= n '(1 2 3 4 5 6)) (++ i) (setq n (lotto)) (println i " " n)))