18/06/27 14:03:56.49 gge/PUDl.net
# ある大学の学生数は５００以上１０００人以下であることはわかっている。
# 無作為に２人を抽出して調べたところ
# 二人とも女子学生である確率は１／２であった。
# この大学の女子学生数と男子学生数は何人か？
girlsboys <- function(g,b) g*(g-1)/(g+b)/(g+b-1)==1/2
gr=expand.grid(1:1000,1:1000)
(re=gr[which(mapply(girlsboys,gr[,1],gr[,2])),])
# 検証
Vectorize(girlsboys)(re[,1],re[,2])