Tcl Source Code

Artifact 4219d15cd0819382dc4100407f5c132957a87ae7:

Attachment "lsortfail.tcl" to ticket [3142026fff] added by bharder 2010-12-23 04:28:28.

---

#!/usr/bin/env tclsh8.6

set max 9999
set idx 1
set data {}
while {$idx <= $max} {
    puts $idx
    lappend data $idx
    lsort -integer $data
    incr idx
}