Pseudorandom number generator image: Difference between revisions
Pseudorandom number generator image (view source)
Revision as of 17:38, 15 October 2020
, 3 years agoadd PicoLisp
m (→{{header|Perl}}: state the underlying PRNG engine) |
(add PicoLisp) |
||
Line 225:
print F $img->png;</lang>
[https://github.com/SqrtNegInf/Rosettacode-Perl5-Smoke/blob/master/ref/PNG-image500.png image500.png] (sample image, offsite)
=={{header|PicoLisp}}==
<lang PicoLisp>(seed (in "/dev/urandom" (rd 8)))
(out "image.pbm"
(prinl "P1")
(prinl 500 " " 500)
(do 500
(do 500
(prin (if (rand T) 1 0)) )
(prinl) ) )</lang>
=={{header|Raku}}==
| |||