Get numbers for the lottery

Question

As part of learning Lisp I\'m currently trying to write a function that helps me fill out my lottery ticket. I want that function to return

• a list
• of

Answer 1

(defun lotto ()
  (labels ((lot (acc)  
             (if (= 6 (length acc)) 
                 acc 
                (lot (adjoin (1+ (random 49)) acc)))))
    (sort (lot nil) #'<)))