(Racket) 로또 번호 생성

#lang racket
(let loop ([r (set)])
  (cond [(>= (set-count r) 6) (display r)]
        [else (loop (set-add r (add1 (random 45))))]))