13 lines
197 B
Tal
13 lines
197 B
Tal
|
@on-reset ( -> )
|
||
|
#0b #14 #18 tak
|
||
|
#010e DEO
|
||
|
BRK
|
||
|
|
||
|
@tak ( z y x -- res )
|
||
|
LTHk ?{ POP2 JMP2r }
|
||
|
ROT ROTk ROTk
|
||
|
( x-1 ) #01 SUB tak STH
|
||
|
( y-1 ) #01 SUB tak STH
|
||
|
( z-1 ) #01 SUB tak STHr STHr !tak
|
||
|
|