Never been to DZone Snippets before?

Snippets is a public source code repository. Easily build up your personal collection of code snippets, categorize them with tags / keywords, and share them with the world

« Newer Snippets
Older Snippets »
Showing 1-1 of 1 total  RSS 

gen-sym

REBOL [
    Title: "Unique symbol generator"
]

gen-sym-ctx: context [
    prefix: "&"
    counter: 0
    clear: does [counter: 0]
    set-prefix: func [value] [prefix: form value]
    set 'gen-sym does [
        counter: counter + 1
        to word! join prefix counter
    ]
]

repeat i 5 [print gen-sym]
gen-sym-ctx/set-prefix 'G
gen-sym-ctx/clear
repeat i 5 [print gen-sym]
to generator REBOL symbol gen-sym by gregg.irwin on Jan 12, 2006
« Newer Snippets
Older Snippets »
Showing 1-1 of 1 total  RSS