g<- function(x){ # xは条件分岐の信号的なもの pattern<- 0 # 走者パターンとか score<- 0 # 得点 switch(x, # switch関数内のxは1以上の整数しか扱ってくれないらしい (pattern<- 1) && (score<- 0), # x=1なら、こうなる (pattern<- 2) && (score<- 1), #…