blob: 929e42e1ef153bc35c994c08e95183d6f6e7e1bf (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
|
#!/usr/bin/tclsh
# ------------------------------------------------------------------------
#
# list.perf.tcl --
#
# This file provides performance tests for comparison of tcl-speed
# of list facilities.
#
# ------------------------------------------------------------------------
#
# Copyright (c) 2024 Serg G. Brester (aka sebres)
#
# See the file "license.terms" for information on usage and redistribution
# of this file.
#
if {![namespace exists ::tclTestPerf]} {
source [file join [file dirname [info script]] test-performance.tcl]
}
namespace eval ::tclTestPerf-List {
namespace path {::tclTestPerf}
proc test-lsearch-regress {{reptime 1000}} {
_test_run -no-result $reptime {
# found-first immediately, list with 5000 strings with ca. 50 chars elements:
setup { set str [join [lrepeat 13 "XXX"] /]; set l [lrepeat 5000 $str]; llength $l }
{ lsearch $l $str }
{ lsearch -glob $l $str }
{ lsearch -exact $l $str }
{ lsearch -dictionary $l $str }
{ lsearch -exact -dictionary $l $str }
{ lsearch -nocase $l $str }
{ lsearch -nocase -glob $l $str }
{ lsearch -nocase -exact $l $str }
{ lsearch -nocase -dictionary $l $str }
{ lsearch -nocase -exact -dictionary $l $str }
}
}
proc test-lsearch-nf-regress {{reptime 1000}} {
_test_run -no-result $reptime {
# not-found, list with 5000 strings with ca. 50 chars elements:
setup { set str [join [lrepeat 13 "XXX"] /]; set sNF $str/NF; set l [lrepeat 5000 $str]; llength $l }
{ lsearch $l $sNF }
{ lsearch -glob $l $sNF }
{ lsearch -exact $l $sNF }
{ lsearch -dictionary $l $sNF }
{ lsearch -exact -dictionary $l $sNF }
{ lsearch -sorted $l $sNF }
{ lsearch -bisect $l $sNF }
{ lsearch -nocase $l $sNF }
{ lsearch -nocase -glob $l $sNF }
{ lsearch -nocase -exact $l $sNF }
{ lsearch -nocase -dictionary $l $sNF }
{ lsearch -nocase -exact -dictionary $l $sNF }
{ lsearch -nocase -sorted $l $sNF }
{ lsearch -nocase -bisect $l $sNF }
}
}
proc test-lsearch-nf-non-opti-fast {{reptime 1000}} {
_test_run -no-result $reptime {
# not-found, list with 5000 strings with ca. 50 chars elements:
setup { set str [join [lrepeat 13 "XXX"] /]; set sNF "$str/*"; set l [lrepeat 5000 $str]; llength $l }
{ lsearch -sorted -dictionary $l $sNF }
{ lsearch -bisect -dictionary $l $sNF }
{ lsearch -sorted -nocase -dictionary $l $sNF }
{ lsearch -bisect -nocase -dictionary $l $sNF }
}
}
proc test-lsearch-nf-non-opti-slow {{reptime 1000}} {
_test_run -no-result $reptime {
# not-found, list with 5000 strings with ca. 50 chars elements:
setup { set str [join [lrepeat 13 "XXX"] /]; set sNF "$str/*"; set l [lrepeat 5000 $str]; llength $l }
{ lsearch $l $sNF }
{ lsearch -glob $l $sNF }
{ lsearch -nocase $l $sNF }
{ lsearch -nocase -glob $l $sNF }
}
}
proc test-lseq {{reptime 1000}} {
_test_run $reptime {
setup { set i 0 }
{ lseq 10 }
{ lseq 0 count 10 }
{ lseq 0 count 10 by 1 }
{ lseq 0 9 }
{ lseq 0 to 9 }
{ lseq 0 9 1 }
{ lseq 0 to 9 by 1 }
}
}
proc test-lseq-expr {{reptime 1000}} {
_test_run $reptime {
setup { set i 0 }
{ lseq [expr {$i+10}] }
{ lseq {$i+10} }
{ lseq [expr {$i+0}] count [expr {$i+10}] }
{ lseq {$i+0} count {$i+10} }
{ lseq [expr {$i+0}] count [expr {$i+10}] by [expr {$i+1}] }
{ lseq {$i+0} count {$i+10} by {$i+1} }
{ lseq [expr {$i+0}] [expr {$i+9}] }
{ lseq {$i+0} {$i+9} }
{ lseq [expr {$i+0}] to [expr {$i+9}] }
{ lseq {$i+0} to {$i+9} }
{ lseq [expr {$i+0}] [expr {$i+9}] [expr {$i+1}] }
{ lseq {$i+0} {$i+9} {$i+1} }
{ lseq [expr {$i+0}] to [expr {$i+9}] by [expr {$i+1}] }
{ lseq {$i+0} to {$i+9} by {$i+1} }
}
}
proc test {{reptime 1000}} {
test-lsearch-regress $reptime
test-lsearch-nf-regress $reptime
test-lsearch-nf-non-opti-fast $reptime
test-lsearch-nf-non-opti-slow $reptime
test-lseq [expr {$reptime/2}]
test-lseq-expr [expr {$reptime/2}]
puts \n**OK**
}
}; # end of ::tclTestPerf-List
# ------------------------------------------------------------------------
# if calling direct:
if {[info exists ::argv0] && [file tail $::argv0] eq [file tail [info script]]} {
array set in {-time 500}
array set in $argv
::tclTestPerf-List::test $in(-time)
}
|
