Initial data commit
This commit is contained in:
parent
72d218235f
commit
f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
42
Task/Multiplication-tables/Neko/multiplication-tables.neko
Normal file
42
Task/Multiplication-tables/Neko/multiplication-tables.neko
Normal file
|
|
@ -0,0 +1,42 @@
|
|||
/**
|
||||
Multiplication table, in Neko
|
||||
Tectonics:
|
||||
nekoc multiplication-table.neko
|
||||
neko multiplication-table
|
||||
*/
|
||||
|
||||
var sprintf = $loader.loadprim("std@sprintf", 2);
|
||||
|
||||
var i, j;
|
||||
|
||||
i = 1;
|
||||
$print(" X |");
|
||||
while i < 13 {
|
||||
$print(sprintf("%4d", i));
|
||||
i += 1;
|
||||
}
|
||||
$print("\n");
|
||||
$print(" ---+");
|
||||
i = 1;
|
||||
while i < 13 {
|
||||
$print("----");
|
||||
i += 1;
|
||||
}
|
||||
$print("\n");
|
||||
|
||||
j = 1;
|
||||
while j < 13 {
|
||||
$print(sprintf("%3d", j));
|
||||
$print(" |");
|
||||
i = 1;
|
||||
while i < 13 {
|
||||
if j > i {
|
||||
$print(" ");
|
||||
} else {
|
||||
$print(sprintf("%4d", i*j));
|
||||
}
|
||||
i += 1;
|
||||
}
|
||||
$print("\n");
|
||||
j += 1;
|
||||
}
|
||||
Loading…
Add table
Add a link
Reference in a new issue