[REBOL] Re: Sort by first part of line
From: al:bri:xtra at: 6-Sep-2002 16:43
Here's my quick version:
Rebol []
Data: {003 apo twn presbuterwn kai arcierewn kai grammatewn
002 umwn merimnwn dunatai prosqeinai epi thn hlikian
002 umin anasthsei kurioj o qeoj umwn ek twn adelfwn
}
write %Sort.txt Data
Data: sort/skip map read/lines %Sort.txt function [Line [string!]] [Loaded]
[
Loaded: load/next trim Line
reduce [
Loaded/1
trim Loaded/2
]
] 2
probe Data
halt
Andrew Martin
ICQ: 26227169 http://valley.150m.com/