sylwester wrote:You can randomize it with sort:
Code: Select all
(defparameter *lst* (list a b c d)) ; list of the elements (setf *lst* (sort *lst* (lambda (&rest lst) (< 0.5 (random 1.0)))))
That code seems work,but how exactly that work?
sylwester wrote:You can randomize it with sort:
Code: Select all
(defparameter *lst* (list a b c d)) ; list of the elements (setf *lst* (sort *lst* (lambda (&rest lst) (< 0.5 (random 1.0)))))
Code: Select all
(defun save-data()
(with-open-file (stream "deseases.dat" :direction :output)
(format stream "~S" glob)))
Code: Select all
(defvar glob nil)