22 lines
445 B
Text
22 lines
445 B
Text
( (Joe,5531)
|
|
(Adam,2341)
|
|
(Bernie,122)
|
|
(Walter,1234)
|
|
(David,19)
|
|
: ?array
|
|
& 0:?sum
|
|
& whl
|
|
' ( !array:(?car,?cdr) ?array
|
|
& (!cdr.!car)+!sum:?sum
|
|
)
|
|
& whl
|
|
' ( !sum:(?car.?cdr)+?sum
|
|
& (!cdr,!car) !array:?array
|
|
)
|
|
& out$("Array after sorting on second field (descending order):" !array \n)
|
|
& out
|
|
$ ( "Array after sorting on second field (ascending order):"
|
|
reverse$!array
|
|
\n
|
|
)
|
|
);
|