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