22 lines
229 B
Forth
22 lines
229 B
Forth
|
fn abs n: int -> _/eax: int {
|
||
|
compare n, 0
|
||
|
{
|
||
|
break-if->=
|
||
|
negate n
|
||
|
}
|
||
|
return n
|
||
|
}
|
||
|
|
||
|
fn sgn n: int -> _/eax: int {
|
||
|
compare n, 0
|
||
|
{
|
||
|
break-if-<=
|
||
|
return 1
|
||
|
}
|
||
|
{
|
||
|
break-if->=
|
||
|
return -1
|
||
|
}
|
||
|
return 0
|
||
|
}
|