Anonymous user
Constrained random points on a circle: Difference between revisions
Constrained random points on a circle (view source)
Revision as of 16:58, 10 September 2010
, 13 years agoadded ocaml
(→{{header|Perl 6}}: added crazy version) |
(added ocaml) |
||
Line 193:
>> plot(x,y,'.')</lang>
[[File:Matlab-randomDisc-output.png]]
=={{header|OCaml}}==
<lang ocaml>let p x y =
let d = sqrt(x ** 2.0 +. y ** 2.0) in
10.0 <= d && d <= 15.0
let () =
Random.self_init();
let rec aux i acc =
if i >= 100 then acc else
let x = (Random.float 40.0) -. 20.0
and y = (Random.float 40.0) -. 20.0 in
if (p x y)
then aux (succ i) ((x,y)::acc)
else aux i acc
in
let points = aux 0 [] in
let g = Array.init 40 (fun _ -> String.make 40 ' ') in
List.iter (fun (x,y) ->
let x = (int_of_float x) + 20
and y = (int_of_float y) + 20 in
g.(y).[x] <- 'o'
) points;
Array.iter print_endline g</lang>
o o o
o
oo oo oooo
o o oo o
oo
o o o
o
oo o
oo o oo o
oo
oo
o o
oooo o o
oo o o
o oo
o
o o o o
o o o o
o o
o o
o o oo
o oo
o o
ooo o o o
o ooo o
o
oo o
=={{header|Perl 6}}==
| |||