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

**デフォルトの名無しさん** · 2019/05/18(土) 17:33:29.45

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

【出題と回答例】
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/

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

※前スレ
https://mevius.5ch.net/test/read.cgi/tech/1549160513/

**デフォルトの名無しさん** · 2019/06/24(月) 22:32:09.63

おそらくこいつはラプラス変換も知らない馬鹿だ

**デフォルトの名無しさん** · 2019/06/24(月) 22:53:08.06

>>592
懐かしいな
以前、複素数にまで拡張された指数関数が一般に多価関数になるということが解らなくて
わざわざ他の板まで行って醜態を晒してたなこいつ

◆QZaw55cn4c · 2019/06/24(月) 23:24:54.85

>>592
それは記憶違いでは？
当時「計算練習として複素関数論をやればいいのでは？」という意見に対して「留数定理は忘れた」と発言しただけですよ、実際もう忘れましたし、それにしても昔のことをよく覚えていますよね、この執念はいったいなんなんでしょうか？

>>594
このスレのお題「e^z = -1 たる z ∈C を求めよ」にてずいぶんと勉強させていただきましたが、それもこのスレだけの話で、わざわざ他のスレや他の板に行った覚えはありませんね、証拠を出せますか？

>>593
ラプラス変換の教科書に当時メモ書きした式変形ですら、もう自分でも理解できなくなっているのは認めましょう…

**デフォルトの名無しさん** · 2019/06/24(月) 23:29:01.25

>>595
確か数学板で聞いてただろお前
そのリンクをこのスレに貼ってたはずだから気になるなら自分で調べろ

◆QZaw55cn4c · 2019/06/24(月) 23:46:51.79

>>596
数学板でまともに質問したのは「頂を踏む」の一節
https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q13170327928
だけですよ、数学板に書かないわけではありませんけれどもね

**デフォルトの名無しさん** · 2019/06/24(月) 23:54:27.14

知恵袋やってて草
後で通報しとくわ

**デフォルトの名無しさん** · 2019/06/25(火) 00:17:49.29

>>555
echo '～'

**デフォルトの名無しさん** · 2019/06/25(火) 12:16:33.88

お題
7月中の、3人の空いている日のリストがあります。
3人の内、2人以上が空いている日と、名前を求めよ

A
2019/07/05
2019/07/10
2019/07/15
2019/07/20

B
2019/07/08
2019/07/10
2019/07/20

C
2019/07/15
2019/07/20
2019/07/25

**デフォルトの名無しさん** · 2019/06/25(火) 12:21:21.76

日付と名前の区別ってどうすんの？

**600** · 2019/06/25(火) 13:41:11.08

書式は、どうでも良い。
こんな感じで

2019/07/10 A B
2019/07/10, A, B

**デフォルトの名無しさん** · 2019/06/25(火) 15:28:07.62

Hash使うとすごく簡単にできると思うが、Hashへの値のセットをプログラム中に書こうとすると、それがそのまま答えになってしまいそうな予感w

**デフォルトの名無しさん** · 2019/06/25(火) 16:12:29.73

>>573 Python3.6 ideonのpython は3.5で動かないが、下の方に出力サンプルを張り付けてあるからそれを見てください。
https://ideone.com/JqcYMA

出力サンプルを少しだけここに張り付け
開店時間＝ 0.0
Aの取皿開始　speed=0.7 kosu=0 時刻は 0.0
Bの取皿開始　speed=1.0 kosu=0 時刻は 0.01
Cの取皿開始　speed=1.4 kosu=0 時刻は 0.02
★★マグロが出来た時刻=0.03 作成間隔 t=0.30
Cがマグロを食った作成時刻＝0.03
★★カッパが出来た時刻=0.33 作成間隔 t=0.10
Aがカッパを食った作成時刻＝0.33
★★ウニが出来た時刻=0.43 作成間隔 t=0.10
★★上トロが出来た時刻=0.53 作成間隔 t=0.10
Cがウニを食った作成時刻＝0.43
Cが満腹休むよ　時刻＝0.63
Aが上トロを食った作成時刻＝0.53
★★エンガワが出来た時刻=0.64 作成間隔 t=0.10
★★マグロが出来た時刻=0.74 作成間隔 t=0.10
Bがエンガワを食った作成時刻＝0.64
Bがマグロを食った作成時刻＝0.74
★★マグロが出来た時刻=0.74 作成間隔 t=0.10
Bがエンガワを食った作成時刻＝0.64Bがマグロを食った作成時刻＝0.74
★★カッパが出来た時刻=0.84 作成間隔 t=0.10
★★ウニが出来た時刻=0.94 作成間隔 t=0.10
★★上トロが出来た時刻=1.04 作成間隔 t=0.10
Aの取皿開始　speed=0.7 kosu=1 時刻は 1.11
Aがカッパを食った作成時刻＝0.84

