22/11/04 14:02:28.04 D0uxFZSv.net
>>723
前半
算数の基礎：列挙して数える
1 男 男 日 日
2 女 男 日 日
3 男 女 日 日
4 女 女 日 日
5 男 男 月 日
6 女 男 月 日
....
191 男 女 金 土
192 女 女 金 土
193 男 男 土 土
194 女 男 土 土
195 男 女 土 土
196 女 女 土 土
> gender=c('男','女')
> DOW=c('日','月','火','水','木','金','土')
> dat=expand.grid(gender,gender,DOW,DOW)
> 火男=\(x) (x[1]=='男'&x[3]=='火')||(x[2]=='男'&x[4]=='火')
> TueMan=dat[apply(dat,1,火男),]
> 男男=\(x) (x[1]=='男') & (x[2]=='男')
> ManMan=TueMan[apply(TueMan,1,男男),]
> (nrow(ManMan) / nrow(TueMan)) |> fractions()
[1] 13/27