13 lines
231 B
Text
13 lines
231 B
Text
to mult.table :n
|
|
type "| | for [i 2 :n] [type form :i 4 0] (print)
|
|
(print)
|
|
for [i 2 :n] [
|
|
type form :i 2 0
|
|
for [j 2 :n] [
|
|
type ifelse :i > :j ["| |] [form :i*:j 4 0]
|
|
]
|
|
(print)
|
|
]
|
|
end
|
|
|
|
mult.table 12
|