このプログラムのコードどこが間違ってるか教えて

1 ：以下、＼(^o^)／でVIPがお送りします：2015/12/02(水) 05:15:23.061 ID:O2ryv4c0a.net

宝くじをはずれ以外が出るまで引き続けろって命令したのに
はずれ出ても引き続けて変な意味のないところで終わる
kuji<-c("1等","1等前後賞","1等組違い賞","2等","3等","4等","5等","6等","70周年記念賞","はずれ")
P<-c(0.00000005,0.00000010,0.00000995,0.000001,0.00001,0.0001,0.01,0.1,0.00002000,0.88985890)
i<-function(){
sample(kuji,1,rep=T,prob=P)
}
while(i()=="はずれ"){
print(i())
}

2 ：ポチエナ：2015/12/02(水) 05:16:18.932 ID:lixeOXLa0.net

んー、せやなあ
うーん...

あっ彡(^)(^)ワイ、プログラムなんて知らんかったんや！

3 ：以下、＼(^o^)／でVIPがお送りします：2015/12/02(水) 05:18:01.488 ID:1EpRGOLS0.net

while文おかしいな
プログラミングわからんけど

4 ：以下、＼(^o^)／でVIPがお送りします：2015/12/02(水) 05:19:53.546 ID:yN+iuK9y0.net

i()=="はずれ"

(i)=="あたり"

5 ：以下、＼(^o^)／でVIPがお送りします：2015/12/02(水) 05:20:08.201 ID:O2ryv4c0a.net

while(条件){コード}
で条件が偽になるまでコードを繰り返せって意味だから
はずれが出なくなるまで関数iを表示しろってやったつもりだった

6 ：以下、＼(^o^)／でVIPがお送りします：2015/12/02(水) 05:23:20.382 ID:txjZ6Q+Z0.net

そもそもクジを引く関数がなくね

7 ：以下、＼(^o^)／でVIPがお送りします：2015/12/02(水) 05:24:11.014 ID:O2ryv4c0a.net

sample(kuji,1,rep=T,prob=P)
でやるとランダムに出るから引けてると思う

8 ：以下、＼(^o^)／でVIPがお送りします：2015/12/02(水) 05:25:10.168 ID:YbZiLPS80.net

げんごなに？

9 ：以下、＼(^o^)／でVIPがお送りします：2015/12/02(水) 05:26:33.664 ID:A7cCKob+d.net

そこ動いてるならwhile使わないでやってみれば

10 ：以下、＼(^o^)／でVIPがお送りします：2015/12/02(水) 05:26:35.575 ID:O2ryv4c0a.net

R言語

11 ：以下、＼(^o^)／でVIPがお送りします：2015/12/02(水) 05:28:27.143 ID:tK2GX/NT0.net

whileの条件とブロックでそれぞれ関数実行してるからやろ

12 ：以下、＼(^o^)／でVIPがお送りします：2015/12/02(水) 05:29:36.420 ID:Alu8cNGV0.net

whileの条件式の中でもwhileのブロック内でもクジ引いてるからでねーの

13 ：以下、＼(^o^)／でVIPがお送りします：2015/12/02(水) 05:30:00.034 ID:uuZsjOB6d.net

全然関係ないけどスラッシュでコメント付けるときってすぐ直後に
「//〜〜〜」か、半角スペース1個入れて
「// 〜〜〜」かどっちがベターっていうか標準的？
くっそどうでもいいことだけどどっちでもいいからさっさと片方に決めて自分の中でルール統一したい

14 ：以下、＼(^o^)／でVIPがお送りします：2015/12/02(水) 05:32:06.339 ID:O2ryv4c0a.net

>>11
なるほど・・つまり？

15 ：以下、＼(^o^)／でVIPがお送りします：2015/12/02(水) 05:33:32.796 ID:YbZiLPS80.net

>>11
これ

16 ：以下、＼(^o^)／でVIPがお送りします：2015/12/02(水) 05:34:16.478 ID:YbZiLPS80.net

いっかい へんすうにいれるといいよ

17 ：以下、＼(^o^)／でVIPがお送りします：2015/12/02(水) 05:34:48.033 ID:tK2GX/NT0.net

while(x==" はずれ"){
x <- t()
print(x)
}

18 ：以下、＼(^o^)／でVIPがお送りします：2015/12/02(水) 05:35:17.128 ID:tK2GX/NT0.net

tじゃなくてi

19 ：以下、＼(^o^)／でVIPがお送りします：2015/12/02(水) 05:35:30.887 ID:O2ryv4c0a.net

>>11,12様の助言の元いろいろやりましたができません
助けて

20 ：以下、＼(^o^)／でVIPがお送りします：2015/12/02(水) 05:37:02.064 ID:YbZiLPS80.net

