score-quiz ( seq -- )

Vocabulary

quiz

Inputs

seq

an object

Outputs

None

Definition

USING: accessors formatting kernel math sequences ;

IN: quiz

: score-quiz ( seq -- )
    [ [ correct?>> ] count ] [ length ] bi
    [ drop 0.0 ] [ /f ] if-zero 100 * "SCORE: %d%%\n" printf ;