Posted to tcl by dbohdan at Tue Mar 01 17:34:46 GMT 2016view pretty
#!/usr/bin/env tclsh package require Tcl 8.6.4 proc noop {} { return } ::oo::class create Nooper { method noop {} { return } } proc main {} { set obj [Nooper new] puts [time noop 1000000] puts [time {$obj noop} 1000000] puts {} puts [time {for {set i 0} {$i < 100000} {incr i} noop} 10] puts [time {for {set i 0} {$i < 100000} {incr i} {$obj noop}} 10] $obj destroy } main