print-puzzle ( hash-array -- )

Vocabulary

logic.examples.money

Inputs

hash-array

an object

Outputs

None

Definition

USING: assocs formatting io lists sequences ;

IN: logic.examples.money

:: print-puzzle ( hash-array -- )
    hash-array [| hash |
        "   " printf hash N1 of [ "%d " printf ] leach
        nl "+  " printf hash N2 of [ "%d " printf ] leach
        nl "----------------" printf nl "   " printf hash N of
        [ "%d " printf ] leach nl nl
    ] each ;