Posted to tcl by dbohdan at Tue Mar 01 17:34:46 GMT 2016view raw
- #!/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