3 lines
132 B
Forth
3 lines
132 B
Forth
: hypot ( a b -- a^2 + b^2 )
|
|
LOCALS| b a | \ note: reverse order from the conventional stack comment
|
|
b b * a a * + ;
|