★★エンガワ

**デフォルトの名無しさん** · 2019/06/25(火) 16:57:19.63

>>600 Pharo/Squeak Smalltalk

| data dic |

data := {
#A -> #('2019/07/05' '2019/07/10' '2019/07/15' '2019/07/20').
#B -> #('2019/07/08' '2019/07/10' '2019/07/20').
#C -> #('2019/07/15' '2019/07/20' '2019/07/25')
}.

dic := Dictionary new.
data do: [:assoc |
assoc value do: [:date | (dic at: date ifAbsentPut: [OrderedCollection new]) add: assoc key].
].
dic associations sort
select: [:assoc | assoc value size >= 2]
thenCollect: [:assoc | assoc value: assoc value asArray]

"=> {'2019/07/10'->#(#A #B) . '2019/07/15'->#(#A #C) . '2019/07/20'->#(#A #B #C)} "

**蟻人間** ◆T6xkBnTXz7B0 · 2019/06/25(火) 17:04:02.93

>>575
テストデータ(各自で用意すること): 長方形、星形、ハート形

**デフォルトの名無しさん** · 2019/06/25(火) 17:27:11.68

#!/usr/bin/env perl
use List::MoreUtils;
@A = qw( 2019/07/05 2019/07/10 2019/07/15 2019/07/20);
%A = map {$_, 1} @A;

@B = qw( 2019/07/08 2019/07/10 2019/07/20);
%B = map {$_, 1} @B;

@C = qw( 2019/07/15 2019/07/20 2019/07/25);
%C = map {$_, 1} @C;

SEARCH:
for ( List::MoreUtils::uniq (@A, @B, @C) ){
if ($A{$_} && $B{$_} && $C{$_}){
print "everyone is free at $_\n";
next SEARCH;
}
if ($A{$_} && $B{$_} ){
print "A and B is free at $_\n";
}
if ($B{$_} && $C{$_}){
print "B and C is free at $_\n";
}
if ($A{$_} && $C{$_}){
print "A and C is free at $_\n";
}
}

**デフォルトの名無しさん** · 2019/06/25(火) 17:29:23.86

>>605
やはり辞書型がくみこまれてる言語は綺麗だね
数が増えたときでも問題ないかんじ

**デフォルトの名無しさん** · 2019/06/25(火) 17:30:16.52

ハート型って多角形だったのかー
こらノーベル賞ものの発見だな!

**デフォルトの名無しさん** · 2019/06/25(火) 17:30:27.94

タイポ
辞書型ではなく集合型だ

**デフォルトの名無しさん** · 2019/06/25(火) 18:13:23.94

>>600
>607はあまりにも酷かったので、修正
#!/usr/bin/env perl
use List::MoreUtils;
@A = qw( 2019/07/05 2019/07/10 2019/07/15 2019/07/20 );
%A = map {$_, A} @A;

@B = qw( 2019/07/08 2019/07/10 2019/07/20 );
%B = map {$_, B} @B;

@C = qw( 2019/07/15 2019/07/20 2019/07/25 );
%C = map {$_, C} @C;

for $date ( List::MoreUtils::uniq (@A, @B, @C) ){
for $someone_is_free_at (\%A, \%B, \%C){
push(@free_men, $$someone_is_free_at{$date}) if $$someone_is_free_at{$date};
}
print "@free_men are free at $date\n" if (@free_men > 1);
@free_men = ();
}

出力
A B are free at 2019/07/10
A C are free at 2019/07/15
A B C are free at 2019/07/20

**蟻人間** ◆T6xkBnTXz7B0 · 2019/06/25(火) 18:43:25.69

ユーチューブのおかげで誰でも動画を投稿してお金を稼げる時代になった。
自分のアイデアをvisualizeし、面白い動画にして投稿すれば、収益化できる。
プログラミングをマルチメディアやGUIに対応させることは当たり前。
あなたもテック系ユーチューバーになろう。

