22 lines
664 B
AppleScript
22 lines
664 B
AppleScript
set n to 12 -- Size of table.
|
|
repeat with x from 0 to n
|
|
if x = 0 then set {table, x} to {{return}, -1}
|
|
repeat with y from 0 to n
|
|
if y's contents = 0 then
|
|
if x > 0 then set row to {f(x)}
|
|
if x = -1 then set {row, x} to {{f("x")}, 1}
|
|
else
|
|
if y ≥ x then set end of row to f(x * y)
|
|
if y < x then set end of row to f("")
|
|
end if
|
|
end repeat
|
|
set end of table to row & return
|
|
end repeat
|
|
return table as string
|
|
|
|
-- Handler/Function for formatting fixed width integer string.
|
|
on f(x)
|
|
set text item delimiters to ""
|
|
return (characters -4 thru -1 of (" " & x)) as string
|
|
end f
|