Pseudorandom number generator image: Difference between revisions
Content added Content deleted
m (→{{header|Perl}}: state the underlying PRNG engine) |
(add PicoLisp) |
||
Line 225: | Line 225: | ||
print F $img->png;</lang> |
print F $img->png;</lang> |
||
[https://github.com/SqrtNegInf/Rosettacode-Perl5-Smoke/blob/master/ref/PNG-image500.png image500.png] (sample image, offsite) |
[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}}== |
=={{header|Raku}}== |