Sort three variables: Difference between revisions

Content added Content deleted

Inline

@@ Line 885: / Line 885: @@
 =={{header|IS-BASIC}}==
-{{Output?}}
 <lang IS-BASIC>100 LET X=77444:LET Y=-12:LET Z=0
-CALL SHORT(X,Y,Z)
+PRINT X,Y,Z
-PRINT X;Y;Z
+CALL SHORT(X,Y,Z)
+PRINT X;Y;Z
-DEF SWAP(REF A,REF B)
-LET T=A:LET A=B:LET B=T
+DEF SWAP(REF A,REF B)
+LET T=A:LET A=B:LET B=T
-END DEF
-DEF SHORT(REF A,REF B,REF C)
+END DEF
-FOR I=1 TO 2
+DEF SHORT(REF A,REF B,REF C)
-IF A>B THEN CALL SWAP(A,B)
+FOR I=1 TO 2
-IF B>C THEN CALL SWAP(B,C)
+IF A>B THEN CALL SWAP(A,B)
+IF B>C THEN CALL SWAP(B,C)
-NEXT
-END DEF</lang>
+NEXT
+END DEF</lang>
+{{out}}
+<pre> 77444 -12  0
+-12  0  77444</pre>
 =={{header|J}}==