Number Sequence Generator
Platform: TCL
Published Nov 04, 2010
Updated Nov 05, 2010
very basic, very lazy number generator with un-accurate timer
set fileid [open test2.txt "w"]
puts "enter the smallest number allowed"
gets stdin rmin
puts "enter largest number allowed"
gets stdin rmax
puts "number of sequences to generate"
gets stdin rrun
set time1 [clock format [clock seconds] -format {%H%M%S}]
set rmid 1
set rdumped 0
set raccept 0
for {set rran 0} {$rran != $rrun} {incr rran} {
set rstart [expr {$rmin+round(rand() * $rmax)}]
if {[regexp $rstart $rmid] == 1} {
append rdum $rstart
puts "$rstart $rran [expr $rrun - $rran] DDD"
incr rdumped
incr rrran
set rran [expr "$rran - 1"]} else {
append rmid $rstart
puts "$rstart $rran [expr $rrun - $rran] AAA"
incr raccept
incr rrran }
}
puts "[expr $raccept + $rdumped] sequences generated creating $rran sequences of numbers.
$raccept numbers were accepted
$rdumped numbers were dumped"
set time2 [clock format [clock seconds] -format {%H%M%S}]
set time3 [expr $time2 - $time1]
puts $time3
puts $fileid "
$rmid
[expr $raccept + $rdumped] Numbers generated creating $rran sequences of numbers.
$raccept numbers were accepted
$rdumped numbers were dumped"
close $fileid
