Execute HQ9+/Tcl: Difference between revisions

{{works with|Tcl|8.4}}

<br clear=right>

for {set i [set a 0]} {$i<[string len $d]} {incr i} {

switc\u0068 -- [string index [string tolower $d] $i] \u0068 {

}

} \x2b {incr a}

To be fair, this compiler then immediately executes the code. Replace the <code>eval</code> with <code>puts</code> to see what it generates.

eval [string map [list \u0068 {puts "\u0048ello, world!";} q \

[list puts -nonewline $d]\n \071 {for {set b [expr 100-1]} 1 {} {

if {$b} {puts ""} else break

};} \x2b {incr a;}