fork(3) download
  1. (setf *random-state* (make-random-state t))
  2.  
  3. (defun randlist ()
  4. (let ((lst ()))
  5. (dotimes (i 10)
  6. (setf lst (cons (random 101) lst)))
  7. lst))
  8.  
  9. (setf var1 (randlist))
  10.  
  11. (print var1)
Success #stdin #stdout 0.03s 10544KB
stdin
Standard input is empty
stdout
(59 60 76 96 36 40 70 54 50 90)