|
{sort takes a list of space-separated integers}
|
|
(sort=
|
|
sum elem sorted n
|
|
. 0:?sum
|
|
& whl
|
|
' (!arg:%?elem ?arg&(!elem.)+!sum:?sum)
|
|
& :?sorted
|
|
& whl
|
|
' ( !sum:?n*(?elem.)+?sum
|
|
& whl
|
|
' ( !n+-1:~<0:?n
|
|
& !sorted !elem:?sorted
|
|
)
|
|
)
|
|
& !sorted);
|
|
|
|
out$sort$(9 -2 1 2 8 0 1 2);
|