Random number generator (device): Difference between revisions

=={{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>