language: Common Lisp (clisp) (clisp 2.47)
date: 231 days 11 hours ago
link:
visibility: public 
1
2
3
4
5
6
7
8
9
10
11

(setf *random-state* (make-random-state t))
 
(defun randlist ()
  (let ((lst ()))
    (dotimes (i 10)
       (setf lst (cons (random 101) lst)))
   lst))
   
(setf var1 (randlist))
 
(print var1)