Sort three variables: Difference between revisions
Content added Content deleted
Alextretyak (talk | contribs) (Added 11l) |
|||
Line 1,766: | Line 1,766: | ||
0 |
0 |
||
77444</pre> |
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}}== |
=={{header|OCaml}}== |