Posted to tcl by jdc at Tue Jun 26 14:04:48 GMT 2012view raw
- expr srand(12345)
- set rdta ""
- for {set i 0} {$i < 1619008} {incr i} {
- set r [expr {int(rand() * 100)}]
- if {$r > 96} {
- set c $r
- } else {
- set c 0
- }
- append rdta [format %c $c]
- }
- set f [open test2.bin w]
- fconfigure $f -translation binary
- puts -nonewline $f $rdta
- close $f