get-operator ( operators -- word )

Vocabulary

24-game

Inputs

operators

an object

Outputs

word

an object

Definition

USING: formatting io kernel ;

IN: 24-game

: get-operator ( operators -- word )
    [ "Operators: %u\n" printf flush ] [
        [ readln find-operator ]
        [ "Operator not found..." print get-operator ] ?unless
    ] bi ;