Handbook
Glossary
ask-question ( question -- )
Vocabulary
quiz
Inputs
question
an
object
Outputs
None
Definition
IN:
quiz
GENERIC:
ask-question
( question -- )
Methods
USING:
accessors
io
kernel
prettyprint
quiz
sequences
;
M:
multiple-choice-question
ask-question
[
generated>>
.
]
[
choices>>
[
first2
swap
" ("
") "
surround
write
...
]
each
flush
]
bi
;
USING:
accessors
prettyprint
quiz
;
M:
number-response
ask-question
generated>>
.
;
USING:
accessors
prettyprint
quiz
;
M:
question
ask-question
generated>>
.
;
USING:
accessors
prettyprint
quiz
;
M:
string-response
ask-question
generated>>
.
;