"Generate a list of numbers between 0 and N-1."
(loop :for i :below n :collect i))
+ "Generate the equivalent of (COERCE (IOTA N) 'VECTOR)."
+ (loop :with a := (make-array n :initial-element 0)
+ :do (setf (aref a i) i)
"Generate a list of numbers between 1 and N."
(loop :for i :from 1 :to n :collect i))
(reduce '* list :key key :initial-value 1))
+ "Return the sign of X."
(defun hash-table-key-exists-p (hash-table key)
"Check of KEY exists in HASH-TABLE."
(multiple-value-bind (val existsp) (gethash key hash-table)