任意の5年間の集合を評価する関数
この演習では、任意の5年間の集合を評価し、ある個人が5年すべてで入賞（cash）しているかを確認する関数を書きます。
プレイヤーは6000人とし、各プレイヤーは1から6000までの番号で表します。全プレイヤーの10%が入賞するという仮定のもと、関数への入力は5列（各年に1列）と600行（入賞した各プレイヤーに1行）を持つ行列になります。
この演習はコースの一部です
Rで解く確率パズル
演習の手順
Reduce関数を使って、5年間すべての共通部分（積集合）を求めます。- その積集合に要素が含まれているかを確認します。
FALSEを返す条件になる場合を条件式で指定します。
実践的なインタラクティブ演習
このサンプルコードを完成させて、この演習に挑戦してみましょう。
check_for_five <- function(cashed){
# Find intersection of five years
all_five <- Reduce(___)
# Check intersection
if(___){
return(TRUE)
# Specify when to return FALSE
} ___ {
return(FALSE)
}
}