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>> . ;