プログラミングのお題スレ Part9 [無断転載禁止]©2ch.net

[過去ﾛｸﾞ] プログラミングのお題スレ Part9 [無断転載禁止]©2ch.net (1002ﾚｽ)
上下前次1-新
抽出解除ﾚｽ栞

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索歴削→次ｽﾚ栞削→次ｽﾚ過去ﾛｸﾞﾒﾆｭｰ

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

833(6): デフォルトの名無しさん [] 2017/12/09(土)09:05 ID:WAlxvB4a(1)
お題
10,000以下の三角形数をもとめる

834: デフォルトの名無しさん [sage] 2017/12/09(土)09:42 ID:HfcuYzyJ(1)
>>833
三角数だよね？
.js
https://ideone.com/WZBIFF

835: デフォルトの名無しさん [sage] 2017/12/09(土)10:35 ID:PLdtTEIG(1/2)
>>833　ruby
i,j=0,-1;p i while(i+=j+=1)<10000

836: デフォルトの名無しさん [sage] 2017/12/09(土)21:40 ID:PLdtTEIG(2/2)
>>833 Brainf**k ワンライナー(笑)
https://ideone.com/TyMeco
遅すぎて8bitまでしか計算できなかった

838: デフォルトの名無しさん [] 2017/12/10(日)00:50 ID:J0bkBqjd(1/2)
>>833
1+2+3+... だよね? じゃあこうだ。
perl -e '$i=0;$n=1;while(($i+=$n)<=10000){print"$i\n";++$n}'

839: デフォルトの名無しさん [] 2017/12/10(日)00:52 ID:J0bkBqjd(2/2)
>>833
while じゃなくて for にするとこう。
perl -e 'for($i=0,$n=1;($i+=$n)<=10000;++$n){print"$i\n"}'

840: デフォルトの名無しさん [] 2017/12/10(日)08:00 ID:uc7Ht429(1)
>833 R
cat(cumsum(0:140))