ぶんぽうしらんからあとはがんばれ

21 ：以下、＼(^o^)／でVIPがお送りします：2015/12/02(水) 05:39:34.750 ID:O2ryv4c0a.net

>>17さん
エラーが出ました

Warning message:
In while (x == "はずれ") { :
the condition has length > 1 and only the first element will be used

22 ：以下、＼(^o^)／でVIPがお送りします：2015/12/02(水) 05:46:12.128 ID:MaFB3+1xa.net

小学校の頃にBASICで遊んでただけの俺にはちんぷんかんぷん

23 ：以下、＼(^o^)／でVIPがお送りします：2015/12/02(水) 05:52:06.015 ID:Alu8cNGV0.net

x <- i()
while(x == "はずれ") {
print(x)
x <- i()
}

24 ：以下、＼(^o^)／でVIPがお送りします：2015/12/02(水) 05:53:01.313 ID:vC3ISUTyd.net

x<-"はずれ"
while(x==" はずれ"){
x <- t()
print(x)
}

25 ：以下、＼(^o^)／でVIPがお送りします：2015/12/02(水) 05:54:47.728 ID:YbZiLPS80.net

おしい いっかいめあたったときがこうりょされてないよ

26 ：以下、＼(^o^)／でVIPがお送りします：2015/12/02(水) 05:56:28.024 ID:tK2GX/NT0.net

Rなんかよりpythonとか使った方が助けてくれる人いると思いますけど
統計学的な関数使うなら別ですけど

27 ：以下、＼(^o^)／でVIPがお送りします：2015/12/02(水) 05:59:12.104 ID:Alu8cNGV0.net

はずれた時だけであたりは表示しないんでねーの

28 ：以下、＼(^o^)／でVIPがお送りします：2015/12/02(水) 05:59:59.020 ID:O2ryv4c0a.net

>>24
こんどはなにも反応してくれません・・

29 ：以下、＼(^o^)／でVIPがお送りします：2015/12/02(水) 06:01:21.495 ID:O2ryv4c0a.net

これどうでしょう
t<-0
while(t<1){print(i())
if(i()=="はずれ"){
t=t+1
}else{
t=t+0
}
}

30 ：以下、＼(^o^)／でVIPがお送りします：2015/12/02(水) 06:03:28.242 ID:O2ryv4c0a.net

ああぁだめだなんで中途半端にひくんだ

> t<-0
> while(t<1){cat(i())
+ if(i()!="はずれ"){
+ t=t+1
+ }else{
+ t=t+0
+ }
+ }
はずれはずれ6等はずれはずれはずれはずれはずれはずれはずれはずれ

31 ：以下、＼(^o^)／でVIPがお送りします：2015/12/02(水) 06:16:17.251 ID:/Z+l1w8Ad.net

こういう時に颯爽と現れて助言していく兄貴はかっこいいな

32 ：以下、＼(^o^)／でVIPがお送りします：2015/12/02(水) 06:20:09.672 ID:O2ryv4c0a.net

x<-i()にしても
xに"はずれ"しか代入されてないから
これを解決する方法を探さなきゃいかん

33 ：以下、＼(^o^)／でVIPがお送りします：2015/12/02(水) 06:23:46.068 ID:tK2GX/NT0.net

>>28
24ではiをｔに間違えてたけど、直した？

34 ：以下、＼(^o^)／でVIPがお送りします：2015/12/02(水) 06:27:25.300 ID:O2ryv4c0a.net

>>33
はい

35 ：以下、＼(^o^)／でVIPがお送りします：2015/12/02(水) 06:37:12.491 ID:O2ryv4c0a.net

わかったかも

36 ：以下、＼(^o^)／でVIPがお送りします：2015/12/02(水) 06:39:20.182 ID:A7cCKob+d.net

ぜんっぜん詳しくないんだけど24って
xははずれですよ
xがはずれじゃなくなるまでxにiを入れて表示してね
ってこと？

MATLABならまだ少しは覚えてると思うんだけどなぁ...

37 ：以下、＼(^o^)／でVIPがお送りします：2015/12/02(水) 07:03:45.917 ID:O2ryv4c0a.net

>>33
ごめんあなたの通りでできた
最終的にこうなった
kuji<-c("1等","1等前後賞","1等組違い賞","2等","3等","4等","5等","6等","70周年記念賞","はずれ")
P<-c(0.00000005,0.00000010,0.00000995,0.000001,0.00001,0.0001,0.01,0.1,0.00002000,0.88985890)
i<-function(){
sample(kuji,1,rep=T,prob=P)
}
x<-"はずれ"
while(x=="はずれ"){
x<-i()
cat(x)
}