R로 하는 확률 문제 풀이(수능 2024 확률과통계 25번)

2024 확률과통계 25번

손 풀이는 다음과 같다. 간단한 문제 같은경우는 손으로 푸는게 확실히 빠른 경향이 있다.

손풀이

아래는 R코딩의 풀이이다. 답은 당연히 같다.

#install.packages("gtools")
#library(gtools)
> permu <- permutations(6, 6)
> permu %>% View()
> permu %>% head()
     [,1] [,2] [,3] [,4] [,5] [,6]
[1,]    1    2    3    4    5    6
[2,]    1    2    3    4    6    5
[3,]    1    2    3    5    4    6
[4,]    1    2    3    5    6    4
[5,]    1    2    3    6    4    5
[6,]    1    2    3    6    5    4


#행렬 형태이므로, 데이터 처리를 위해서 데이터프레임으로 변환하자!
> permu %<>% as.data.frame()

> permu[permu[1]+permu[6]<=10,] %>% nrow()
[1] 672
> permu[permu[1]+permu[6]<=10,] %>% nrow()/permu %>% nrow()
[1] 0.9333333

#실제 답이 14/15이니까 확인해보자.
> (permu[permu[1]+permu[6]<=10,] %>% nrow()/permu %>% nrow()) == (14/15)
[1] TRUE

 

양 끝쪽에 11이 되는 조합 5,6이 없음을 확인가능.