Posted to tcl by colin at Mon Jun 25 05:12:01 GMT 2012view raw

  1. proc payload {c} {}
  2.  
  3. proc strindex {str} {
  4. while {[llength $str]} {
  5. set c [string index $str 0]
  6. set str [string range $str 1 end]
  7. payload $c
  8. }
  9. }
  10.  
  11. proc strsplit {str} {
  12. foreach c [split $str ""] {
  13. payload $c
  14. }
  15. }
  16.  
  17. set len 10
  18. for {set i 0} {$i < 4} {incr i} {
  19. set str [string repeat x $len]
  20. set line $len
  21. lappend line strindex [time {strindex $str} 100]
  22. lappend line strsplit [time {strsplit $str} 100]
  23. puts $line
  24. set len [expr {$len * 10}]
  25. }