Artifact
8737ac12889bb031ee6cc1b29671875aa3702e24:
Ticket change
[8737ac1288]
- Ticket
[0d2bcd9544] "lgroup" to regroup a list status still Open with 6 other changes
by
dkf
2014-01-12 21:56:37.
D 2014-01-12T21:56:37.968
J assignee dkf
J comment ~\sPrototype\r\n\r\nlgroup\slistIn\slengthOfSublist\s?stepForward?\r\n\r\nstepForward\sdefaults\sto\s$lengthOfSublist\r\n\r\n~\sExample\r\n\r\nset\sl\s{a\sb\sc\sd\se\sf\sg\sh}\r\nlgroup\s$l\s4\s#\s{a\sb\sc\sd}\s{e\sf\sg\sh}\r\nlgroup\s$l\s3\s#\s{a\sb\sc}\s{d\se\sf}\s{g\sh}\r\nlgroup\s$l\s1\s#\sa\sb\sc\sd\se\sf\sg\sh\r\nlgroup\s$l\s0\s#\s{a\sb\sc\sd\se\sf\sg\sh}\r\nlgroup\s$l\s-1\s#\serror\r\nlgroup\s$l\s3\s2\s#\s{a\sb\sc}\s{c\sd\se}\s{e\sf\sg}\s{g\sh}\r\nlgroup\s$l\s2\s3\s#\s{a\sb}\s{d\se}\s{g\sh}\r\n\r\n~\sUsefulness\r\n\r\nThis\scan\sbe\sused\sto\srearrange\sresults\sreturned\sby\sSQLite3.\r\n\r\n~\sIncomplete\simplementation\r\n\r\nSince\sI\sjust\suse\sit\sto\sprocess\swhat\sSQLite3\sreturns,\sI\shave\signored\sthe\s"stepForward".\sI\sthink\srewrite\sit\sin\sC\swill\sspeed\sit\sup.\sI\sdidn't\scheck\swhether\s$lengthOfSublist\sis\sa\snegative\snumber\sor\szero.\r\n\r\nproc\slgroup\s{listIn\slengthOfSublist}\s{\r\n\tset\si\s0\r\n\tforeach\sit\s$listIn\s{\r\n\t\tlappend\stmp\s$it\r\n\t\tif\s{[llength\s$tmp]\s==\s$lengthOfSublist}\s{\r\n\t\t\tlappend\sresult\s$tmp\r\n\t\t\tset\stmp\s{}\r\n\t\t}\r\n\t\tincr\si\r\n\t}\r\n\tif\s{[llength\s$listIn]\s%\s$lengthOfSublist}\s{\r\n\t\tlappend\sresult\s$tmp\r\n\t}\r\n\treturn\s$result\r\n}
J icomment Don't\sworry\sabout\sgetting\sperformance\sor\sthe\sC\simplementation.\sWorry\sabout\s<i>why</i>\sand\s<i>what</i>\s(i.e.,\sa\sclear\sjustification\sfor\sthis\scommand\sand\san\sexact\sspecification\sof\sthe\sbehaviour).
J login dkf
J mimetype text/html
J username dkf
K 0d2bcd9544735adea2d2c3aabd5f0d1e222cb4fc
U dkf
Z 8f82d32cc3e295578df752d679c65e48