動画は変化する静止画の連続であり、スクリーンショットで一枚一枚画像を撮ってテキトーなツールでつなげれば動画に出来る。

**デフォルトの名無しさん** · 2019/06/25(火) 18:48:37.74

>>600
https://ideone.com/wTvm0s
C++。オレ、あほになってるなぁ。それとDataTime欲しい。

**デフォルトの名無しさん** · 2019/06/25(火) 18:50:16.61

>>612
手頃で簡単な動画コンテナ知らない？
AVIのフォーマット調べたらRIFF吐かないといけなくて、そこからかよ！って感じだった。

**蟻人間** ◆T6xkBnTXz7B0 · 2019/06/25(火) 18:52:08.76

お題: あみだくじを解け。n本の縦線を上下に平行に引き、上から順番に二つの縦線を結ぶ形でいくつかm本の横線を引く。下側の縦線の端の一つにゴールを設定するとき、あみだくじの
ルールに従ってゴールに到達する縦線の端のスタート地点を求めよ。

**蟻人間** ◆T6xkBnTXz7B0 · 2019/06/25(火) 18:58:25.64

>>614
連番でビットマップ吐けばフリーソフトでつなげられるだろよ。

**デフォルトの名無しさん** · 2019/06/25(火) 19:02:19.01

>>616
そうなるか。ふむふむ。

**デフォルトの名無しさん** · 2019/06/25(火) 19:17:59.99

>>616 おいこら、出題ペースが早すぎるぞ。解答もほとんど出ていない状態で次のなんて出すなよ。

**デフォルトの名無しさん** · 2019/06/25(火) 19:51:46.12

>>611
日付に対する前置詞はonだぞ

**デフォルトの名無しさん** · 2019/06/25(火) 19:56:07.32

>>619
thanks

**蟻人間** ◆T6xkBnTXz7B0 · 2019/06/25(火) 20:43:10.45

面白い動画たーくさん作って早く労働者階級を卒業しよっぜ。

**デフォルトの名無しさん** · 2019/06/25(火) 23:32:34.03

>>573 Pharo Smalltalk

http://ws.stfx.eu/FWYMKVTGYK60

**蟻人間** ◆T6xkBnTXz7B0 · 2019/06/25(火) 23:47:01.47

多角形の問題は、最小包含円問題というらしい。

**デフォルトの名無しさん** · 2019/06/26(水) 01:05:18.27

>>575 >>623 それって、>>11 の入口問題だな。俺も>>11 関連で知ったが、最小包含円って言葉は、このスレで何度か出てきてるぞ、
具体的な宇宙人の足跡データが、>>11 として最小包含円を求めよとした方がより具体的だな。いくつか答えが出てるけど。

具体的なデーターを示さないと答えがバラバラになるぞ。蟻人間の問題ってあやふやなのが多いな。

**デフォルトの名無しさん** · 2019/06/26(水) 01:11:38.67

>>600 Perl5

@a = map{sprintf"2019/07/%02d",$_} 1..31;
$h{$_}{A}=1 for qw{2019/07/05 2019/07/10 2019/07/15 2019/07/20};
$h{$_}{B}=1 for qw{2019/07/08 2019/07/10 2019/07/20};
$h{$_}{C}=1 for qw{2019/07/15 2019/07/20 2019/07/25};
@b = grep{1<keys %{$h{$_}}} @a;
print "$_ @{[keys %h{$_}]}\n" for @b;

実行結果
~ $ perl 14_600.pl
keys on reference is experimental at 14_600.pl line 6.
2019/07/10 B A
2019/07/15 C A
2019/07/20 B A C

**蟻人間** ◆T6xkBnTXz7B0 · 2019/06/26(水) 01:12:45.72

>>615
n=3
m=5
として横線は
(0, 1)
(1, 2)
(1, 2)
(0, 1)
(1, 2)
としよう。

**デフォルトの名無しさん** · 2019/06/26(水) 01:16:52.13

>>625 ｽﾏｿ「keys on reference is experimental at 14_600.pl line 6.」が出ちゃってた…orz

