aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-04-30 12:34:36 -04:00
parent 4bb20c9b71
commit cbaf4c4b64
12390 changed files with 318560 additions and 27248 deletions
Download patch file Download diff file Expand all files Collapse all files

24
Task/Pick-random-element/Tcl/pick-random-element-2.tcl
View file

@ -14,22 +14,22 @@ proc random_items { item_list {n 1} {dups no} } {
set count 0
while { $count < $n } {
while { $count < $n } {
# random integer index 0..len-1
set idx [expr { int(rand() * $max)} ]
# random integer index 0..len-1
set idx [expr { int(rand() * $max)} ]
# pick item
set item [lindex $items $idx]
# pick item
set item [lindex $items $idx]
# check for dups
if {$dups eq no} {
set srch [lsearch $result $item]
if {$srch > -1} { continue }
}
# check for dups
if {$dups eq no} {
set srch [lsearch $result $item]
if {$srch > -1} { continue }
}
lappend result $item
incr count
lappend result $item
incr count
}
return $result
}