print-table ( -- )

Vocabulary

rosetta-code.multiplication-tables

Inputs

None

Outputs

None

Definition

USING: io math math.parser ranges sequences ;

IN: rosetta-code.multiplication-tables

: print-table ( -- )
    "    " write 1 12 [a..b]
    [ number>string 4 32 pad-head write ] each nl "   +" write
    12 [ "----" write ] times nl 1 12 [a..b] [ print-row ] each
    ;