PEG造設も無事終了して本日の仕事は外科救急の待機のみ。
京大の特色入試で超難問が登場！一筋縄ではいかない「数学オリンピック級」のこの問題、あなたは解けますか？　なんてのに遭遇。
http://www.scienceplus2ch.com/archives/5146350.html
http://livedoor.blogimg.jp/scienceplus2ch/imgs/0/9/09198852.jpg

俺の頭では解析的にとても解けそうもないのでRでスクリプトを組んで問１をやってみる。
シミュレーションするためのスクリプト

n=7
k=3
a=c(1,0,0,1,0,1,0)
f <- function(i){
re=i+0:(k-1)
re=re%%n
re[which(re==0)]=7
return(re)
}
g <- function(x) (x+1)%%2
h <- function(i,b){
idx=f(i)
b[idx]=g(b[idx])
return(b)
}
i <- function(v){
tmp=a
for(w in v){
tmp=h(w,tmp)
}
return(tmp)
}