http://snippets.dzone.com/posts Thu, 24 Jul 2008 00:04:51 GMT DZone Snippets: gen-sym code http://snippets.dzone.com/posts/show/1150 <code> <br />REBOL [ <br /> Title: "Unique symbol generator" <br />] <br /> <br />gen-sym-ctx: context [ <br /> prefix: "&" <br /> counter: 0 <br /> clear: does [counter: 0] <br /> set-prefix: func [value] [prefix: form value] <br /> set 'gen-sym does [ <br /> counter: counter + 1 <br /> to word! join prefix counter <br /> ] <br />] <br /> <br />repeat i 5 [print gen-sym] <br />gen-sym-ctx/set-prefix 'G <br />gen-sym-ctx/clear <br />repeat i 5 [print gen-sym] <br /></code> Fri, 13 Jan 2006 04:19:51 GMT http://snippets.dzone.com/posts/show/1150 gregg.irwin (Gregg Irwin)