|
@@ -45,4 +45,4 @@
|
|
(flip-coin *standard-output* times))
|
|
(flip-coin *standard-output* times))
|
|
(t
|
|
(t
|
|
(format *standard-output*
|
|
(format *standard-output*
|
|
- "make-decision [ die [ times [ type ] ] | coin [ times ] ]~&")))))
|
|
|
|
|
|
+ "decide [ die [ times [ type ] ] | coin [ times ] ]~&")))))
|