Anonymous user
Sorting algorithms/Sleep sort: Difference between revisions
→{{header|Delphi}}
Line 378:
0 0 0 1 1 2 3 4 4 4 5 6 7 10 12 12
</pre>
=={{header|Elena}}==
ELENA 3.2.1 :
<lang elena>import extensions.
import system'routines.
import extensions'threading.
extension $op
{
sleepSort
[
self forEach(:n)
[
threadControl start:
[
var a := 1000 * n.
threadControl sleep(1000 * n).
console printLine(n).
].
]
]
}
program =
[
'program'arguments skipping:1; selectBy(%"convertorOp.toInt"); toArray; sleepSort.
console readChar.
].</lang>
=={{header|Elixir}}==
| |||