A short history of sets ;)
[1/1] from: nitsch-lists::netcologne::de at: 30-Mar-2004 23:40
REBOL [
Title: "History-demo"
]
hist: copy/deep[]
curr: copy[]
upd: func[block][
repend hist[exclude curr block exclude block curr]
curr: copy/deep block
? curr ? hist
]
b: copy[]
append b 1 upd b
append b 2 upd b
append b [3 3.1] upd b
remove next b upd b
insert b 4 upd b
print "rebuilding"
curr: copy[]
foreach [rem app] hist[
curr: exclude curr rem
append curr app
? curr
]