Posted to tcl by dbohdan at Fri Apr 09 10:22:10 GMT 2021view raw

  1. . source jimlib.tcl; lib::list::mapv x {foo bar baz} {y z} [range 10] { list $x [list $y $z] } [812/96372]
  2. x 0<3 {y z} 0<10
  3. x 1<3 {y z} 2<10
  4. x 2<3 {y z} 4<10
  5. x done {y z} 6<10
  6. x done {y z} 8<10
  7. x done {y z} done
  8. {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