Script Library: 1238 scripts
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

Discussion posts for script multiple-key-sort.r

1
coccinelle
12-May-2006 14:58
Compare function are very slow. To achieve the same sort capability, 
a function like this is much more efficient :

multi-sort: func [
    serie [series!]
    order [block!]
    /local
][
    foreach local reverse order [
        either negative? local [

            serie: sort/skip/compare/reverse serie length? order abs local
        ] [

            serie: sort/skip/compare serie length? order reduce local
        ]
    ]
    serie
]

Example :
>> multi-sort [1 2 1 2 1 3 2 1 2 2] [-1 2]
== [2 1 2 2 1 2 1 2 1 3]
>> multi-sort [1 2 1 2 1 3 2 1 2 2] [1 -2]
== [1 3 1 2 1 2 2 2 2 1]
>>
2
johnsjvi95
9-Sep-2021 9:31
REBOL

This is interesting! Will save this for future reference.

Contents:

Retaining Walls Carlsbad

MakeDoc2 by REBOL- 9-Sep-2021
3
mandiripinja
5-Dec-2022 8:07

pinjaman dana jaminan bpkb mobil cepat hanya 1 hari bisa langsung cair dengan suku bunga rendah serta tanpa survey dan bpkb mobil aman untuk seluruh wilayah indonesia.

https://www.justgiving.com/fundraising/mandiripinjamandana

https://ameblo.jp/mandiripinjamandana/entry-12680765607.html

https://ameblo.jp/mandiripinjamandana/entry-12680767540.html

https://ameblo.jp/mandiripinjamandana/entry-12680769727.html

https://ameblo.jp/mandiripinjamandana/entry-12680770493.html

https://ameblo.jp/mandiripinjamandana/entry-12680771364.html

https://ameblo.jp/mandiripinjamandana/entry-12680785558.html

https://ameblo.jp/mandiripinjamandana/entry-12680786359.html

https://ameblo.jp/mandiripinjamandana/entry-12680787122.html

https://ameblo.jp/mandiripinjamandana/entry-12680787855.html

https://ameblo.jp/mandiripinjamandana/entry-12680788647.html

https://ameblo.jp/mandiripinjamandana/entry-12680789550.html

https://ameblo.jp/mandiripinjamandana/entry-12680790188.html

https://ameblo.jp/mandiripinjamandana/entry-12680790735.html

https://ameblo.jp/mandiripinjamandana/entry-12680791419.html

https://ameblo.jp/mandiripinjamandana/entry-12680792163.html

https://ameblo.jp/mandiripinjamandana/entry-12680792608.html

https://ameblo.jp/mandiripinjamandana/entry-12680793459.html

https://ameblo.jp/mandiripinjamandana/entry-12680793916.html

https://ameblo.jp/mandiripinjamandana/entry-12680794272.html

https://ameblo.jp/mandiripinjamandana/entry-12680794619.html

https://ameblo.jp/mandiripinjamandana/entry-12680794959.html

https://ameblo.jp/mandiripinjamandana/entry-12680795284.html

https://ameblo.jp/mandiripinjamandana/entry-12680795637.html

4
odonnellmon
22-Dec-2022 0:37
REBOL

We’ll work with you to develop a maintenance schedule that fits your needs and budget.

Contents:

https://towingframingham.com

MakeDoc2 by REBOL- 22-Dec-2022
5
richardsjenk
22-Dec-2022 0:48
REBOL

Your truck’s brakes are vital to its safety and performance, so it’s important to have a reliable 24/7 emergency roadside brake service

Contents:

https://bocaratonautoglassrepair.com

MakeDoc2 by REBOL- 22-Dec-2022
6
miyaka22
28-Dec-2022 7:27
REBOL

Hi, Is there any way to sort a file in cshell by sort command, sorting it by multiple fields, like to sort it first by the second column.

Contents:

Regards from event photographers austin!

MakeDoc2 by REBOL- 28-Dec-2022
7
crutcherhuyn
18-Jan-2023 15:19
REBOL

I think this will be a great help for our company. Thanks for sharing this script to us.

Contents:

www.gladiatorguttersmn.com

MakeDoc2 by REBOL- 18-Jan-2023
8
crutcherhuyn
13-Mar-2023 17:21
REBOL

We have the tools and experience to diagnose any kind of truck problem.

Contents:

truck repair company

MakeDoc2 by REBOL- 13-Mar-2023
9
crutcherhuyn
3-Feb 7:55
REBOL

roofingwhangarei.nz

A reliable roof not only protects the structural integrity of homes but also safeguards residents and their belongings from the elements.

Contents:

MakeDoc2 by REBOL- 3-Feb-2024