17 lines
252 B
Text
17 lines
252 B
Text
( 1000001:?i
|
|
& whl
|
|
' ( !i+-2:>0:?i
|
|
& !i:?L
|
|
& whl'(!L^1/2:#?^1/2&@(!L:% ?L))
|
|
& !L:~
|
|
)
|
|
& out$("left:" !i)
|
|
& 1000001:?i
|
|
& whl
|
|
' ( !i+-2:>0:?i
|
|
& !i:?R
|
|
& whl'(!R^1/2:#?^1/2&@(!R:?R %@))
|
|
& !R:~
|
|
)
|
|
& out$("right:" !i)
|
|
)
|