Paste: 9x9 multiplication table

Author: bluebat
Mode: factor
Date: Fri, 4 Mar 2022 14:05:48
Plain Text | 
USING: byte-arrays io io.encodings.ascii io.encodings.string
kernel math prettyprint ranges sequences ;
1 9 3 <range> [
    9 [1..b] [
        over dup
        2 + 1 <range> [
            2dup
            pprint "x" write
            pprint "=" write
            over * dup 10 < [ bl pprint ] [ pprint ] if
            9 1byte-array ascii decode write
        ] each
        drop
        10 1byte-array ascii decode write
    ] each
    drop
    nl
] each

New Annotation

Summary:
Author:
Mode:
Body: