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

**デフォルトの名無しさん** · 2018/09/28(金) 10:09:07.13

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

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

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

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

プログラミングのお題スレ Part11
https://mevius.5ch.net/test/read.cgi/tech/1524570314/

**デフォルトの名無しさん** · 2018/12/08(土) 09:59:51.42

>>793
言語はJ

**781** · 2018/12/08(土) 12:53:06.37

整数計算オーバーフローが発生していたのを修正
https://pastebin.com/FAzjRJn5

**デフォルトの名無しさん** · 2018/12/08(土) 15:30:02.59

お題：N×Nの盤面に石を置いていく。
どの4つの石も同一円周上に乗らないようにする場合、最大何個配置できるか？
ただし、一直線上に並ぶ配置は半径∞の円周上と考える。

N=3 => 5
N=4 => 7
5 => 9
6 => 11
9 => 18

**デフォルトの名無しさん** · 2018/12/08(土) 17:29:13.00

>>796
問題の意味がわからない。図とか描いてくれ。

**デフォルトの名無しさん** · 2018/12/08(土) 17:33:47.41

>>796
石の大きさはゼロで格子点とでも考えればいいのかな

**デフォルトの名無しさん** · 2018/12/08(土) 17:36:28.60

ああ共円か
有名なゲームだな

**デフォルトの名無しさん** · 2018/12/08(土) 19:05:02.19

共円でググってようやっとわかった。

**デフォルトの名無しさん** · 2018/12/08(土) 19:37:58.42

>>791
テトリス

**デフォルトの名無しさん** · 2018/12/10(月) 02:09:47.01

>>782
1は0番目じゃなくて1番目だよね。念のため確認

**デフォルトの名無しさん** · 2018/12/12(水) 02:35:41.59

お題
2次元平面上で点(x,y)が点列(X1,Y1), (X2,Y2), ..., (Xn,Yn), (X1,Y1)を順に結んでできる多角形の内部にあるかどうか判定せよ

**デフォルトの名無しさん** · 2018/12/12(水) 07:13:05.92

どのような多角形をなすかの
仮定で方法も違ってくるだろうけど、
一般的な場合を視野に入れる限り
複数の数学ライブラリを組み合わせて
扱うソリューションパッケージ的なものに
なりそうでお題としてはなんだかなって感じ

**デフォルトの名無しさん** · 2018/12/12(水) 08:10:30.84

>>803
多角形の定義がひどい。
重なる事はあるのか、と、重なったときに内部はどうするのかとか。(抜けるのはめんどくさい)
重なってはいけないけど辺は突き抜けても良いのかとか。
描いた絵みたいな状態を許すかどうかでけっこう判定が変わる。

**デフォルトの名無しさん** · 2018/12/12(水) 08:27:43.91

多角形を三角形に分割して、
(x1,y1)→(x2,y2)のベクトルと
(x2,y2)→(x3,y3)のベクトルと
(x3,y3)→(x1,y1)のベクトルを
それぞれ、
(x2,y2)→(x,y)
(x3,y3)→(x,y)
(x1,y1)→(x,y)
と外積をとって、正負が一致したらその点は多角形内部にある。
重ならないなら三角形に分割、は、
1,2,3、2,3,4、3,4,5…と使う頂点をスライドさせていくだけで良いんじゃないかな？どっかで裏返るかな。

**デフォルトの名無しさん** · 2018/12/12(水) 09:01:00.07

また数学か。数学板が嫌なら紙とえんぴつでやってろ

**デフォルトの名無しさん** · 2018/12/12(水) 09:21:43.03

ポリゴンで塗り潰してその色になれば真

**デフォルトの名無しさん** · 2018/12/12(水) 11:12:59.34

数学になるの？
俺CAD関連と3DCG関連でこういうの書くけどな。
コード書こうと思って出題者に問うたつもりだけど。。
証明出来てないコード書いても無意味なんだから先にロジック書いたつもり。

ってかどうして数学？っぼい問題が嫌われるの？
脳筋コードが良いってこと？