>>600 Perl5 ﾁｮｯﾄ修正
@a = map{sprintf"2019/07/%02d",$_} 1..31;
$h{$_}{A}=1 for qw{2019/07/05 2019/07/10 2019/07/15 2019/07/20};
$h{$_}{B}=1 for qw{2019/07/08 2019/07/10 2019/07/20};
$h{$_}{C}=1 for qw{2019/07/15 2019/07/20 2019/07/25};
@b = grep{1<keys %{$h{$_}}} @a;
print "$_ @{[keys %{$h{$_}}]}\n" for @b;

実行結果
~ $ perl 14_600.pl
2019/07/10 B A
2019/07/15 A C
2019/07/20 B C A

**蟻人間** ◆T6xkBnTXz7B0 · 2019/06/26(水) 04:24:04.79

日本とゐう国は労使から朽ちていつたんだなあ。

**デフォルトの名無しさん** · 2019/06/26(水) 04:36:53.79

>>628
旧仮名なら「日本と云(い)ふ」だろボケカス

**デフォルトの名無しさん** · 2019/06/26(水) 08:13:01.09

>>555 Lua
prrint("ん")

**デフォルトの名無しさん** · 2019/06/26(水) 09:27:43.17

>>555
さて、そろそろわしの出番のようぢゃな。

#!/bin/sh

echo 'サインカーブ'

**デフォルトの名無しさん** · 2019/06/26(水) 10:05:25.43

整数が複数与えられて、そのうちの５つの積が最大になるものってどうやって選べばいいの？
絶対数でソートしても、負数が奇数個だとマイナスだし頭がこんがらがる

**デフォルトの名無しさん** · 2019/06/26(水) 10:27:17.99

正数の大きい方から5個
正数の大きい方から3個と負数の絶対数の大きい方から2個
正数の大きい方から1個と負数の絶対数の大きい方から4個
で比較すれば？

**デフォルトの名無しさん** · 2019/06/26(水) 10:35:24.88

別に正数とか負数とか気にしないでも良いか
ソートして、上から5個　上から3個と下から2個　上から1個と下から4個　の中で最大のものを選べば

**デフォルトの名無しさん** · 2019/06/26(水) 12:11:39.42

>>634
全て負の値の場合は？
それと気になるのが0。

**デフォルトの名無しさん** · 2019/06/26(水) 12:18:02.87

古典的スタートレックゲーム
言語はなんでもよし

**デフォルトの名無しさん** · 2019/06/26(水) 12:52:21.84

>>632
思考停止して全パターン出して最大値を取る。
あえて5個以下だとエラー。
対策するなら関数fで長さが5個以下か判定すれば良い。

昔、似た様な問題でリスト内包表記と再帰を組み合わせて、
スマートな方法を誰か書いてたの見たけど忘れた。

Haskell

main = f [(-1),4,(-2),1,3,2]

f xs = maximum [product [a,b,c,d,e]|
a <- xs, b <- xs, c <- xs, d <- xs, e <- xs,
a /= b, a /= c, a /= d, a /= e, b /= c, b/= d, b /= e, c /= d, c /= e, d /= e]

**デフォルトの名無しさん** · 2019/06/26(水) 15:36:37.02

>>637 おいおい、いくつの中から5個取り出すかわからないんだぞ。　100000個の中から5個取り出すと結構な時間がかかるだろ。
どんだけの組み合わせになるんだよ。

**デフォルトの名無しさん** · 2019/06/26(水) 15:53:36.43

>>638
だから思考停止っって書いてるんよ＾＾;

**デフォルトの名無しさん** · 2019/06/26(水) 16:01:02.80

>>632

Listモジュールに関数あった。。。

Haskell

import Data.List

main = print $ f [(-1),4,(-2),1,3,2]

f = maximum.map product.permutations

**デフォルトの名無しさん** · 2019/06/26(水) 18:21:48.58

全部負なら、必ず答えも負になるんだから選ぶのは上から5個で良くないか
つまり634で合ってると思う
0も問題無いな、どこにあっても網羅されてる

**デフォルトの名無しさん** · 2019/06/27(木) 01:55:36.37

>>600
perl5 ワンライナー

perl -ne 'if(/^(.*?),(.*)$/){$d{$2}{$1}=1}END{for(sort keys%d){if(keys%{$d{$_}}>=2){print"$_ ".join(",",sort keys%{$d{$_}})."\n"}}}'

入力

