プログラミングのお題スレ Part17

**デフォルトの名無しさん** · 2020/03/13(金) 01:42:47.06

プログラミングのお題スレです。

【出題と回答例】
1 名前：デフォルトの名無しさん
　　お題：お題本文

2 名前：デフォルトの名無しさん
　　>>1 使用言語
　　回答本文
　　結果がある場合はそれも

【ソースコードが長くなったら】 (オンラインでコードを実行できる)
https://ideone.com/
http://codepad.org/
http://compileonline.com/
http://rextester.com/runcode
https://runnable.com/
https://code.hackerearth.com/
http://melpon.org/wandbox
https://paiza.io/

宿題は宿題スレがあるのでそちらへ。

※前スレ
プログラミングのお題スレ Part16
https://mevius.5ch.net/test/read.cgi/tech/1573948822/

**デフォルトの名無しさん** · 2020/03/28(土) 19:38:54.96

前者は2ch browserで使えるけど後者はそうじゃないね

**デフォルトの名無しさん** · 2020/03/28(土) 23:41:39.06

まーたやらな言い訳かー
やる気ねーなw

**デフォルトの名無しさん** · 2020/03/29(日) 10:50:09.52

>>61 js

let レス番リスト=[1,3,4,5];
let 先頭レス番=レス番リスト[0];
let 安価="";
for(let イ=0;イ<レス番リスト.length-1;イ++){
if(レス番リスト[イ]+1!=レス番リスト[イ+1]){
安価+=レス番リスト[イ]==先頭レス番?先頭レス番+",":先頭レス番+"-"+レス番リスト[イ]+",";
先頭レス番=レス番リスト[イ+1];
}
}
安価+=レス番リスト[レス番リスト.length-1]==先頭レス番?先頭レス番:先頭レス番+"-"+レス番リスト[レス番リスト.length-1];
console.log(安価);

=>1,3-5

**デフォルトの名無しさん** · 2020/03/29(日) 14:05:00.00

>>61 Perl5 (もう少しｽﾏｰﾄな書き方はあるかもしれないが…)

