Overview
Artifact ID: | a439b4020435efa5f74620ec0d646503cf185b0a |
---|---|
Ticket: | 0d2bcd9544735adea2d2c3aabd5f0d1e222cb4fc
"lgroup" to regroup a list |
User & Date: | anonymous 2014-01-12 00:42:44 |
Changes
- comment changed to:
~ Prototype lgroup listIn lengthOfSublist ?stepForward? stepForward defaults to $lengthOfSublist ~ Example set l {a b c d e f g h} lgroup $l 4 # {a b c d} {e f g h} lgroup $l 3 # {a b c} {d e f} {g h} lgroup $l 1 # a b c d e f g h lgroup $l 0 # {} lgroup $l -1 # error lgroup $l 3 2 # {a b c} {c d e} {e f g} {g h} lgroup $l 2 3 # {a b} {d e} {g h} ~ Usefulness This can be used to rearrange results returned by SQLite3. ~ Incomplete implementation Since I just use it to process what SQLite3 returns, I have ignored the "stepForward". I think rewrite it in C will speed it up. I didn't check whether $lengthOfSublist is a negative number or zero. proc lgroup {listIn lengthOfSublist} { set i 0 foreach it $listIn { lappend tmp $it if {[llength $tmp] == $lengthOfSublist} { lappend result $tmp set tmp {} } incr i } if {[expr [llength $listIn] % $lengthOfSublist] != 0} { lappend result $tmp } return $result }
- login: "anonymous"
- mimetype: "text/plain"