6 lines
105 B
Factor
6 lines
105 B
Factor
|
"bloop" search [
|
||
|
|
get [
|
||
|
|
"abs" search [ execute( n -- n' ) ] when*
|
||
|
|
] [ 0 ] if*
|
||
|
|
] [ 0 ] if*
|