**デフォルトの名無しさん** · 2018/12/12(水) 11:17:02.00

>>803 Ruby 与えられるのは凸多角形のみとし、頂点は反時計・時計回りのいずれかで与えられるものとする

def diff(a, b); a.zip(b).map{|i, j| i - j}; end
def in_triangle?(p, a, b, c)
　　ap, ab, ac = [p, b, c].map{|v| diff(v, a)}
　　det = ab[0] * ac[1] - ab[1] * ac[0]
　　s = (ac[1] * ap[0] - ac[0] * ap[1]) / det
　　t = -(ab[1] * ap[0] - ab[0] * ap[1]) / det
　　[s, t].all?{|e| (0..1).include?(e)} && s + t <= 1
end
def in_con_polygon?(p, *vers)
　　vers[1..-1].each_cons(2).any?{|v1, v2| in_triangle?(p, vers[0], v1, v2)}
end

# 原点を左下の頂点とする長さ1の正方形の内部に(0.5, 0.5)は含まれるか
p in_con_polygon?([0.5, 0.5], [0, 0], [1, 0], [1, 1], [0, 1])
# => true
p in_con_polygon?([1.76, 1.75], [0, 0], [3, 0], [2, 1.5], [1, 2.5], [0, 3])
# => false

**デフォルトの名無しさん** · 2018/12/12(水) 11:40:32.38

問題を勘違いしてたので一部修正
凸多角形でなくてもＯＫ順番も結ぶ順でＯＫ
ただし>>805の星型の内部は多角形には含まれないとする

def in_con_polygon?(p, *vers)
　　vers[1..-1].each_cons(2).count{|v1, v2| in_triangle?(p, vers[0], v1, v2)}.odd?
end

**デフォルトの名無しさん** · 2018/12/12(水) 11:56:39.21

ベクトル係数の解法も綺麗だな。式も少ないし素晴らしいと思う。

**デフォルトの名無しさん** · 2018/12/12(水) 12:12:03.42

>>803 Java
https://ideone.com/xJBcjx
わかんねーので言語任せｗ

non_zero: >>805の星型の内部も多角形に含まれる
even_odd: >>805の星型の内部は多角形に含まれない

**デフォルトの名無しさん** · 2018/12/12(水) 12:14:30.79

>>809
このスレには解答者側に数学ができない人がいて、そういう人が文句を言ってる
かく言う俺も数学できないが文句は言わない

**デフォルトの名無しさん** · 2018/12/12(水) 14:03:01.24

数学の問題集から拾ってきただけみたいな雑な出題が叩かれてるんじゃなかったのか
問題文自体に不備があってそこを詰めるのが主になってしまうパターンもあるけど

**デフォルトの名無しさん** · 2018/12/12(水) 14:49:36.03

純粋に数学だけで解けて解法の式を作ったら、あとはコードにベタ書きしてただ解を出力するだけ、という問題だったら、わざわざプログラム板でやる面白味はないなあと思う。
数学的に解いても、その後コードに起こす際にプログラミング固有の工夫とか言語による違いが見られるような物だと興味深い。
個人的な感想です。

**デフォルトの名無しさん** · 2018/12/12(水) 15:01:41.06

集合論的なのをリスト使うのと配列使うのだったら違いもあるだろうけど、
そういう問題出ないね。

A∪B := {x | x ∈ A ∨ x ∈ B}

はHaskellだと仮にx が{1,2,3,4,5,6,7,8,9,10}の要素で、Aが{3,4,5,6}、Bが{5,6,7,8}なら

setX = [1..10]
setA = [3..6]
setB = [5..8]

[x | x <- setX, x `elem` setA || x `elem` setB]
(Haskellは変数名の初めに大文字使えない)

これがCで配列縛りだとreallocでも使いながらなんじゃろか。。。

◆QZaw55cn4c · 2018/12/12(水) 20:48:43.83

>>816
＞純粋に数学だけで解けて解法の式を作ったら、あとはコードにベタ書きしてただ解を出力するだけ、
それは甘い、大甘だと私の経験は私の心に語ってくれています

