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