12 lines
522 B
Forth
12 lines
522 B
Forth
|
ident 10;;
|
||
|
|
val it : int [,] = [[1; 0; 0; 0; 0; 0; 0; 0; 0; 0]
|
||
|
|
[0; 1; 0; 0; 0; 0; 0; 0; 0; 0]
|
||
|
|
[0; 0; 1; 0; 0; 0; 0; 0; 0; 0]
|
||
|
|
[0; 0; 0; 1; 0; 0; 0; 0; 0; 0]
|
||
|
|
[0; 0; 0; 0; 1; 0; 0; 0; 0; 0]
|
||
|
|
[0; 0; 0; 0; 0; 1; 0; 0; 0; 0]
|
||
|
|
[0; 0; 0; 0; 0; 0; 1; 0; 0; 0]
|
||
|
|
[0; 0; 0; 0; 0; 0; 0; 1; 0; 0]
|
||
|
|
[0; 0; 0; 0; 0; 0; 0; 0; 1; 0]
|
||
|
|
[0; 0; 0; 0; 0; 0; 0; 0; 0; 1]]
|