31 lines
496 B
Text
31 lines
496 B
Text
include ..\Utilitys.tlhy
|
|
|
|
|
|
%Size 5 !Size
|
|
0 ( $Size dup ) dim
|
|
|
|
%i 1 !i %j 1 !j
|
|
|
|
|
|
$Size 2 power [
|
|
1 -
|
|
( $i $j ) set
|
|
$i $j + 1 band 0 == (
|
|
[$j $Size < ( [$j 1 + !j] [$i 2 + !i] ) if
|
|
$i 1 > [ $i 1 - !i] if ]
|
|
[$i $Size < ( [$i 1 + !i] [$j 2 + !j] ) if
|
|
$j 1 > [ $j 1 - !j] if ]
|
|
) if
|
|
] for
|
|
|
|
$Size [
|
|
%row !row
|
|
$Size [
|
|
%col !col
|
|
( $row $col ) get tostr 32 32 chain chain 1 3 slice print drop
|
|
] for
|
|
nl
|
|
] for
|
|
|
|
|
|
nl "End " input
|