A,2019/07/05
A,2019/07/10
A,2019/07/15
A,2019/07/20
B,2019/07/08
B,2019/07/10
B,2019/07/20
C,2019/07/15
C,2019/07/20
C,2019/07/25

出力

2019/07/10 A,B
2019/07/15 A,C
2019/07/20 A,B,C

**デフォルトの名無しさん** · 2019/06/27(木) 07:16:25.32

>>635
oh...全て負の場合は数値が大きい方(絶対値が小さい方)から5個だな

**デフォルトの名無しさん** · 2019/06/27(木) 07:17:36.65

と、それは上から5個か…寝起き死んでるｗｗ

**デフォルトの名無しさん** · 2019/06/27(木) 10:12:29.88

>>637
試した限りじゃ上手く動いてる。
もっとスマートな書き方出来ないものか。。。

Haskell

import Data.List

main = (print.f) [9,(-5),3,2,1,8,(-4)]

f xs |(odd.length) b && (length.filter (<0)) xs > 1 =
promax
((map snd.f') a ++ (map snd.take (5 - (length.f') a)) b')
((map snd.take 5.abslst) xs)
where
a = (filter ((>=0).snd).take 5.abslst) xs
a' = (filter ((>=0).snd).abslst) xs
b = (filter ((< 0).snd).take 5.abslst) xs
b' = (filter ((< 0).snd).abslst) xs

f' xs |length a > length b = init xs
f' _ = (take (5 - (length.init) b)) a'
f xs = promax ((take 5.reverse.sort) xs) ((map snd.take 5.abslst) xs)

promax xs ys |product xs > product ys = xs
promax _ ys = ys

abslst xs = reverse.sort $ zip (map abs xs) xs

**デフォルトの名無しさん** · 2019/06/27(木) 10:13:36.13

promax xs ys |product xs > product ys = xs
promax _ ys = ys

abslst xs = reverse.sort $ zip (map abs xs) xs

**蟻人間** ◆T6xkBnTXz7B0 · 2019/06/27(木) 16:22:58.68

だれかあみだくじ解けない？

**デフォルトの名無しさん** · 2019/06/27(木) 16:37:32.78

I can, but I won't.

**デフォルトの名無しさん** · 2019/06/27(木) 17:17:24.80

>>632 Sqeueak Smalltalk

