http://snippets.dzone.com/posts Sun, 18 May 2008 08:03:39 GMT DZone Snippets: subdivide code http://snippets.dzone.com/posts/show/1126 <code> <br /> split: chunk: segment: func [ ; subdivide ? <br /> {See: CLOS pg. 937. Not that mine works the same, but that was <br /> the inspiration.} <br /> series [series!] <br /> size [integer!] "The size of the chunks (last chunk may be shorter)" <br /> /into "split into a set number (size) of chunks (last chunk may be longer than others)." <br /> /local ct cur-piece result <br /> ][ <br /> ct: either into [size] [round/down divide length? series size] <br /> if into [size: to-integer divide length? series size] <br /> result: copy [] <br /> if zero? size [return result] <br /> parse series [ <br /> ct [ <br /> copy cur-piece size skip (append/only result cur-piece) mark: <br /> ] <br /> ] <br /> if any [into not zero? remainder length? series size] [ <br /> cur-piece: copy mark <br /> either into <br /> [append last result cur-piece] <br /> [append/only result cur-piece] <br /> ] <br /> result <br /> ] <br /></code> Tue, 10 Jan 2006 06:20:13 GMT http://snippets.dzone.com/posts/show/1126 gregg.irwin (Gregg Irwin)