◆QZaw55cn4c · 2018/12/12(水) 20:49:58.51

>>817
そういう問題はある種の順序関係を仮定してインプリメントしたいところです

**デフォルトの名無しさん** · 2018/12/12(水) 23:47:12.93

>>817 Smalltalk

| X A B |

X := 1 to: 10.
A := 3 to: 6.
B := 5 to: 8.

X select: [:x | (A includes: x) or: [B includes: x]]

https://ideone.com/XSlcVz

**デフォルトの名無しさん** · 2018/12/13(木) 00:26:45.67

>>817 Squeak/Pharo Smalltalk

| X A B |

X := 1 to: 10.
A := 3 to: 6.
B := 5 to: 8.

X intersection: (A union: B) "=> #(3 4 5 6 7 8) "

**デフォルトの名無しさん** · 2018/12/13(木) 01:00:05.58

>>817 Ruby

x, a, b = [*1..10], [*3..6], [*5..8]
p x & (a | b)
# => [3, 4, 5, 6, 7, 8]

**デフォルトの名無しさん** · 2018/12/13(木) 09:40:48.46

>>817
c
https://ideone.com/YkmUdB

c++
https://ideone.com/WXXvlU

**デフォルトの名無しさん** · 2018/12/15(土) 18:26:25.25

お題：標準入力から読み取った行を出力せよ
ただし42を読んだ場合は出力せずに終了する
https://ideone.com/vdWddB

**デフォルトの名無しさん** · 2018/12/15(土) 18:51:24.63

>>824
ruby -pe'~/^42$/&&exit'

**デフォルトの名無しさん** · 2018/12/15(土) 20:46:54.11

>>824 Common Lisp
https://ideone.com/QQzEQh

read-lineの第三引数にnil以外を使ったの初めてだ

**デフォルトの名無しさん** · 2018/12/15(土) 23:34:07.15

>>824
bash
https://paiza.io/projects/gIZdCMpBEoNvFnnjVvGGtA

**デフォルトの名無しさん** · 2018/12/15(土) 23:59:19.52

>>824 PowerShell
while (($var = (Read-Host)) -ne 42) { $var }

**デフォルトの名無しさん** · 2018/12/16(日) 03:36:20.47

>>824
python 3
https://ideone.com/it2Axq

**デフォルトの名無しさん** · 2018/12/16(日) 13:54:15.20

[お題] 来年と素数
今年も残りわずか、来年は2019年で平成31年。

1)"2019"の省略形の"19"について。
　素数の和で19を作る、すべての素数配列を列挙せよ(できれば辞書順で)。
　同じ素数を何個使ってもよいが、同じ素数同士は区別しない。
　・例えば対象が"11"だと以下の6つ
　{2, 2, 2, 2, 3}
　{2, 2, 2, 5}
　{2, 2, 7}
　{2, 3, 3, 3}
　{3, 3, 5}
　{11}

　以下 2)3)4)は種類計のみ答える(明細は多いので略)。
2)来年の初まりは平成31年で、"31"について。
　素数の和で31を作る、その種類はいくつか。条件は1)と同様。

3)素数の和で2019を作る、その種類はいくつか。条件は1)と同様。

4)2019と31を続けた数 201931(=2019*100+31)について。
　素数の和で201931を作る、その種類はいくつか。
　但し、使用していい素数は31以下の素数かつ、
　同じ素数は最大2019個までしか使えない。同じ素数は区別しない。

　※ 3)4)は64bit整数を超えるので、下10桁だけの回答も可。

◆QZaw55cn4c · 2018/12/16(日) 14:12:11.90

>>830
年忘れ課題の時期になったんですね…

**デフォルトの名無しさん** · 2018/12/16(日) 19:04:23.02

>>830 Java
https://ideone.com/LgkDWF
あってんのかなー

**830** · 2018/12/16(日) 19:54:33.15

>>832

2)の31からして自分のと違う。
自分のでは111だった。

javaのやついじって、112個の明細を出してみたら、[2,2,27] があった。
27は素数じゃないよね。いじり方が悪い？

**デフォルトの名無しさん** · 2018/12/16(日) 19:56:19.00

>>833
自分も31は111だったわ

**デフォルトの名無しさん** · 2018/12/16(日) 20:37:34.86

>>830 Ruby 1)は省略

require 'prime'

def fuge(n, cand = Prime.to_a(n), h = {}, succ = 0)
c0 = cand[0]
return h[[n, c0]] if h[[n, c0]]
return 0 if n == 0 || !c0 || n < c0
return 1 if n == c0
x = succ == 2019 ? 0 : fuge(n - c0, cand, h, succ + 1)
h[[n, c0]] = fuge(n, cand[1..-1], h) + x
end

p fuge(19) # => 23
p fuge(31) # => 111
p fuge(2019) # => 576202207044176168646563
p fuge(201931, Prime.to_a(31)) # => 4021686887140718864271667825968903

**デフォルトの名無しさん** · 2018/12/16(日) 20:50:18.98

>>833
まじだ・・・修正した
犯人は118行目だ！orz

**830** · 2018/12/17(月) 20:45:38.05

>>832 836
　当方の回答と一致しました。

>>835
4) 201931 だけ異なる(自分のがあっているとは限らないが……)。
※再帰の動きがよくわからない

**830** · 2018/12/20(木) 20:26:37.78

>>830　python https://ideone.com/OFR7bn

　間が空いたので、出題者コメント

　1)問題文説明用に書いてみて、問題にもできると思った。

　2)3)は"オイラー 31 DP"でググってください。
　違いはコインの額面が素数に変わったくらいと、おおきさ。
　なかには一つ一つ数えて、本問の2)しか溶けない回答があるので見分けて。

　4)については、ソース上三種類書いて考察しています。
　 ("201931"という変な数値は、3重ループ解を落とすのが目的だった)

**デフォルトの名無しさん** · 2018/12/21(金) 08:20:43.27

お題：
真理値表から２入力NANDで最小ゲート数回路を作れ。実用上最も重要な問題群

**デフォルトの名無しさん** · 2018/12/21(金) 08:38:52.94

遅延時間とかファンアウトとかは考慮不要ってことでいいのかな

**デフォルトの名無しさん** · 2018/12/22(土) 11:29:36.65

参考にどうぞ
https://eng.kice.tokyo/logic/logic_ex3/

◆QZaw55cn4c · 2018/12/22(土) 16:28:53.58

>>841
昔カルノー図がかける範囲（3入力？4入力くらいだったかな？）で簡約化ツールを作ったことがあります
当時は書き捨て上等、でやっていたのですが、今は困ってしまっています、当時のプログラム記述能力は当時は今後もずっと保存されるものと当時は考えていたのですが、それは完全な誤りでした…

**デフォルトの名無しさん** · 2018/12/23(日) 16:48:28.85

>>841
俺全然わかってない人なんだけど、
そのURLの一番下の、入力部分のNOTゲートを無視しない場合、
9個のNANDゲートで構成できるって書いてあるけど、
NOTゲートの部分を2個減らして7個で作るとかはあかんのん？

**デフォルトの名無しさん** · 2018/12/23(日) 16:56:13.54

半導体製造のコストがある
NANDゲートは作り易い、というか造りが簡素で単純
NOTゲートも作り易い

なので厳密には製造コストも考えないといけない

**デフォルトの名無しさん** · 2018/12/23(日) 17:29:24.88

>>843
ホントだ、AとCのNOTを一つずつ減らせるね
というかこれが最小になる保証もないよね

**デフォルトの名無しさん** · 2018/12/23(日) 18:34:59.46

>>841
カルノー図からの簡略結果が最終形ではない。
最終形は
Z=~ABC+A~C+~BC

**デフォルトの名無しさん** · 2018/12/23(日) 21:11:36.62

>>846
それA=0, B=0, C=0の結果から間違ってるんだが

**デフォルトの名無しさん** · 2018/12/23(日) 23:39:28.74

>>847
うむ

最終形は
Z=~ABC+A~C+~B~C
ですね

２入力NAND回路は
Step 9, Solution 1

0 : -1, -1: 0, 0, 0, 0, 1, 1, 1, 1

1 : -1, -1: 0, 0, 1, 1, 0, 0, 1, 1

2 : -1, -1: 0, 1, 0, 1, 0, 1, 0, 1

3 : 0, 0: 1, 1, 1, 1, 0, 0, 0, 0

4 : 3, 1: 1, 1, 0, 0, 1, 1, 1, 1

5 : 4, 2: 1, 0, 1, 1, 1, 0, 1, 0

6 : 5, 2: 1, 1, 1, 0, 1, 1, 1, 1

7 : 5, 4: 0, 1, 1, 1, 0, 1, 0, 1

8 : 7, 6: 1, 0, 0, 1, 1, 0, 1, 0

ともう一つでした。

**デフォルトの名無しさん** · 2018/12/24(月) 08:22:13.10

>>848
> Z=~ABC+A~C+~B~C
それA=0, B=1, C=0の結果が違うぞ

**デフォルトの名無しさん** · 2018/12/24(月) 11:32:09.70

>>849
~ABC → C=0なので0
A~C → A=0なので0
~B~C → B=1なので0
結果0であってるんじゃないのん？

**デフォルトの名無しさん** · 2018/12/24(月) 13:42:11.05

>>850
すまん、合ってるわ
ちょっとボケてたな

**デフォルトの名無しさん** · 2018/12/26(水) 16:33:56.35

>>848
wxMaximaでお絵描きした。
/* [wxMaxima: input start ] */
load (graphs)$
gg() := draw_graph(
net,
show_weight=true,
vertex_size=3,
show_id=true,
show_vertices=[0,1,2,8],
show_vertex_type=filled_square,
head_length=0.2,
head_angle=5,
edge_color="dark-green",
text_color=blue
);
/* [wxMaxima: input end ] */
/* [wxMaxima: input start ] */
Solution[1]:[[[ 0, 3],2],[[ 3, 4],1],[[ 1, 4],1],
[[ 4, 5],1],[[ 2, 5],1],[[ 5, 6],1],[[ 2, 6],1],
[[ 5, 7],1],[[ 4, 7],1],[[ 7, 8],1],[[ 6, 8],1]]$
/* [wxMaxima: input end ] */
/* [wxMaxima: input start ] */
aa:1$ for g:aa thru 1 do (
net : create_graph(9,Solution[g],directed=true),
print("Solution",aa,Solution[g]),aa:aa+1,
gg());
/* [wxMaxima: input end ] */

**デフォルトの名無しさん** · 2019/01/06(日) 20:37:20.68

エモい歌うまバーチャルユーチューバー
https://script.google.com/macros/s/AKfycbxuAt1ejx43_zMRfK7Xplwgwn7cXDQAdZTJkDdLrVCLo8SIdhI/exec

今、見られている話題のVtuberを知りたいなら、ハルカス式Vtuberランキングを見ましょう
【ハルカス式Vtuberランキング】※毎週・毎月自動更新
https://script.google.com/macros/s/AKfycbzZO93mJcZ5M_dPmIZOzuVQNr4mcGwQQdiT7GiLld_1Uews7uE/exec

年末年始の一週間12/27～01/02までのハルカス式Vtuberランキング
https://docs.google.com/spreadsheets/d/1jdVQ2r5yTrAykMRF1nuX6_5DXpK0167D4JcVCQZTJdM/edit#gid=157464142

年末の一ヶ月12/1～12/31までのハルカス式Vtuberランキング
https://docs.google.com/spreadsheets/d/1Yc6HD_h4lfurme9b3T0ZXBf2-iBpFSmMGg-1bdgSe0E/edit#gid=1971024984

第４回バーチャルYouTuber人気投票募集中（全304名、2018年11月23日～）

