List Commands Library for 50g

[Gilles59]

(08-13-2017 04:59 PM)DavidM Wrote:  

(08-13-2017 04:22 PM)Werner Wrote:  { {7, "longest"} {6 "longer"} {4 "long"} }
SORT

returns

{ {4 "long"} {6 "longer"} {7, "longest"} }

Combining the two lists:

Code:

{ "longest" "longer" "long" }
{ 7 6 4 }

into the needed format is simple enough with:

Code:

DUP SIZE LSDIV SWAP ADD

...which then leaves it to the user to choose which sort they want to use. After sorting, the combined list elements can be easily separated again if needed:

Code:

LCLLT 2 LSDIV LRLL EVAL

With gofer list you can do

Zip SORT Unzip

Code:


Zip        xs ys -> xss        { 1 2 3 } { A B C } Zip
                    -> { { 1 A } { 2 B } { 3 C } }

Unzip        xss -> xs ys        { {1 A} {2 B} {3 C} } Unzip
                    -> { 1 2 3 } { A B C }

There are also Zip3 and Unzip3 (but no ZipN)

There is also a Sort command in GoferList with the syntax :
{ my list } << how to sort >> Sort
but if the idea seems goods it is not stable at all and crash easily the system. In our exemple could be
{ "longest" "longer" "long" } << SIZE >> Sort
But this dont work and crash badly : DONT TRY THIS
But you can easily write your own command for this syntax in User RPL. Idea :

Code:

« { "longest" "long" "longer" } 
   DUP « SIZE » DOLIST SWAP Zip SORT Unzip NIP »

I imagine a DOSORT command :
{ list to sort } << How to sort>> DOSORT

Internally The DOSORT program could use the native SORT

example

{ 1. 123 "xyz" "abc" 'y=a*x*+b' } << TYPE >> DOSORT
{ -1 5 66 -89 33 } << ABS >> DOSORT
{ "Z" "a" "B" "d" } << UPCASE >> DOSORT

etc.