fork download
copy 
  1. namespace eval A {
  2.  
  3. 	namespace eval B {
  4. 		proc C {} {
  5. 			puts hi
  6. 		}
  7. 	}
  8. }
  9.  
  10. proc D {} {}
  11.  
  12.  
  13. set ok1 {["]"]}
  14. set ok2 {["][]"]}
  15. set not_ok {["]["]}
  16. puts $ok1            ;# ["]"]
  17. puts $ok2            ;# ["][]"]
  18. puts $not_ok         ;# ["]["]
Success #stdin #stdout 0s 15720KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
["]"]
["][]"]
["]["]
https://ideone.com/7KsnMz
language:
TCL (tcl 8.6)
created:
8 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!