fork download
copy 
  1. for {set i 0} {$i < 100} {incr i} {
  2. 	array set Node$i {
  3. 		Value $i
  4. 		lChild ""
  5. 		rChild ""
  6. 	}
  7. 	SetNode Node$i
  8. }
  9.  
  10. set tTree {}
  11.  
  12. proc SetNode {n} {
  13. 	global tTree
  14. 	upvar $n Node
  15. }
Runtime error #stdin #stdout 0.03s 5272KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
https://ideone.com/xXHnN
language:
TCL (tcl 8.6)
created:
13 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!