PasteRack.org
Paste # 91066
2022-05-24 00:41:04

Fork as a new paste.

Paste viewed 825 times.


Embed:

buggy pseudo-random-generator on Linux i386

  1. #lang racket
  2.  
  3. (for ([i 1000000])
  4.   (define prgen (make-pseudo-random-generator))
  5.   (define init-pregen-vec (pseudo-random-generator->vector prgen))
  6.   (cond
  7.     [(for/or ([x init-pregen-vec]) (not (integer? x)))
  8.      (println init-pregen-vec)
  9.      #t]
  10.     [else #f]))

=>