print-doors ( doors -- )

Vocabulary

rosetta-code.100-doors

Inputs

doors

an object

Outputs

None

Definition

USING: formatting kernel sequences ;

IN: rosetta-code.100-doors

: print-doors ( doors -- )
    [ swap "open" "closed" ? "Door %d is %s\n" printf ]
    each-index ;