あなたの好きなVtuberは？５問（配信内容、トーク、歌うま、ゲーム実況、キャラデザ）
https://script.google.com/macros/s/AKfycbwSwNBm8qYD4_kZN2uJLeqRIP8Mwpbo3YDTUEpaSMU02BDAR3jh/exec

・Googleフォームは標準仕様では不正投票が可能な為、改造して対策を行いました。
・2018/11/23時点でチャンネル登録数10,000人以上のuserlocalに登録されたVtuberを対象としています。
・一つのチャンネルでVtuberが複数人いる場合は、それぞれ分けています。
・このフォームに投票するにはグーグルアカウントでログインする必要はありません。
・並び順は前回の得票数の高い順と新人は登録者数の多い順に並んでいます。
・今回も1,000人の方が投票するまで継続します。

なお投票結果はスプレッドシートにリアルタイムで表示されるようにしました。
また【概要】と【詳細】でシートを分けております。
https://docs.google.com/spreadsheets/d/1udB81Vnia9CoIgPaan3a5XFeaCfcnBXkRoPTuxvRpAc/

ｇｒげｒげ

**デフォルトの名無しさん** · 2019/01/18(金) 22:48:43.15

あげ

**デフォルトの名無しさん** · 2019/01/19(土) 05:22:33.88

過疎ってるので別スレのこれをお題にする。
なお、クラスではなく関数でもサブルーチンでも良い。

https://mevius.5ch.net/test/read.cgi/tech/1544839627/332

332 デフォルトの名無しさん (ﾜｯﾁｮｲ f11f-t+p0) sage 2019/01/18(金) 22:57:58.37 ID:1ZiD/8V00
文字列から数字をtmpWとtmpHに抜き出すクラスを作りたいのですがどうしたらいいですか？
演算子記号は+−もある、数字の桁数は不明で小数点もあり、数字が入るときは小文字一字始まり、引数はw or hで抜き出す戻り値を示す。

対象文字
①w900×ＨH
②WW×h1000
③WW×HH
④w900/h100
結果引数がwなら左　 hなら右
①tmpW=900　tmpH=＂＂
②tmpW=＂＂ tmpH=1000
③tmpW=＂＂　tmpH=＂＂
④tmpW=900　tmpH=1000

**デフォルトの名無しさん** · 2019/01/19(土) 08:17:19.40

お題スレじゃなくて、あなたの宿題無料でやりますよになってる

**デフォルトの名無しさん** · 2019/01/19(土) 09:54:02.71

>>855 Ruby
f = -> str {str.scan(/([A-Z]{2}|[a-z])((?:\d+\.)?\d+)?/).each_with_object({}){|(m, num), h| h["tmp#{m[0].upcase}"] = !num ? ' ' : num.match?(/\./) ? num.to_f : num.to_i}}

%w[
　　w900×HH WW×h1000 WW×HH w900/h100 w3.14/h2.72
].each{|e| h = f[e]; puts "#{e} -> " + h.map{|v| '%s = %p' % v}.join(', ')}
# =>
w900×HH -> tmpW = 900, tmpH = " "
WW×h1000 -> tmpW = " ", tmpH = 1000
WW×HH -> tmpW = " ", tmpH = " "
w900/h100 -> tmpW = 900, tmpH = 100
w3.14/h2.72 -> tmpW = 3.14, tmpH = 2.72

**デフォルトの名無しさん** · 2019/01/19(土) 12:58:12.91

> ④tmpW=900　tmpH=1000

**デフォルトの名無しさん** · 2019/01/19(土) 15:20:58.20

>>856
お題をやるかどうかは自由だし使う言語も自由なのでここは宿題向きスレではない。それに宿題用のスレは別にある。

**デフォルトの名無しさん** · 2019/01/20(日) 17:00:10.01

お題
チェス盤をかく

□■□■□■□■
■□■□■□■□
□■□■□■□■
■□■□■□■□
□■□■□■□■
■□■□■□■□
□■□■□■□■
■□■□■□■□

**デフォルトの名無しさん** · 2019/01/20(日) 17:28:18.15

for i in range(4):
print("□■□■□■□■")
print("■□■□■□■□")

