fork download 
  1. #!/bin/env tclsh
  2.  
  3. #set d [join $argv]
  4. if {[catch {dict size {*}$argv} result]} {
  5.     puts "err $result"
  6. } else {
  7.     puts "size=$result"
  8.     set n 0
  9.     foreach key [dict keys {*}$argv] {
  10.         puts key$n=$key
  11.         incr n
  12.     }
  13.     set n 0
  14.     foreach value [dict values {*}$argv] {
  15.         puts value$n=$value
  16.         incr n
  17.     }
  18. }
  19.  
Success #stdin #stdout 0.03s 5272KB
comments (?)
stdin 
Standard input is empty
stdout 
err wrong # args: should be "dict size dictionary"
https://ideone.com/MJa7a
language:
TCL (tcl 8.6)
created:
14 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!