Parent Directory | Revision Log | Patch
revision 1.1 by pfdietz, Tue Jun 10 00:05:35 2003 UTC | revision 1.2 by pfdietz, Sat Aug 9 18:13:35 2003 UTC | |
---|---|---|
# | Line 16 | Line 16 |
16 | (assert (> len 0)) | (assert (> len 0)) |
17 | `(case (random ,len) | `(case (random ,len) |
18 | ,@(loop for i from 0 for e in cases collect `(,i ,e)) | ,@(loop for i from 0 for e in cases collect `(,i ,e)) |
19 | (t (error "Can't happen?! (in random-case~%"))))) | (t (error "Can't happen?! (in random-case)~%"))))) |
20 | ||
21 | (defun coin (&optional (n 2)) | (defun coin (&optional (n 2)) |
22 | "Flip an n-sided coin." | "Flip an n-sided coin." |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |