Posted to tcl by jdc at Tue Jun 26 14:04:48 GMT 2012view raw

  1. expr srand(12345)
  2.  
  3. set rdta ""
  4. for {set i 0} {$i < 1619008} {incr i} {
  5. set r [expr {int(rand() * 100)}]
  6. if {$r > 96} {
  7. set c $r
  8. } else {
  9. set c 0
  10. }
  11. append rdta [format %c $c]
  12. }
  13.  
  14. set f [open test2.bin w]
  15. fconfigure $f -translation binary
  16. puts -nonewline $f $rdta
  17. close $f