| data stream selection set numNegs |
data := #(9 -5 -3 2 1 8 -4).
stream := ((data copyWithout: 0) sortBy: #abs descending) readStream.
set := Set with: (selection := (stream next: 5) asArray).
numNegs := selection count: #negative.
(numNegs > 0 and: [numNegs odd]) ifTrue: [
| nextNeg nextPos lastPosIdx lastNegIdx |
nextNeg := nextPos := nil.
lastPosIdx := selection findLast: #positive.
lastNegIdx := selection findLast: #negative.
[(nextNeg isNil or: [nextPos isNil]) and: [stream atEnd not]] whileTrue: [
| next |
next := stream next.
(lastPosIdx > 0 and: [nextNeg isNil] and: [next negative])
ifTrue: [set add: (selection copyWithoutIndex: lastPosIdx), {nextNeg := next}].
(lastNegIdx > 0 and: [nextPos isNil] and: [next positive])
ifTrue: [set add: (selection copyWithoutIndex: lastNegIdx), {nextPos :=next}]
].
].
set detectMax: [:xs | xs reduce: #*]

"=> #(9 8 -5 -4 2) "

Pharo Smalltalk版 → http://ws.stfx.eu/OK6PHG96QEY8

**デフォルトの名無しさん** · 2019/06/28(金) 01:49:16.31

>>632 haskell
import Data.List
f xs = if length xs < 5 then undefined else (maximumBy(\ x y ->compare(product x)(product y))$zipWith(++)(reverse.inits.(take 5).reverse.sort$xs)(inits.(take 5).sort$xs))

f [9,-5,-3,2,1,8,-4]
-- > [9,8,2,-5,-4]

**デフォルトの名無しさん** · 2019/06/29(土) 05:03:25.69

お題: Hello, World!が入力されるのでHelloとWorldを入れ替えて表示せよ

**デフォルトの名無しさん** · 2019/06/29(土) 07:48:16.22

あまりにも簡単すぎる問題は控えて欲しいな、たまになら休憩として良いけど。

**デフォルトの名無しさん** · 2019/06/29(土) 11:18:10.70

printed("World, Hello!");

**デフォルトの名無しさん** · 2019/06/29(土) 11:36:54.32

>>651 Perl5 簡単だけれども、解いてみた

<>=~/(\w+)(\W+)(\w+)(\W+)/;
print "$3$2$1$4\n";

実行結果
~ $ echo 'Hello, World!' | perl 14_651.pl
World, Hello!

※英単語部は任意です

**デフォルトの名無しさん** · 2019/06/29(土) 13:00:42.80

お題：全単射を満足する最小桁数を求める
任意の整数域(-10000..10000とか)を引数とする単調増加/減少関数f(x)に対して、
その計算結果を有効数字n桁で丸めたものをy=round(f(x), n)とする。
xとyの関係が全単射になる(異なるxに対して、同じyにならない事)
最小のnを求めよ。
ttps://ja.wikipedia.org/wiki/%E5%85%A8%E5%8D%98%E5%B0%84

xの値域及びf(x)は回答者が適切と思われるものでよい。

**デフォルトの名無しさん** · 2019/06/29(土) 13:27:37.67

fは2^N → Rでいいの？
2^Nは自然数の冪集合ね
てか括弧内で全射が無視されてんのが謎

**デフォルトの名無しさん** · 2019/06/29(土) 14:03:41.17

echo Hello, World! | perl -pe 's/ (\w+) , \N{SPACE} (\w+) ! /$2, $1!/x'
World, Hello!

**デフォルトの名無しさん** · 2019/06/29(土) 14:38:46.06

イプシロン間際。

**655** · 2019/06/29(土) 14:50:05.50

>>656
f(x)=x/1e4+42 但し xは整数で x∈[-10000, 10000]
とかの、もっと単純なヤツです(この例だとn=6)。

f(x)=10^x
とかだと、n=1なのは自明だし、
f(x)=c 但し cは任意の実定数
とかだと解は存在しないので、これらは除外して下さい。

**デフォルトの名無しさん** · 2019/06/29(土) 14:51:20.55

>>659
任意の整数域を定義域とする関数に、なんで整数渡してんの？

**デフォルトの名無しさん** · 2019/06/29(土) 15:37:47.69

お題
与えられた画像ファイルを
適当なサイズに縮小・拡大
しモノクローム画像に変換
しアスキーアートに変換す
る

**デフォルトの名無しさん** · 2019/06/29(土) 16:00:34.20

ss = "Hello, World!".split(', ')
print( f'{ss[1]}, {ss[0]}' )

# World!, Hello

**デフォルトの名無しさん** · 2019/06/29(土) 16:06:20.54

split のたぐいだと ! の位置がおかしなことになるんだよな

**デフォルトの名無しさん** · 2019/06/29(土) 16:25:44.25

>>663 おかしいかどうか知らんよ。問題が細かな事を言っていないんだから。

**デフォルトの名無しさん** · 2019/06/29(土) 16:30:35.89

>>664 悪い悪い、問題を読み直したら、単語の入れ替えだけで記号の位置はそのままというような感じだな。

**デフォルトの名無しさん** · 2019/06/29(土) 16:31:18.75

>>664
はあ？
> HelloとWorldを入れ替えて表示せよ
余計なことしちゃだめだろ

◆QZaw55cn4c · 2019/06/29(土) 16:36:26.20

お題と回答
>>5 : 6 10 32 36 44
>>9 : 15 34 35 79
>>11=>>575 : 48 (78) 138-139 (140) 142 146 151 154
>>19 :
>>50, https://mevius.5ch.net/test/read.cgi/tech/1549160513/920 : 4 85 89
https://mevius.5ch.net/test/read.cgi/tech/1549160513/988 == >>164 : 59 61 167 169 189 192 201 202
>>90 : 95 96
>>99 :
>>200 : 214 219
>>215 : 227
>>220 : 232 240 248 256 268
>>235 : 236 237 238 239 247 249 259 342 353
>>320 : 321 323 327 330 340
>>322 : 325 328 329 331 332 339 341 358 359

◆QZaw55cn4c · 2019/06/29(土) 16:36:41.68

>>362 : 367 369 370 371 374 379 380 382 414
>>368 : 390
>>388 : 487 (488) 553 559
>>400 : 401
>>408 :
>>417 : 418 419 421 426 432 433 436 438 442 446 451 452 456 471 474 480 482 489 492 495 498 528 530 540
>>479 :
>>555 : 556 558 564 565
>>557 : 560 562 568 569
>>570 : 574 577
>>573 : 604 622
>>600 : 605 607 611 613 627
>>615,626 :
>>632 : 637 640 645 649 650

◆QZaw55cn4c · 2019/06/29(土) 16:36:57.16

>>651 : 654 657 662
>>656 :
>>661 :

**デフォルトの名無しさん** · 2019/06/29(土) 16:41:45.64

>>669
ごめん迷惑だからそれやめて

**デフォルトの名無しさん** · 2019/06/29(土) 16:59:14.03

>>669 安静にしてた方が良いと思うよ。反発のない世界で触れ合うのは良いと思うけど、2ch/5ch みたいなところに出てくると、傷つくのは目に見えてる。

みるのが楽しければ、みるだけにとどめるとか。

**デフォルトの名無しさん** · 2019/06/29(土) 20:21:36.23

w3m https://mevius.5ch.net/test/read.cgi/tech/1558168409/ \
|perl -ne 'if (/^1/m){++$body};if (/^ ? \d+コメント$/m){$body=0} ; print if ($body)'\
| ./select_word_and_ancher.pl お題 \
| less

perl はこれ
https://paste.fedoraproject.org/paste/6R~aAhHAd3dYBSH0R8Dfhw

出力はこんなかんじだ
お題のレスが見れて、それにアンカしたレスが続くのを1フィールドとして
全部のお題に大してループする
https://i.imgur.com/WVCFus7.jpg

**デフォルトの名無しさん** · 2019/06/29(土) 20:24:28.47

1 のテンプレを順守してればこのコードの漏れはなくなる

**デフォルトの名無しさん** · 2019/06/29(土) 22:27:44.56

>>667
お前個人の備忘録なんてホントにチラシの裏にでも書いとけよ

**デフォルトの名無しさん** · 2019/06/29(土) 22:43:35.91

>>651のお題は
> お題: Hello, World!が入力されるのでHelloとWorldを入れ替えて表示せよ
なので、Hello, World!以外が入力されたら無視するかエラーを出すのが正しいのでは？ｗ

◆QZaw55cn4c · 2019/06/29(土) 22:50:01.35

>>675
それは過剰な設計では？
Hello, World! 以外が入力されたときにどう振舞うべきかについて　>>651 には何らの記載がないので、何ら拘束されることがない
言い換えると、入力が Hello, World! 以外の場合には「どうふるまってもいい」と解釈するのが、論理学的に妥当…①だと思います
①：論理式「偽→真」＝真、「偽→偽」＝真からの類推です

**デフォルトの名無しさん** · 2019/06/29(土) 22:56:34.59

>>675
>>651は>>653で答えが出ちゃったね

**デフォルトの名無しさん** · 2019/06/29(土) 23:05:06.71

>>677
> お題: Hello, World!が入力されるので
とあるから入力されるまで待つ処理がない>>653は失格

**デフォルトの名無しさん** · 2019/06/30(日) 01:26:45.54

>>677 Lua
a,b,c,d=io.read(5,2,5,1)
print (c..b..a..d)

**デフォルトの名無しさん** · 2019/06/30(日) 01:41:37.13

>>679
アンカー間違えました
>>651 Lua
でした

**デフォルトの名無しさん** · 2019/06/30(日) 01:59:36.72

>>678
アホかお前
勝手にオリジナルルール作るなよ

**デフォルトの名無しさん** · 2019/06/30(日) 02:25:30.30

>>651 Common Lisp
https://ideone.com/gR5ISR

**デフォルトの名無しさん** · 2019/06/30(日) 08:04:20.61

お題
#1234→◆gdyb21LQTc
#abcd→◆4vxxTEcn7p
#あいうえお→◆rXz1zlMT-L

左のトリップキーから右のトリップを返すアルゴリズムを探せ

**デフォルトの名無しさん** · 2019/06/30(日) 08:39:27.77

>>683
$ head text hash.sedscr
==> text <==
#1234→◆gdyb21LQTc
#abcd→◆4vxxTEcn7p
#あいうえお→◆rXz1zlMT-L

左のトリップキーから右のトリップを返すアルゴリズムを探せ

==> hash.sedscr <==
s/#1234/◆gdyb21LQTc/
s/#abcd/◆4vxxTEcn7p/
s/#あいうえお/◆rXz1zlMT-L/

$ cat text | sed -f hash.sedscr
◆gdyb21LQTc→◆gdyb21LQTc
◆4vxxTEcn7p→◆4vxxTEcn7p
◆rXz1zlMT-L→◆rXz1zlMT-L

左のトリップキーから右のトリップを返すアルゴリズムを探せ

**デフォルトの名無しさん** · 2019/06/30(日) 09:03:57.63

>>683 Java
https://ideone.com/ulBeVb

digestは一回、charsetは二回目で当たった

**デフォルトの名無しさん** · 2019/06/30(日) 09:33:15.89

>>685
Magnificent !!

**デフォルトの名無しさん** · 2019/06/30(日) 18:48:21.28

>>678 Perl5(組合せ計算のﾓｼﾞｭｰﾙはCPANにあるが言語処理系に標準で含まれるCOREﾓｼﾞｭｰﾙではないので使わずに実装した)

@a=sort{$b<=>$a} qw{9 -5 -3 2 1 8 0 -4 -1 4 -2 1 3 2};
@b=splice @a,0,5;
splice @a,0,-4;
@c=(@b, @a); # 大きい方から5個と小さい方から4個,計最長9個
sub combi { # 組合せ
　my @s;
　if (my $n = shift) {
　　while ($n <= @_) {
　　　my $t = shift;
　　　push @s, map{[$t, @$_]} combi($n - 1, @_);
　　}
　} else {
　　@s = ([]);
　}
　@s
}
@d = combi(5, @c); # 126個
use List::Util 'product';
@e = sort{$$b[0]<=>$$a[0]} map{[product(@$_), $_]} @d;
print "@{$e[0][1]} => $e[0][0]\n";

実行結果
~ $ perl 14_632.pl
9 8 4 -4 -5 => 5760

**デフォルトの名無しさん** · 2019/06/30(日) 18:49:06.96

>>684
アンカー間違えた >>632 宛だった…Orz

**デフォルトの名無しさん** · 2019/07/01(月) 01:03:55.45

>>632 Perl5 (CPANのMath::Combinatoricsﾓｼﾞｭｰﾙ使用)

use Math::Combinatorics;
use List::Util 'product';
@a=sort{$b<=>$a} qw{9 -5 -3 2 1 8 0 -4 -1 4 -2 1 3 2};
@b=splice @a,0,5;
splice @a,0,-4;
@c=(@b, @a);
@d=combine 5, @c;
@e=sort{$$b[0]<=>$$a[0]} map{[product(@$_), $_]} @d;

実行結果
~ $ perl 14_632_2.pl
9 4 8 -5 -4 => 5760

**デフォルトの名無しさん** · 2019/07/01(月) 01:17:22.86

>>689
最後のstatement
print "@{$e[0][1]} => $e[0][0]\n";
が抜けてた…Orz

**600** · 2019/07/01(月) 12:51:23.31

>>600
Ruby で、
require 'date'

ary_A = %w(2019/07/05 2019/07/10 2019/07/15 2019/07/20)
ary_B = %w(2019/07/08 2019/07/10 2019/07/20)
ary_C = %w(2019/07/15 2019/07/20 2019/07/25)

# 文字列の配列から、ハッシュを作る。Date#jd は、ユリウス日。整数型
def make_hash( ary, name )
ary.each_with_object( { } ) {
| str, h | h[ Date.parse( str ).jd ] = [ str, name ] }
end

# ハッシュをマージする。h_1 を上書きする。slice で、位置1 から、1つだけ
def merge_hash( h_1, h_2 )
h_1.merge!( h_2 ) { |key, v_1, v_2| v_1 + v_2.slice( 1, 1 ) }
end

hash_A = make_hash( ary_A, "A" )
hash_B = make_hash( ary_B, "B" )
hash_C = make_hash( ary_C, "C" )

merge_hash( hash_A, hash_B )
merge_hash( hash_A, hash_C )

hash_A.select { |k, v| v.length >= 3 }.sort.each { |elem|
puts elem.last.join( ", " ) }

**デフォルトの名無しさん** · 2019/07/02(火) 00:55:09.45

乙