Anonymous user
Sort three variables: Difference between revisions
→{{header|Integers}}
Line 464:
: SORT3INTS ( a b c -- c b a) ?SWAP >R ?SWAP R> ?SWAP ;</LANG>
Testing is done using the Forth console using '.S' to view the Data stack contents.
<pre> ok
.S <3>
SORT3INTS ok
.S <3>
</PRE>
| |||