RosettaCodeData/Task/Conditional-structures/Oforth/conditional-structures-3.oforth
2016-12-05 23:44:36 +01:00

4 lines
116 B
Text

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