\ http://c...content-available-to-author-only...e.com/a/85291/34718
variable S \ seed with
timeutime S !
: R \ xor-shift PRNG
S @
dup 13 lshift xor
dup 17 rshift xor
dup 5 lshift xor
dup S !
6 mod \ between 0 and 6, exclusive
;
: f 33 0 DO R LOOP \ push 33 randoms
1 -5 DO \ for (J = -6; J < 0; J++)
33 0 DO \ for (I = 0; I < 33; I++)
I PICK J + 0< 1+ IF \ if (stack[I] < J)
61 EMIT \ print "="
ELSE
32 EMIT \ print " "
THEN
LOOP
CR \ print "\n"
LOOP
; f
XCBodHRwOi8vYy4uLmNvbnRlbnQtYXZhaWxhYmxlLXRvLWF1dGhvci1vbmx5Li4uZS5jb20vYS84NTI5MS8zNDcxOAoKdmFyaWFibGUgUwkJCQkJCVwgc2VlZCB3aXRoIHRpbWUKdXRpbWUgUyAhCjogUgkJCQkJCQkJXCB4b3Itc2hpZnQgUFJORwpTIEAKZHVwIDEzIGxzaGlmdCB4b3IKZHVwIDE3IHJzaGlmdCB4b3IKZHVwIDUgbHNoaWZ0IHhvcgpkdXAgUyAhCjYgbW9kCQkJCQkJCVwgYmV0d2VlbiAwIGFuZCA2LCBleGNsdXNpdmUKOwoKOiBmIDMzIDAgRE8gUiBMT09QCQkJCVwgcHVzaCAzMyByYW5kb21zCgkxIC01IERPCQkJCQkJXCBmb3IgKEogPSAtNjsgSiA8ICAwOyBKKyspCgkJMzMgMCBETwkJCQkJXCBmb3IgKEkgPSAgMDsgSSA8IDMzOyBJKyspCgkJCUkgUElDSyBKICsgMDwgMSsgSUYJXCBpZiAgKHN0YWNrW0ldIDwgSikKCQkJCTYxIEVNSVQJCQlcIHByaW50ICI9IgoJCQlFTFNFCgkJCQkzMiBFTUlUCQkJXCBwcmludCAiICIKCQkJVEhFTgoJCUxPT1AKCQlDUgkJCQkJCVwgcHJpbnQgIlxuIgoJTE9PUAo7IGYK