print-row ( n -- )

Vocabulary

rosetta-code.multiplication-tables

Inputs

n

an object

Outputs

None

Definition

USING: io kernel math math.parser ranges sequences ;

IN: rosetta-code.multiplication-tables

: print-row ( n -- )
    [ number>string 2 32 pad-head write " |" write ]
    [ 1 - [ "    " write ] times ] [
        dup 12 [a..b]
        [ * number>string 4 32 pad-head write ] with each
    ] tri nl ;