Posted to tcl by dbohdan at Fri Apr 09 10:22:10 GMT 2021view pretty
. source jimlib.tcl; lib::list::mapv x {foo bar baz} {y z} [range 10] { list $x [list $y $z] } [812/96372] x 0<3 {y z} 0<10 x 1<3 {y z} 2<10 x 2<3 {y z} 4<10 x done {y z} 6<10 x done {y z} 8<10 x done {y z} done {foo {0 1}} {bar {2 3}} {baz {4 5}} {{} {6 7}} {{} {8 9}} .
Comments
Posted by dbohdan at Fri Apr 09 10:22:48 GMT 2021 [text] [code]
https://gitlab.com/dbohdan/jimlib/-/blob/cf72ad4cd7e540eb5352f92712ca3a6e3fcfc3c6/jimlib.tcl#L1088