# 2006 年 8 月 1 日作成
#　ランダムなじゃんけん列の作成
#
kaisu=0
t=0
while(t<30){
kaisu=kaisu+1
t=trunc((2/3)*kaisu-4*sqrt((1/3)*(2/3)*kaisu))
}
# kaisu=80
print(kaisu)
res=rep(0,kaisu)
for (i in 1:kaisu){
a=trunc(runif(1,0,1)*3)+1
if(a<2){res[i]=c("G")}
if(a>1&a<3){res[i]=c("C")}
if(a>2){res[i]=c("P")}
}