open Graphics let f n = let g x = Random.int x in let getcolor () = rgb (g 255) (g 255) (g 255) in let rec loop n = match n with 0 -> () | n -> set_color(getcolor ()); fill_circle (g (size_x ())) (g (size_y ())) (g 50); loop (n - 1) in loo…
引用をストックしました
引用するにはまずログインしてください
引用をストックできませんでした。再度お試しください
限定公開記事のため引用できません。