**デフォルトの名無しさん** · 2019/01/20(日) 18:45:01.40

console.log(`
□■□■□■□■
■□■□■□■□
□■□■□■□■
■□■□■□■□
□■□■□■□■
■□■□■□■□
□■□■□■□■
■□■□■□■□
`);

**デフォルトの名無しさん** · 2019/01/20(日) 19:21:05.18

>>860
85kg 170cmの俺がJavascriptで回答。
[85, 170]
.map(d => [...d.toString(2).padStart(8,0)]
.map(b => +b ? '□' : '■')
.join`` + '\n')
.join``
.repeat(4)

**デフォルトの名無しさん** · 2019/01/20(日) 19:39:43.28

>>860 Ruby

puts 72.times.map{|i| i % 9 / 8 * 10 + 15 / (i % 9 + 8) * (i & 1 ^ 9633)}.pack('U*')
# =>
□■□■□■□■
■□■□■□■□
□■□■□■□■
■□■□■□■□
□■□■□■□■
■□■□■□■□
□■□■□■□■
■□■□■□■□

**デフォルトの名無しさん** · 2019/01/20(日) 19:45:27.08

>>863
>>864
お前ら天才だな
普段何やってんの

**デフォルトの名無しさん** · 2019/01/20(日) 19:58:44.02

>>865
ヒマ人どもの公開オナニーに騙されるな。
ベンチ取ってみれば分かるけど
>>863より>>862のほうが処理速度も速く、CPU、メモリ消費も勝ってる。

**デフォルトの名無しさん** · 2019/01/20(日) 22:22:45.08

解法や工夫は色々あっていい

**デフォルトの名無しさん** · 2019/01/20(日) 23:40:01.19

>>866
可読性も最強だしなｗ

**デフォルトの名無しさん** · 2019/01/21(月) 00:16:11.01

前々からつくろうとしていまだ決定版ができてないのがある。
コマンド　fileA fileBで、重複行を除いて連結と、
A-Bで重複行を除くやつ。入力が数百Mだときつい。

**デフォルトの名無しさん** · 2019/01/21(月) 00:20:48.31

きついのは口臭だけにしとけよ

**デフォルトの名無しさん** · 2019/01/21(月) 04:33:49.89

>>869
Linux とかでよく使われるシェル(bash とか)ならこんな感じだろうな。

( uniq fileA ; uniq fileB ) > fileC

シェルスクリプトにするならこんな内容のファイルを作ってそれの実行パーミッション立てておくだけ。

#!/bin/sh
uniq $1
uniq $2

ようするに uniq コマンド使ってるだけ。

Windows でも似たようなものはあるかも知れないが WSL 入れて Ubuntu とか動かしちゃった方が何も考えずに Linux 風にできるので楽かも知れない。
/mnt/c/ にCドライブマウントされてるからファイルのやり取りを考える必要もない。
改行が LF なのとデフォルトのエンコーディングが UTF-8 なのは考慮する必要があるが。

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

そんな機能あったっけ、と確認したみたけど意図する動作しない、連続しない重複も対象

Linuxコマンド集　【 uniq 】ソート済みのファイルから重複した行を削除する
ファイルで重複している行を削除する。ただし，ファイルはソートしてある必要がある
https://tech.nikkeibp.co.jp/it/article/COLUMN/20060227/230918/

連続していない離れた重複行も削除したければ、sortコマンドコマンドで予めソートする必要がある。その代わり順番は保存されない。
https://hydrocul.github.io/wiki/commands/uniq.html

**デフォルトの名無しさん** · 2019/01/21(月) 08:10:55.04

要するにAの末尾とBの先頭で一致するとこだけを削除したいってこと？

**デフォルトの名無しさん** · 2019/01/21(月) 08:19:59.40

２つあって。
一つは連結した単一ファイルで、後方にある重複行を取り除く。
もう一つはBに存在する行を取り除いたAの重複行を取り除く。
それぞれuniq拡張(A+B)　、uniq拡張(A-B)のような。

**デフォルトの名無しさん** · 2019/01/21(月) 09:47:36.96

