11 lines
347 B
Text
11 lines
347 B
Text
@program me:@tables
|
|
player:tell(" | 1 2 3 4 5 6 7 8 9 10 11 12");
|
|
player:tell($string_utils:space(67, "-"));
|
|
for i in [1..12]
|
|
line = " " + $string_utils:right(i, 2) + " | ";
|
|
for j in [1..12]
|
|
line = line + " " + ((i > j) ? " " | $string_utils:right(j*i, 3));
|
|
endfor
|
|
player:tell(line);
|
|
endfor
|
|
.
|