Anonymous user
Deal cards for FreeCell: Difference between revisions
m
→{{header|OCaml}}
(→{{header|OCaml}}: can actually use built-in ints) |
|||
Line 277:
<lang ocaml>let srnd x =
(* since OCaml's built-in int type is at least 31 (note: not 32) bits wide,
and this problem takes mod 2^31, it is just enough
an unsigned integer, which means taking the logical right shift *)
let seed = ref x in
function () ->
| |||