[REBOL] Re: Sort by first part of line

[Andrew Martin]

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/
-><-


-- 
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the 
subject, without the quotes.