[REBOL] unique entry Re:

[icimjs]

Hi Francois,

I copied and pasted your data into a file that I called unique.dat. 
I wrote a little script and put it in the file unique.r

Here's the script:

REBOL []

data: read/lines %unique.dat

get-column: func [ table [block!] column [integer!] /local result] [
  result: make block! length? table
  foreach entry table [
    append result pick parse entry none column
  ]
  return result
]

unique?: func [item [string!] column [integer!] table [block!]] [
  table: get-column table column
  return empty? intersect reduce [item] table  
]

save-record: func [ "dummy function. displays data that should be saved"
record ] [
  print ["saved:" mold record]
]

unique-data?: func [] [
  forall data [
    date: first parse first data none
    next-data: next data
    either unique? date 1 next-data [
      save-record first data
    ] [
      print "found duplicate"
    ]
  ]
  data: head data
  print "done"
]
  
unique-data?




;- Elan >> [: - )]