t-linear-random.scm 195 B

12345678910111213
  1. ;; import functions/repeat.scm numbers/linear-random.scm
  2. (repeat
  3. (lambda ()
  4. (repeat
  5. (lambda ()
  6. (if (even? (random!))
  7. (display #\#)
  8. (display #\-)))
  9. 60)
  10. (newline))
  11. 20)