Anonymous user
Sort three variables: Difference between revisions
→{{header|Nanoquery}}
Alextretyak (talk | contribs) (Added 11l) |
|||
Line 1,766:
0
77444</pre>
=={{header|Nim}}==
<lang nim>
proc sortthree[T](a,b,c:var T) =
#bubble sort, why not
while not(a <= b and b <= c):
if a>b: swap a,b
if b>c: swap b,c
proc testwith[T](a,b,c:T) =
var (x,y,z) = (a,b,c)
echo "Before: ",x,", ",y,", ",z
sortthree(x,y,z)
echo "After: ",x,", ",y,", ",z
testwith(6,4,2)
testwith(0.9,-37.1,4.0)
testwith("lions","tigers","bears")</lang>
{{out}}
<pre>Before: 6, 4, 2
After: 2, 4, 6
Before: 0.9, -37.1, 4.0
After: -37.1, 0.9, 4.0
Before: lions, tigers, bears
After: bears, lions, tigers</pre>
=={{header|OCaml}}==
| |||