run-one-question ( question -- question/f )

Vocabulary

quiz

Inputs

question

an object

Outputs

question/f

an object

Definition

USING: combinators io ;

IN: quiz

: run-one-question ( question -- question/f )
    {
        [ generate-question ]
        [ ask-question ]
        [ readln score-question nl nl ]
    } cleave ;