23/03/20 07:37:38.91 Y6d3J0y40.net
sim=\(){
s=0
i=0
flg=TRUE
while(flg){
i=i+1
d=sample(6,1)
s=s+d
flg=numbers::isPrime(s)
cat(d,' ')
}
cat('(',s,')\n')
invisible(c(N=i,M=s))
}
sim() |> print()
for(i in 1:20) sim()
23/03/20 07:37:38.91 Y6d3J0y40.net
sim=\(){
s=0
i=0
flg=TRUE
while(flg){
i=i+1
d=sample(6,1)
s=s+d
flg=numbers::isPrime(s)
cat(d,' ')
}
cat('(',s,')\n')
invisible(c(N=i,M=s))
}
sim() |> print()
for(i in 1:20) sim()