RStudioCloudで数当てゲーム！正解時に入力回数を表示したい！

前提・実現したいこと

数当てゲームで正解した時に、
「答えはXXです．○回で当たりました！」と表示させたいのですが、
入力回数をカウントする命令の書き方が釈然としません。

最近、RStudioCloudでプログラミングの勉強を始めた初心者です。
解決策を模索していたところこちらにたどり着きました。
お力をお借りできれば幸いです。

該当のソースコード

r=as.integer(runif(n=1, min=1, max=100))
a=-1
while (a!=r) {
  a=readline("1から100までの自然数を入力して下さい:")
  if(a>r){
    print("大きすぎます",quote=F)
  }else if(a<r){
    print("小さすぎます",quote=F)
  }else if(a==r){
    print(paste("答えは",r,"です.",〇,"回で当たりました!",sep=""),quote=F)
  }
}

試したこと

「入力した回数を保存するための変数を追加し，1回入力するごとに回数を記録する変数の値が1増えるようにする」のが良いのではと考え着きましたが、具体的なプログラムの見通しがたっていません。

また過去に作成した、階乗や等差数列を求める関数から、応用できそうでできていません。
ー階乗ー
x=0
n=0
kaijo=1
myFactorial=function(x){
if(x==0) {return(1)}
for (n in 1:x) {
kaijo=c(n*kaijo)}
return(kaijo)}

ー等差数列ー
a=0
d=0
n=0
t=0
tousa=0
mierutousa=c()
ap=function(a,d,n){for (t in 1:n) {
tousa=a+(t-1)*d
mierutousa=c(mierutousa,tousa)
}
return(mierutousa)
}

行動規範の内容に同意します

回答1件

ベストアンサー

ここまで書けている方なら簡単な気がしますが。

cnt変数を0で初期化する
なにか処理（今回はreadline）する度にcntを1つカウントアップする
終了時にcntを出力する

R
1r=as.integer(runif(n=1, min=1, max=100))
2cnt = 0
3a=-1
4while (a!=r) {
5  a=readline("1から100までの自然数を入力して下さい:")
6  cnt = cnt + 1
7  if(a>r){
8    print("大きすぎます",quote=F)
9  }else if(a<r){
10    print("小さすぎます",quote=F)
11  }else if(a==r){
12    print(paste("答えは",r,"です.",cnt,"回で当たりました!",sep=""),quote=F)
13  }
14}

投稿2020/07/23 06:01

aokikenichi

総合スコア2218

syogo

2020/07/23 06:15

ご回答ありがとうございます。なるほど！ cnt=cnt+1のようにカウントしていく変数の考え方がどうやら毎々とても苦手で閃きまで時間を食うようです。また「処理するたびにカウントする変数を書き込む場所は、カウントしたい処理の次」という当たり前といえば当たり前の考え方が、恥ずかしながら分かっていませんでした。この度のご回答とても参考になりました！初歩的な質問で失礼いたしました。精進いたします。