RosettaCodeData/Task/Conditional-structures/Oforth/conditional-structures-3.fth

5 lines
116 B
Forth

Number virtual: sgn
self isPositive
ifTrue: [ self ==0 ifTrue: [ 0 ] else: [ 1 ] ]
else: [ -1 ] ;