[過去ﾛｸﾞ] プログラミングのお題スレ Part17 (1002ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞

---

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

---

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

---

188(3): 2020/04/16(木)22:30 ID:+l2higCM(1) AAS
お題
急減少列かどうかを判定せよ。
ただし急減少列とは、（末尾以外の）どの要素もそれ以降の要素の総和より大きい列のこと。

32,16,8,4,2,1 -> true
32,16,8,4,2,1,1 -> false
610,377,144,55,21,8,3,1 -> true
987,610,233,89,34,13,5,2,1 -> false

---

190: 2020/04/16(木)22:57 ID:tWuPngtw(1) AAS
>>188 Perl5

sub f {
　my $i = shift;
　my $r = f(@_) if @_;
　$i <= $r and die;
　$i + $r;
}
for ([32,16,8,4,2,1], [32,16,8,4,2,1,1], [610,377,144,55,21,8,3,1], [987,610,233,89,34,13,5,2,1]) {
　eval { f @$_ };
　$s = "$@" ? 'false' : 'true';
省8

---

192(1): 2020/04/17(金)02:37 ID:GLu8MX8J(1/2) AAS
>>188
Perl5
外部ﾘﾝｸ:paiza.io

単に逆順にして加算しながら比較しているだけの誰にでも出来る簡単なお仕事。

---

200: 2020/04/17(金)23:20 ID:GLu8MX8J(2/2) AAS
>>188
Kotlin
外部ﾘﾝｸ:paiza.io

やってることは >>192 とほぼ同じ。reduce() という丁度良いやつがあったのでそれを使った。

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.049s