http://snippets.dzone.com/posts Wed, 23 Jul 2008 09:53:55 GMT DZone Snippets: money-bag code http://snippets.dzone.com/posts/show/1148 <code> <br />REBOL [] <br /> <br />money-bag: context [ <br /> data: copy [] <br /> <br /> insert: func [value [money!] /local found] [ <br /> repeat i length? data [ <br /> if (first value) = (first data/:i) [ <br /> poke data i add data/:i value <br /> found: true <br /> break <br /> ] <br /> ] <br /> if not found [append data value] <br /> ] <br /> <br /> remove: func [value [money!] /local found] [ <br /> repeat i length? data [ <br /> if (first value) = (first data/:i) [ <br /> poke data i subtract data/:i value <br /> found: true <br /> break <br /> ] <br /> ] <br /> if not found [alert "That denomination wasn't found in the bag"] <br /> ] <br /> <br /> ; no conversions yet. <br /> total: has [result] [ <br /> result: 0 <br /> foreach value data [result: result + second value] <br /> result <br /> ] <br /> <br /> show: does [probe data] <br />] <br /> <br />ins: func [val] [bag/insert val bag/show] <br />rem: func [val] [bag/remove val bag/show] <br /> <br />bag: make money-bag [] <br />ins $100 <br />ins USD$100 <br />ins DEM$100 <br />ins USD$200 <br />rem $50 <br />print bag/total <br /> <br />halt <br /></code> Fri, 13 Jan 2006 04:14:04 GMT http://snippets.dzone.com/posts/show/1148 gregg.irwin (Gregg Irwin)