[REBOL] Re: Sort by first part of line

From: al:bri:xtra at: 7-Sep-2002 23:21

This script is a bit shorter:

Rebol []

Then: now/time
write/lines %Sorted.txt extract/index sort/skip map read/lines %test.txt
func [Line [string!]] [
    trim Line
    if not empty? Line [
        reduce [
            first load/next Line
            Line
            ]
        ]
    ] 2 2 2
print now/time - Then
halt

Still no difference in time though, about 2 seconds.

Andrew Martin
ICQ: 26227169 http://valley.150m.com/

1 · 2 · 3 · 4 · 5 ... 33 · 34 · [35] · 36 · 37 ... 58 · 59 · 60 · 61 · 62 · See whole thread