スクリプトやめてC++でやってみたら
ロードと書き込みの速度とほぼ同程度でできるようだ。

**デフォルトの名無しさん** · 2019/01/21(月) 11:56:42.83

>>860 J
}:("1) 8 9 $ '_#'

_#_#_#_#
#_#_#_#_
_#_#_#_#
#_#_#_#_
_#_#_#_#
#_#_#_#_
_#_#_#_#
#_#_#_#_

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

JってUnicode使えないの？

**デフォルトの名無しさん** · 2019/01/21(月) 13:14:23.06

使えるんだけど私の方が勉強不足で。

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

>>860
Perl
https://paiza.io/projects/06iuVCc-HeWgTb7j2TrTMQ

**デフォルトの名無しさん** · 2019/01/21(月) 14:14:22.79

>>874
A-Bの部分は
grep -x -v -f B A
でできるけど順序を保存したuniqはコマンドだけではできないのかな

**デフォルトの名無しさん** · 2019/01/21(月) 18:14:39.49

そういうコマンドを別途作るか、全部作っちゃうかかな。

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

Ruby なら、ハッシュで重複行を排除できる。
ARGF は、a.txt b.txt (ARGV)を連結した、仮想ファイル

ruby script.rb a.txt b.txt

以下は、script.rb の内容

hash = { }

ARGF.each_line { |line| hash[ line ] = true } # true には、特に意味がない

puts hash.keys

-- a.txt
あ
a
あ
b

-- b.txt
x
あ
a
ん

-- 出力
あ
a
b
x
ん

**デフォルトの名無しさん** · 2019/01/21(月) 21:49:42.62

速度出るのできた。CRCと文字列長のハッシュしかみてなく重複らしいのはduplicate.txtへ。

標準出力
deldup.exe fileA fileB ・・・　はマージして重複削除
deldup.exe /D fileA fileB ・・・　はA -B -・・・の重複削除
https://ideone.com/ABJNAy

**デフォルトの名無しさん** · 2019/01/21(月) 22:56:33.96

>>860 octave
https://ideone.com/KyX1rR

**デフォルトの名無しさん** · 2019/01/21(月) 23:04:52.30

>>225
Javaはunsignedの概念がない

**デフォルトの名無しさん** · 2019/01/22(火) 02:53:38.24

>>874
後方にある重複業削除なら awk で連想配列(要するにハッシュ)使ってこんな風にすればできるな。

awk '{if(!n[$0]){n[$0]=1;print}}' fileA fileB

ただし全行をメモリ上に置くことになるのでファイルがでかいとまともに動かない環境があるかも。

超大きいファイルの場合は行ごとに MD5 や SHA1 等のハッシュ値計算してそれだけ保管しておいて比較した方が良いかもね。

**デフォルトの名無しさん** · 2019/01/22(火) 10:22:28.48

>>860 Lua
for i=1,72 do
if i%9==0 then
print("")
else
io.write(({"■","□"})[i%2+1])
end
end

**デフォルトの名無しさん** · 2019/01/22(火) 11:22:34.61

普通に行ごとにソートして重複を除去すればいいだけやん

**デフォルトの名無しさん** · 2019/01/22(火) 12:39:35.18

>>860 javascript
[...function*(){for(var i=0;i<64;i++)yield (i&7)==7?'\n':'■□'[i&8?i%2:+!(i%2)]}()].join``

**デフォルトの名無しさん** · 2019/01/22(火) 12:48:37.38

>>888
順序変えなくないんだって。

**デフォルトの名無しさん** · 2019/01/22(火) 18:32:37.01

>>860 Ruby

puts (["□■"*4,"■□"*4]*4)

**デフォルトの名無しさん** · 2019/01/22(火) 18:48:04.82

>>876
J分からない人向け解説ｷﾎﾞﾝﾇ

**デフォルトの名無しさん** · 2019/01/22(火) 22:15:16.89

>>860 javascript
['□■', '■□'].map(s => s.repeat(4) + '\n').join``.repeat(4)