fork(1) download
copy 
  1. array set foo {hello 1 world 2}
  2. array set bar {kakoy 3 bagor 4}
  3.  
  4. foreach {foo_k foo_v} [array get foo] {bar_k bar_v} [array get bar] {
  5.     puts "foo($foo_k) = $foo_v"
  6.     puts "bar($bar_k) = $bar_v"
  7. }
Success #stdin #stdout 0s 5128KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
foo(world) = 2
bar(bagor) = 4
foo(hello) = 1
bar(kakoy) = 3
https://ideone.com/5ld1n3
language:
TCL (tcl 8.6)
created:
6 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!