Random number generator (device): Difference between revisions
Content deleted Content added
No edit summary |
No edit summary |
||
Line 211:
1152610574
714616658</pre>
=={{header|Icon}} and {{header|Unicon}}==
The following is Unicon-specific but trivially converted into Icon.
<lang unicon>procedure main(A)
n := integer(A[1])|5
every !n do write(rand(4))
end
procedure rand(n)
f := open("/dev/urandom") | stop("Cannot get to urandom!")
x := 0
every !n do x := x*256 + ord(reads(f,1))
close(f)
return x
end</lang>
Sample runs:
<pre>
->urand
910795827
1135996175
3545606085
944909079
2464790129
->
</pre>
=={{header|J}}==
| |||