for (qw{[1] [2,3] [1,2,3] [1,3] [1,3,4,5]}) {
　@a = /(\d+)/g;
　%h = map{$_ => $_} @a;
　@b = map{$h{$_}//','} 1..1000;
　$"=','; $b = "@b";
　$b =~ s/^,*(.+?),*$/$1/;
　@c = split /,,+/, $b;
　@d = map{[eval]} @c;
　@e = map{@$_ > 2 ? "$$_[0]-$$_[-1]" : "@$_"} @d;
　print "@e\n";
}

実行結果
~ $ perl 17_61_resanc.pl
1
2,3
1-3
1,3
1,3-5

**デフォルトの名無しさん** · 2020/03/29(日) 18:03:50.57

なにやってるのか全くわからんw

**デフォルトの名無しさん** · 2020/03/29(日) 18:46:57.43

@a = /(\d+)/g; … 文字列から数値だけを抽出しリスト変数@aに格納、たとえば文字列が"[1,3,4,5]" の場合@aは(1, 3, 4, 5)

%h = map{$_ => $_} @a; … 変数@aのリスト例えば(1, 3, 4, 5)を入力として値対値ハッシュ {1=>1, 3=>3, 4=>4, 5=>5}を作り変数%hとする

@b = map{$h{$_}//','} 1..1000; … 1～1000までの数値に対しハッシュ%hを参照し値があればその値、無ければ','文字のリストを生成して変数@bに格納、上記{1=>1, 3=>3, 4=>4, 5=>5}の場合はこんな感じ
#　 1 2 3 4 5 6 7 8 9 … 1000
@b: 1 , 3 4 5 , , , , … ,

$"=','; $b = "@b"; … 上記リスト@bを元に要素を区切り文字','で繋いだ文字列を作り変数$bに設定
上記@b: 1 , 3 4 5 , , , … ,
の場合 $b = "1,,,3,4,5,,,,,,,…,,"
2や6以降は無いので,となっている

$b =~ s/^,*(.+?),*$/$1/; … 文字列$bの先頭と末尾に','があれば除去
例 $b = "1,,,3,4,5,,,,,,,…,," ⇒ "1,,,3,4,5"

@c = split /,,+/, $b; … $bを正規表現/,,+/を区切りとして分割したリストを@cに格納
例 $b = "1,,,3,4,5" ⇒ @c = ("1", "3,4,5")

@d = map{[eval]} @c; … リスト@cの文字列をそれぞれevalして数値リストのreferenceの配列を@dに設定
例 @c = ("1", "3,4,5") ⇒ @d = ([1], [3, 4, 5])

@e = map{@$_ > 2 ? "$$_[0]-$$_[-1]" : "@$_"} @d;
@dの夫々の数値リストに対し、要素が1だったらその数値自体を文字列に、2個だったら数値を','で連結した文字列に、
3個以上だったら"最初の数値-最後の数値"という文字列に変換
例 @d = ([1], [3, 4, 5]) ⇒ @e = ("1", "3-5")

print "@e\n";
@e の文字列リストを','で繋いで印字（上の方で区切り文字$"は=','に設定済）
例 @e = ("1", "3-5") ⇒ 1,3-5

@dと@eを作るところがもう少しｴﾚｶﾞﾝﾄにできればよかったけれど

**デフォルトの名無しさん** · 2020/03/29(日) 19:07:03.53

なるほど、そうやって並んだ部分でグループ化するのか

**デフォルトの名無しさん** · 2020/03/30(月) 22:44:25.79

>>65 Perl5 少しｽﾏｰﾄに書けた(文字列ﾏｯﾁﾝｸ処理ﾞ主体になっちまったけれど…)

$"=',';
for (qw{[1] [2,3] [1,2,3] [1,3] [1,3,4,5]}) {
　@a = /(\d+)/g;
　%h = map{$_ => $_} @a;
　@b = map{$h{$_}//' '} 1..20;
　$b = "@b";
　@c = $b =~ /(\d(?:,\d)*)/g;
　s/(,\d+)+,/-/ for @c;
　print "@c\n";
}

実行
~ $ perl 17_61_resanc_0330.pl
1
2,3
1-3
1,3
1,3-5

**デフォルトの名無しさん** · 2020/03/30(月) 22:45:46.57

>>69 テスト時のcodeが残ってた…orz
×　@b = map{$h{$_}//' '} 1..20;
○　@b = map{$h{$_}//' '} 1..1000;

**デフォルトの名無しさん** · 2020/03/31(火) 23:56:04.38

>>59
めったに使えない evalが入てて楽しい

**デフォルトの名無しさん** · 2020/04/03(金) 19:14:26.56

お題

文字列の先頭から続く、0 は、8進数と解釈されるため、バグります！
なので、それらを除去して、10進数と解釈できる文字列にして下さい。
以下は、すべて文字列です

090 → 90
0080 → 80

123 → 123

0 → 0
000 → 0

"" → ""

**デフォルトの名無しさん** · 2020/04/03(金) 19:53:54.22

>>72 マルチポスト＆スレチ
https://mevius.5ch.net/test/read.cgi/tech/1578068134/

72 · 2020/04/03(金) 20:02:16.50

向こうのスレから移動したので、このスレで続けて下さい！

**デフォルトの名無しさん** · 2020/04/03(金) 20:06:07.16

粘着者湧いてるじゃん

**デフォルトの名無しさん** · 2020/04/03(金) 20:13:05.27

>>72
js

result=input==""?"":Number(input)

**デフォルトの名無しさん** · 2020/04/03(金) 20:17:14.47

>>72
perl5
https://pastebin.com/msNvZtWg

**デフォルトの名無しさん** · 2020/04/03(金) 20:17:36.06

すまん、よく読んでなかったわ

**デフォルトの名無しさん** · 2020/04/04(土) 00:40:59.23

>>72 Perl5

for $a (qw{090 0080 123 0 000}) {
　($b = $a) =~ s/^0*([\d])/$1/;
　print "$a → $b\n"
}

実行結果
~ $ perl 17_72_0dec.pl
090 → 90
0080 → 80
123 → 123
0 → 0
000 → 0

**デフォルトの名無しさん** · 2020/04/04(土) 00:43:04.52

>>79 いや、([\d])は(\d)で十分だた…

for $a (qw{090 0080 123 0 000}) {
　($b = $a) =~ s/^0*(\d)/$1/;
　print "$a → $b\n"
}

**デフォルトの名無しさん** · 2020/04/04(土) 01:02:31.09

>>80
r オプションつかうと括弧省ける
$b = $a =~ s/^0*(\d)/$1/r;

**デフォルトの名無しさん** · 2020/04/04(土) 01:49:49.76

>>81
そっか、今度から置換代入にはr使ってみる。

も少し書き換えたら、こうなった

for (qw{090 0080 123 0 000}) {
/^0*(\d+)/;
print "$_ → $1\n"
}

~ $ perl 17_72_0dec.pl
090 → 90
0080 → 80
123 → 123
0 → 0
000 → 0

72 · 2020/04/04(土) 12:46:11.12

>>72
Ruby で

def delete_successive_zero( str )
return "" if str == ""

str.to_i.to_s # 10進数
end

ary = %w(090 0080 123 0 000)
ary.push ""

p ary.map { |str| delete_successive_zero( str ) }

出力
[ "90", "80", "123", "0", "0", "" ]

**デフォルトの名無しさん** · 2020/04/04(土) 13:37:45.44

>>52 Dart

void main() {
　　final List<String> anchors = ["1", "1-3", "1,3", "1,3-5"];
　　anchors.forEach((anchor) => print("$anchor => ${toNums(anchor)}"));
}

List<int> toNums(str) {
　　final List<int> result = [];
　　str.split(",").forEach((param){
　　　　if(param.contains("-")) {
　　　　　　result.addAll(hoge(param));
　　　　} else {
　　　　　　result.add(int.parse(param));
　　　　}
　　});
　　return result;
}

List<int> hoge(str) {
　　final List<int> result = [];
　　final range = str.split("-");
　　for(var i = int.parse(range[0]);i <= int.parse(range[1]); i++) result.add(i);
　　return result;
}

// =>
1 => [1]
1-3 => [1, 2, 3]
1,3 => [1, 3]
1,3-5 => [1, 3, 4, 5]

**デフォルトの名無しさん** · 2020/04/04(土) 13:48:29.31

>>72 Python

def strip(s):
　　s = s.lstrip('0')
　　if not len(s):
　　　　return '0'
　　return s

**デフォルトの名無しさん** · 2020/04/04(土) 14:34:09.15

>>72
Java
https://paiza.io/projects/40ARFB6Tj0__7hbt0GT4Jg

**デフォルトの名無しさん** · 2020/04/04(土) 23:52:04.74

>>85
""が0になりませんか

**デフォルトの名無しさん** · 2020/04/05(日) 01:07:14.83

>>72
>>85修正
https://ideone.com/rm7jwt

**デフォルトの名無しさん** · 2020/04/05(日) 05:36:36.03

>>72
Perl5

ある意味手抜きなプログラムである。

https://paiza.io/projects/rlLxhWyuXx9FG7oVB7Kutw

オマケ機能としてマイナスの時に -00009 みたいなやつも -9 になるようにした。
更に、整数の数でない場合(文字列の場合)はダブルクォーテーションで括って出すようにした。

**デフォルトの名無しさん** · 2020/04/05(日) 05:42:34.94

>>72
Kotlin
https://paiza.io/projects/5CLwMbqJUtLbrE6nD5oZOA

>>89よりも更にもっと手抜きである。びっくりするほど何もやってない。仕様は同じ。

**デフォルトの名無しさん** · 2020/04/05(日) 06:46:49.40

あ～マイナス値は考慮してなかったな～

**デフォルトの名無しさん** · 2020/04/05(日) 06:56:54.72

教えて君の質問に馬鹿正直に答えてやるなよ

**デフォルトの名無しさん** · 2020/04/05(日) 07:43:19.11

>>72 Python
https://ideone.com/Q5vth7

PerlとKotlinの人のに比べると長くなってしまったのが心残り

**デフォルトの名無しさん** · 2020/04/05(日) 12:55:09.83

粘着君の意に反して回答わっさわっさ来ててワロタ

**デフォルトの名無しさん** · 2020/04/05(日) 12:56:43.55

粘着君ってなんやねん
スレチだって言われてんだろ

**デフォルトの名無しさん** · 2020/04/05(日) 13:01:09.81

えw それ言ってるのが粘着君じゃないの？w
どの辺がスレチなのか知らんけど君の意見なんか誰も同調しないかのように回答わさわさなのを見てどんな気持ち？？？w

**デフォルトの名無しさん** · 2020/04/05(日) 13:06:14.44

あほくさ

**デフォルトの名無しさん** · 2020/04/05(日) 13:06:52.23

>>72 GNU Smalltalk

| fn |
fn := [:str | str isEmpty ifTrue: [str] ifFalse: [str asNumber]].

(#('090' '0080' '123' '0' '000' '') collect: fn) display.

=> (90 80 123 0 0 '' )

https://ideone.com/x8y6JM

**デフォルトの名無しさん** · 2020/04/05(日) 13:07:50.11

わざわざ他スレから出張してまで粘着するも自分の思い通りにならず涙目敗北草不可避w

**デフォルトの名無しさん** · 2020/04/05(日) 13:08:52.29

ID:SfC0ZJYKは有名な荒しだよ
スルーしな

**デフォルトの名無しさん** · 2020/04/05(日) 13:10:52.18

そのように言っている自分自身の策略書き込みがスルーされているという悲劇ww

**デフォルトの名無しさん** · 2020/04/05(日) 13:13:48.87

共有NG入ってて草
>>72が自力で解けない時点で脳みそに障害あるだろコイツ

**デフォルトの名無しさん** · 2020/04/05(日) 13:15:17.06

ブツブツと負け惜しみを垂れ流しているその姿はまさに哀愁満点 w

**デフォルトの名無しさん** · 2020/04/07(火) 16:39:18.53

>>72
部分解なら lisp で
(loop for i in (list 090 0080 123 0 000 ) do (format t "~d~%" i))
90
80
123
0
0

**デフォルトの名無しさん** · 2020/04/07(火) 19:00:27.59

であればもうこれで十分って感じがしてきた^^;

>>72 GNU Smalltalk

#(090 0080 123 0 000 '') display.

=> (90 80 123 0 0 '' )

https://ideone.com/e0kdys

**デフォルトの名無しさん** · 2020/04/08(水) 07:58:45.75

お題: レスの被アンカー数をレスごとにカウントし、降順に整列して出力せよ
入力は1レス1行で入力され、1行のフォーマットは「レス番:レス内容」でコロンで区切ってある
レスの入力がすべて終わった段階でレスごとに被アンカー数を計算し、「レス番:カウント数」のフォーマットで出力せよ

入力と出力例: https://ideone.com/XOytlP

**デフォルトの名無しさん** · 2020/04/08(水) 16:25:56.70

こんな感じで作ったな
select_word_and_anchor.pl
https://ideone.com/bpypjv

cat ~/.w3m/keymap
# vim: set nowrap
keymap a EXEC_SHELL "w3m -cols 200 $( echo $W3M_URL| sed 's/[-l][0-9]\+//' ) | /home/web/extract_body_of_2ch.sh | /home/bin/select_word_and_anchor.pl|less"

**デフォルトの名無しさん** · 2020/04/08(水) 16:30:02.96

動作はこんな感じ例にあるような常用2chアンカー機能する
https://i.imgur.com/Bw5tlnl.png

**デフォルトの名無しさん** · 2020/04/08(水) 23:06:09.94

>>106 Perl5

for (<>) {
　($r, @a) = /([-\d]+)/g;
　push @s, $r;
　for (@a) {
　　@b = /(\d+)/g;
　　$h{$_}++ for $b[0]..$b[-1]
　}
}
printf "%d: %d\n", $_, $h{$_}//0 for @s;

実行結果
https://ideone.com/UVvDtv

**デフォルトの名無しさん** · 2020/04/09(木) 00:05:07.49

>>106 Perl5、ｺﾞﾒﾝ「降順に整列」が抜けてた…orz、やり直し

for (<>) {
　($r, @a) = /([-\d]+)/g;
　push @s, $r;
　for (@a) {
　　@b = /(\d+)/g;
　　$h{$_}++ for $b[0]..$b[-1]
　}
}
@t = sort{$h{$b} <=> $h{$a}} @s;
printf "$_: %d\n", $h{$_}//0 for @t;

実行結果
https://ideone.com/r4tBGc

**デフォルトの名無しさん** · 2020/04/09(木) 10:38:42.89

>>106
話題そらそうと粘着君が必死だねｗｗｗ負け組だっさｗｗｗ

**デフォルトの名無しさん** · 2020/04/09(木) 12:42:58.73

？

**デフォルトの名無しさん** · 2020/04/09(木) 15:48:38.65

荒らしは必ず、2回書き込む。
「そうだよね」とか、同意するレスを付けて、人数が多いように見せる

くだすれPython(超初心者用) その47【Ruby禁止】

Ruby禁止とか、色々なスレのタイトルを勝手に変える

工学部というコテハンだろ。
ソースコードを書かないし、プログラマーじゃないから相手をしないように！

**デフォルトの名無しさん** · 2020/04/09(木) 16:48:05.84

>>113
そのスレは別のスレであり話題としてスレ違い。
そもそもそれらのスレでRuby禁止と付けられる原因を作っているお前が言うな。
お前こそコテハンをつけるか書き込みをやめるかしろよ。

**デフォルトの名無しさん** · 2020/04/09(木) 16:59:35.57

>>113
悔しいんでしょｗｗそうゆう風にいつまでも負け惜しみ言ってなよｗｗｗ

**デフォルトの名無しさん** · 2020/04/10(金) 15:52:58.48

>>110
コード短いね

**デフォルトの名無しさん** · 2020/04/10(金) 15:53:17.46

ageてしまった

**デフォルトの名無しさん** · 2020/04/10(金) 17:33:36.23

気にすんな

**デフォルトの名無しさん** · 2020/04/10(金) 17:34:13.60

age禁止ってまだやってんの？

**デフォルトの名無しさん** · 2020/04/10(金) 17:42:36.38

非常事態を宣言します

**デフォルトの名無しさん** · 2020/04/10(金) 20:50:54.41

このスレは放っておくとすぐ過疎っちゃうんだからむしろもっともっと激しくテッテ的にage続けるべきだ。

**デフォルトの名無しさん** · 2020/04/11(土) 00:56:36.59

>>110
for (´･ω･`) {
}

**デフォルトの名無しさん** · 2020/04/11(土) 01:07:31.53

>>106 Python
https://ideone.com/BUavn0

**デフォルトの名無しさん** · 2020/04/11(土) 01:11:10.19

（＞＜）

**デフォルトの名無しさん** · 2020/04/12(日) 00:40:37.82

>>106
Java
https://paiza.io/projects/vxSOQ88rVG6rpipq_1HAxw

**デフォルトの名無しさん** · 2020/04/13(月) 23:30:53.99

>>106
Kotlin
https://paiza.io/projects/HAl3vl4Eq9slJCfOWogfBA

**デフォルトの名無しさん** · 2020/04/14(火) 00:06:26.40

>>106
Kotlin
正規表現使わない版
https://paiza.io/projects/HN7v3_Noc9-TkctmYCk5xA
更に最初から SortedMap に入れるようにした。

**デフォルトの名無しさん** · 2020/04/14(火) 01:39:02.43

>>106
C
https://paiza.io/projects/1bl_PaKjDj3WaMhCIZG0eQ

やっぱCで標準のライブラリしか使わないと長くなるな。

**デフォルトの名無しさん** · 2020/04/14(火) 01:44:11.08

if(m[n]==null) m[n]=1
の部分と三項演算子の部分の後分は機能が被ってませんか？

**デフォルトの名無しさん** · 2020/04/14(火) 12:04:01.20

>>61 Perl5、正規表現を使った文字列処理ではなく、数値のリストに対する処理として書いてみた

sub f {
　my @s;
　while (my $e = shift) { push @s, $e }
　@_ ? (@s ? (\@s, f(@_)) : f(@_)) : \@s;
}
sub g { @_ > 2 ? "$_[0]-$_[-1]" : @_ }
for ([1], [2,3], [1,2,3], [1,3], [1,3,4,5], [7,9]) {
　@a = ();
　@a[@$_] = @$_;
　@b = f @a;
　@c = map{g @$_} @b;
　$"=',';
　print "[@$_] -> '@c'\n";
}

実行結果
~ $ perl 17_61_resanc_0414fp.pl
[1] -> '1'
[2,3] -> '2,3'
[1,2,3] -> '1-3'
[1,3] -> '1,3'
[1,3,4,5] -> '1,3-5'
[7,9] -> '7,9'

**蟻人間** ◆T6xkBnTXz7B0 · 2020/04/14(火) 12:53:55.02

お題: 整数の閉区間がいくつか与えられる。
それらの和集合を求め、それをいくつかの閉区間で出力せよ。
出力の閉区間の個数はなるべく少なくすること。

(例)
[1, 5], [2, 6], [-1, 10] ==> [-1, 10].
[2, 3], [3, 4], [7, 10] ==> [2, 4], [7, 10].

**デフォルトの名無しさん** · 2020/04/14(火) 14:56:59.99

>>129
三項演算子ではない(Kotlinには三項演算子はない)。?: はエルビス演算子で、左側の式が null だったら右側の値を使うというやつ。nullでなければそのまま左側の値を使う。

で、その部分は先頭のレス番号のキーがまだ作られてなかったら0で初期化する部分だ。

m[n] = m[n] ?: 0

とも書けるが、これは何か無駄な感じがする。nullでなければ同じ値の代入になるので。だからifで必要な時だけの代入(初期化)にした。

**デフォルトの名無しさん** · 2020/04/14(火) 15:14:57.47

>>131 Perl5

sub f {
　my @s;
　while (defined (my $e = shift)) { push @s, $e }
　@_ ? (@s ? (\@s, f(@_)) : f(@_)) : \@s;
}
sub g { map{"[$$_[0],$$_[-1]]"} @_ }
for ([[1, 5], [2, 6], [-1, 10]],
　　　[[2, 3], [3, 4], [7, 10]]) {
　%h = map{$_ => $_} map{$$_[0]..$$_[1]} @$_;
　@k = sort{$a <=> $b} keys %h;
　@l = f map{$h{$_}} $k[0]..$k[-1];
　$"=',';
　@j = g @$_;
　@k = g @l;
　print "@j ==> @k\n";
}

実行結果
~ $ perl 17_131_intrange.pl
[1,5],[2,6],[-1,10] ==> [-1,10]
[2,3],[3,4],[7,10] ==> [2,4],[7,10]

**デフォルトの名無しさん** · 2020/04/14(火) 15:35:48.84

>>132
なるほど。ありがとうございます。

**デフォルトの名無しさん** · 2020/04/14(火) 17:17:14.65

数式を標準入力から与えられる。
計算結果を出力しなさい。

条件
・数式の長さが1000を超える場合や、不正な数式についてはErrorと出力すること
・整数を出力しなさい
・小数点が出る場合は切り捨てた値を出力すること
・eval禁止
・数式に利用できる文字　0123456789+-*/()
・数式に半角スペースは含まれない

**デフォルトの名無しさん** · 2020/04/14(火) 17:45:13.26

>>135 数式のサンプルよろ

**デフォルトの名無しさん** · 2020/04/14(火) 17:50:15.21

100/2(3+4)
はいくつですか？

**デフォルトの名無しさん** · 2020/04/14(火) 17:56:57.90

>>137
*が省かれているからErrorとする
あるいは100/2*(2+3)とみなして250
じゃまいか

**蟻人間** ◆T6xkBnTXz7B0 · 2020/04/14(火) 19:35:28.42

お題: CD/DVDドライブのトレイを開きなさい。

**デフォルトの名無しさん** · 2020/04/14(火) 19:48:22.16

>>135 Ruby

eval gets rescue $><<:Error

**デフォルトの名無しさん** · 2020/04/14(火) 19:50:23.06

typo

p eval$_ rescue$><<:Error while gets

**デフォルトの名無しさん** · 2020/04/14(火) 20:13:52.06

>>139
言語:日本語
実行:日本人

CD/DVDドライブのトレイを開きなさい。

◆QZaw55cn4c · 2020/04/14(火) 20:35:51.72

>>142
言語：日本語
実行：日本語を理解する人

の方が正確ですね

**デフォルトの名無しさん** · 2020/04/14(火) 22:24:45.74

>>139 Python

import ctypes
ctypes.windll.WINMM.mciSendStringW(u"set cdaudio door open", None, 0, None)

**デフォルトの名無しさん** · 2020/04/15(水) 01:04:36.72

三項演算子ないとかゴミだな

**デフォルトの名無しさん** · 2020/04/15(水) 12:23:24.76

>>131 js

let input = [[2, 3], [3, 4], [7, 10]];

let result = input.reduce((merged, range) => {
let under = range.map(n =>
merged.filter(mrange => mrange[0] <= n && n <= mrange[1])[0]||[]);

let extended = [under[0][0] || range[0], under[1][1] || range[1]];

let bored = merged.filter(mrange => !(extended[0] <= mrange[0] && mrange[1] <= extended[1]));

return [...bored, extended];
}, []);

console.log(result);

**デフォルトの名無しさん** · 2020/04/15(水) 12:57:38.58

>>135 F#
https://ideone.com/7RMvKQ

**デフォルトの名無しさん** · 2020/04/15(水) 15:02:35.67

>>145 Perl5、再帰降下parser generator使わせてもらいました

sub evalop {
　my (@list) = @{$_[0]};
　my $val = shift(@list)->();
　while (@list) {
　　my ($op, $arg2) = splice @list, 0, 2;
　　$op->($val,$arg2->());
　} $val }
use Parse::RecDescent;
$parse = new Parse::RecDescent(<<'EOG');
　formula: expr /\s*\Z/ {$item[1]->()} | <error>
　expr: <leftop:muldiv add_op muldiv> {sub {::evalop $item[1]}}
　add_op: '+' {sub {$_[0] += $_[1]}} | '-' {sub{ $_[0] -= $_[1]}}
　muldiv: <leftop:factor mult_op factor> {sub {::evalop $item[1]}}
　mult_op: '*' {sub {$_[0] *= $_[1]}} | '/' {sub {$_[0] /= $_[1]}}
　factor: number | '(' expr ')' {$item[2]}
　number: /\d+/ {sub {$item[1]}}
EOG
for (<DATA>) {
　chomp;
　$ret = defined ($iret = $parse->formula($_)) ? sprintf('%d', $iret) : 'Error';
　printf "$_ = %s\n", $ret;
}
__DATA__
1+2*((3-4*5)/6+7)*8-9
100/2(3+4)
100/2*(3+4)
*10
1/3*3

**デフォルトの名無しさん** · 2020/04/15(水) 15:04:17.94

>>148
アンカーしくった…orz
>>135 宛でした。

実行結果
~ $ perl 17_135_recdecexpr.pl

　　　 ERROR (line 1): Invalid formula: Was expecting /\s*\Z/ but found
　　　　　　　　　　　 "(3+4)" instead

　　　 ERROR (line 1): Invalid formula: Was expecting expr
1+2*((3-4*5)/6+7)*8-9 = 58
100/2(3+4) = Error
100/2*(3+4) = 350
*10 = Error
1/3*3 = 1

**蟻人間** ◆T6xkBnTXz7B0 · 2020/04/15(水) 21:28:09.80

お題: 二次元空間にナゾの物体Pが2個ある。2個のPは初期状態に(-3, -2), (3, 1)[単位:m]にあるものと仮定する。
2個のPは離れすぎると距離r[m]に比例する引力加速度2*r[m/s^2]を生じ、近づきすぎると距離r[m]に反比例する反発
加速度k/r[m/s^2]が発生する。rが収束するとき(一秒あたりの距離の変化が0.01[m]以下)の距離をRと表す。
kとRの関係を調べたい。kを1.0から1.5まで0.1刻みで動かし、それぞれで数値積分によって2つのPの収束位置を近似計算し、Rを求め、(k, R)の組を出力せよ。

**デフォルトの名無しさん** · 2020/04/15(水) 21:56:01.64

はい、次の方どうぞ

**蟻人間** ◆T6xkBnTXz7B0 · 2020/04/15(水) 22:30:18.26

お題: 次のようなプログラムを作れ。プログラムを起動したとき、ファイル「times.txt」に現在の日時を秒単位で記録した後、
前回の起動日時との差を求め、時間差の秒数を表示せよ。
ただし、うるう秒を考慮すること。

**デフォルトの名無しさん** · 2020/04/15(水) 23:31:28.64

>>150
慣性が働いて抵抗が無いなら収束などしない
永遠に振動し続ける

初速度も書いて無いし
離れすぎ、近づきすぎの条件も書いてない

**デフォルトの名無しさん** · 2020/04/16(木) 00:11:24.84

>>131 c
https://ideone.com/2oXq06

**デフォルトの名無しさん** · 2020/04/16(木) 00:30:51.63

乙。

**デフォルトの名無しさん** · 2020/04/16(木) 01:19:43.21

>>153
アスペルガー症候群は黙ってた方がいい

**デフォルトの名無しさん** · 2020/04/16(木) 01:25:27.80

初速度や離れすぎ、近づきすぎの条件が書いてないのは事実で回答しようも無いんだし
そういうのはやめたらどうかと思うんだが

**デフォルトの名無しさん** · 2020/04/16(木) 01:27:18.30

そういう柔軟性のなさがアスペルガー症候群くさいんだよなぁ…
まあ本当は出題の意図は分かってて敢えてイチャモン付けてるんだろうけど

**デフォルトの名無しさん** · 2020/04/16(木) 01:28:44.29

>>158
じゃあ、お前さんがお題の回答プログラム
どうぞよろしく

**デフォルトの名無しさん** · 2020/04/16(木) 01:37:52.71

俺なら初期位置も計算の打ち止め条件も完全に無視してポテンシャルの極小値を求めるプログラムを書いて提示するかな
出題者が期待してるのはそういうものだろうし些細な出題の問題点をいちいち指摘してボツにさせる気なんか起きないな

**デフォルトの名無しさん** · 2020/04/16(木) 01:40:49.88

>>160
そのプログラムを投稿すればいいだけの話