;; Dribble of #<IO TERMINAL-STREAM> started 2009-02-10 12:19:13
#<OUTPUT BUFFERED FILE-STREAM CHARACTER #P"/Users/zduric/Desktop/cs480-2-10-09.txt">
[24]> (defun mistery (x)
  (mapcar #'(lambda (y) (if (numberp y) HELLO BYE)) x))
MISTERY
[25]> (defun ListNonNumbers (x)
  (mapcar #'(lambda (y) (if (numberp y) nil (list y))) x))
LISTNONNUMBERS
[26]> (random 1)
0
[27]> (random 1.0)
0.2637676
[28]> (random 2/3)
2/3
[29]> (random 2/3)
2/3
[30]> (random 22/3)
22/3
[31]> (random 22/3)
22/3
[32]> (random 22)
4
[33]> (random 22)
9
[34]> (random 22)
14
[35]> (random 22)
4
[36]> (random 22)
3
[37]> (random 22)
8
[38]> (defun random_shuffle (s)
      (do ((new-l nil))
(defun random_shuffle (s)
      (do ((new-l nil) (i 0))
(defun random_shuffle (s)
      (do ((new-l nil))
(defun random_shuffle (s)
      (do ((new-l nil) (i 0))
          ((null s) new-l)
          (setf i (random (length s))) 
          (setf new-l (cons (nth i s) new-l))
          (setf s (remove (nth i s) s))))
)

)
))))
RANDOM_SHUFFLE
[39]> (defun random_shuffle (s)
      (do ((new-l nil))
(defun random_shuffle (s)
      (do ((new-l nil) (i 0))
(defun random_shuffle (s)
      (do ((new-l nil))
(defun random_shuffle (s)
      (do ((new-l nil) (i 0))
          ((null s) new-l)
          (setf i (random (length s))) 
          (setf new-l (cons (nth i s) new-l))
          (setf s (remove (nth i s) s))))
)
)
))))
RANDOM_SHUFFLE
[40]> (defun random_shuffle (s)
      (do ((new-l nil) (i 0))
          ((null s) new-l)
          (setf i (random (length s))) 
          (setf new-l (cons (nth i s) new-l))
          (setf s (remove (nth i s) s))))
RANDOM_SHUFFLE
[41]> 
(random_shuffle '(1 2 3 4 5 6 7))
(4 7 3 1 5 2 6)
[42]> (random_shuffle '((A S) (Q H) (K D) (A D) (J C)))
((K D) (Q H) (A S) (J C) (A D))
[43]> (dribble)
;; Dribble of #<IO TERMINAL-STREAM> finished 2009-02-10 12:48:11