Random list element.

dardoria · Mar 1, 2012 · 1c3ad3d · 1c3ad3d
1 parent 4555f0c
commit 1c3ad3d
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 2 deletions.
diff --git a/package.lisp b/package.lisp
@@ -101,4 +101,5 @@
    #:make-curve
    ;;utils
    #:radian
-   #:random-range))
+   #:random-range
+   #:random-element))
diff --git a/utils.lisp b/utils.lisp
@@ -36,4 +36,7 @@
          (let ((range (- y x)))
            (when (rationalp range)
              (setf range (coerce range 'float)))
-           (+ x (random range ))))))
+           (+ x (random range ))))))
+
+(defun random-element (sequence)
+  (nth (random (length sequence)) sequence))