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

**デフォルトの名無しさん** · 2018/04/24(火) 20:45:14.49

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

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

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

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

**デフォルトの名無しさん** · 2018/07/27(金) 19:00:06.01

>>679

質問です。
n>99の場合はズレが生じてくると思いますが、その時はどうしますか？
それともn≦99で範囲を絞ってもよろしいんでしょうか？

まぁ、私が作れるかどうか分からないんですがorz

**デフォルトの名無しさん** · 2018/07/27(金) 19:20:13.92

ご自由にどうぞ

**デフォルトの名無しさん** · 2018/07/27(金) 20:32:22.83

難しそうだが良いお題だな
こういうお題を考えられるようになりたい

**デフォルトの名無しさん** · 2018/07/28(土) 12:28:46.99

まずは数学から入るか

中心つき六角数 - Wikipedia
ttps://ja.wikipedia.org/wiki/%E4%B8%AD%E5%BF%83%E3%81%A4%E3%81%8D%E5%85%AD%E8%A7%92%E6%95%B0

**デフォルトの名無しさん** · 2018/07/29(日) 08:56:47.82

>>680
nの大きさに合わせて-の数を決めれば、歪にならないと思うよ。

**597** · 2018/07/29(日) 11:00:51.11

こんな資料がありました
https://ja.scribd.com/document/383589785/toads-pdf
http://w3.math.sinica.edu.tw/bulletin/bulletin_old/d51/5120.pdf

**デフォルトの名無しさん** · 2018/07/29(日) 13:36:35.25

>>685
へ～やっぱ n = 5 までしかないんだな
後でちゃんと読んどくわ

**デフォルトの名無しさん** · 2018/07/29(日) 17:52:03.38

出題者は自分で書けるのを一度確認してから出題してほしいわ

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

お題：パソコンのCPU温度を表示せよ

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

ちょっと待ってね。温度計持ってくるから。

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

>>688 BF
+>+<-][+[->+[+>-<]<]<+[>+[.>]-]-]

**デフォルトの名無しさん** · 2018/08/01(水) 20:57:33.89

>>688
こうすると分かるんだって。
https://qiita.com/koara-local/items/1fac13704123717f5cc8
但し Linux 。

**デフォルトの名無しさん** · 2018/08/02(木) 00:18:21.78

>>688
awk
Linux 用

awk '{printf "%.3f℃n", $1 / 1000}' /sys/class/thermal/thermal_zone0/temp

実行例

56.000℃

**デフォルトの名無しさん** · 2018/08/02(木) 01:04:29.34

あれ？\n が抜けた。
これね。

awk '{printf "%.3f℃\n", $1 / 1000}' /sys/class/thermal/thermal_zone0/temp

**デフォルトの名無しさん** · 2018/08/02(木) 02:37:36.98

>>679 C
https://ideone.com/Xpz0s9

**デフォルトの名無しさん** · 2018/08/02(木) 19:31:00.50

8888

**デフォルトの名無しさん** · 2018/08/10(金) 02:32:41.77

鈴木貫太郎
灘中　中学入試問題シリーズ　整数問題
https://youtu.be/98U2qVDQltc

6桁の整数、5AB,C15 が999 の倍数である時、ABC を求めよ

答え
A=8, B=4, C=4

**デフォルトの名無しさん** · 2018/08/10(金) 02:38:30.89

数学板でやれ

**デフォルトの名無しさん** · 2018/08/10(金) 04:25:49.65

>>696 C
https://ideone.com/fQBfz1

**デフォルトの名無しさん** · 2018/08/10(金) 04:27:27.01

お題：与えられた正の整数nを2進数～16進数に変換して表示する。
11進数以降の10以上を表す文字はABCDEFを使用。
（10=A, 11=B, 12=C, 13=D, 14=E, 15=F）
例：12進数の11 ---> B

出力例：
n=123456
base(2) ---> 11110001001000000
base(3) ---> 20021100110
base(4) ---> 132021000
base(5) ---> 12422311
base(6) ---> 2351320
base(7) ---> 1022634
base(8) ---> 361100
base(9) ---> 207313
base(10) ---> 123456
base(11) ---> 84833
base(12) ---> 5B540
base(13) ---> 44268
base(14) ---> 32DC4
base(15) ---> 268A6
base(16) ---> 1E240

◆QZaw55cn4c · 2018/08/10(金) 07:06:46.57

>>699
http://mevius.2ch.net/test/read.cgi/tech/1480579110/909
https://mevius.5ch.net/test/read.cgi/tech/1434079972/29

**デフォルトの名無しさん** · 2018/08/10(金) 10:02:14.32

>>696
500015 + <ABC00> = 0 mod 999
<=> 4151 + <ABC> = 0 mod 999
<=> 4151 + <ABC> = 999*5
<=> <ABC> = 844

>>699 Ruby
#!ruby -p
b, n = $_.scan(/\d+/).map &:to_i
puts n.to_s(b).upcase
#=>
12進数の11
B
2進数の123456
11110001001000000
3進数の123456
20021100110
16進数の123456
1E240

**デフォルトの名無しさん** · 2018/08/10(金) 10:56:59.12

>>696
何も考えてないPerlのワンライナー

perl -e 'for(0..999){$n=sprintf"5%03d15",$_;if($n%999==0){print"$n\n"}}'
584415

**デフォルトの名無しさん** · 2018/08/10(金) 11:16:24.27

>>699
Linux等で動くGNUのbcコマンド
プログラムをファイルに入れておいてbcの引数で指定し、変換させたい数値は標準入力から読ませる。

ibase = 10
n = read()
for (i = 2; i <= 16; i++) {
obase = 10
print "base(", i, ") --> "
obase = i
print n, "\n"
}

**デフォルトの名無しさん** · 2018/08/10(金) 11:38:51.00

>>699
Kotlin
https://paiza.io/projects/DLXMRKXWtRvwOyxd6wDtRw

**デフォルトの名無しさん** · 2018/08/10(金) 14:15:41.82

>>699
C
https://ideone.com/5bUk4j

**デフォルトの名無しさん** · 2018/08/10(金) 14:48:17.70

>>700
既出でしたか　失礼しました
では追加でもう1つ

お題：
時間を表わす文字列（hh:mm:ss形式の8文字）の秒数を求める
最上位の時間だけは99時間を超えた場合拡張される
例：123時間45分6秒 ---> 123:45:06

出力例：
01:23:45 = 5025 sec
333:33:33 = 1200813 sec

出題者の回答例：C言語 https://ideone.com/pnrcQ6

**デフォルトの名無しさん** · 2018/08/10(金) 17:50:01.60

>>699
C言語 (再帰処理)
https://paiza.io/projects/-8zTD_hGtIvLskFVO3sCZw

**デフォルトの名無しさん** · 2018/08/10(金) 17:57:07.00

>>706
Perl

https://paiza.io/projects/g2tBzJeNk0M_FJZMylBjuA

ワンライナーにもできるが、今回はこれで。

**デフォルトの名無しさん** · 2018/08/10(金) 18:25:42.14

>>706
bash

https://paiza.io/projects/_3ZfQe1fXiGUBKS_z3JrJg

**デフォルトの名無しさん** · 2018/08/10(金) 18:30:15.99

>>706 Ruby ゴルフ気分で
#!ruby -palF:
$_='%d sec'%(0..2).map{|i|$F[~i].to_i*60**i}.sum

# input
01:23:45
333:33:33

# output
5025 sec
1200813 sec

**デフォルトの名無しさん** · 2018/08/10(金) 18:40:53.56

>>706
bash (かぶった)
https://paiza.io/projects/ESODDaszatdKxnhAzHsFWA

**709** · 2018/08/10(金) 19:22:50.97

>>711
あ、そうか。その方が簡単だな。

◆QZaw55cn4c · 2018/08/10(金) 23:01:27.70

お題：10兆までの素数のリストを作ってみませんか？
https://tech.nikkeibp.co.jp/it/article/Watcher/20100519/348242/

条件：既存のライブラリ、モジュール、外部コマンド等を利用するのは不可
すべて自分で記述すること
int64_t, uint64_t の使用は許可する

**デフォルトの名無しさん** · 2018/08/11(土) 00:01:26.30

Ruby では百万までで、処理に数秒掛かって、78,498個の素数があった

class PrimeNumber # 素数
def initialize (to = 20)
@to = to
@prime_numbers = []
end

def add_table (n)
limit = Math.sqrt(n).ceil

@prime_numbers.each do |prime_num|
# 割り切れたら、素数ではない
return if n % prime_num == 0
# sqrt より大きいなら、確かめずとも素数である
break if limit < prime_num
end
@prime_numbers.push n # 割り切れない
end

def print
(2..@to).each do |n|
add_table n
end
puts @prime_numbers.length
end
end

**デフォルトの名無しさん** · 2018/08/11(土) 02:38:16.74

>>713
perl

一応これで理屈の上ではできるとは思うんだが、477577まで行ったところでアホらしくなって止めたw

#!/usr/bin/perl

use strict;
use warnings;

my @pn = (2);

my $n = 1;

print "$n: $pn[0]\n";

$n++;

LOOP:
for (my $i = 3; $i <= 10000000000000; $i += 2) {
　for (@pn) {
　　next LOOP unless ($i % $_);
　}
　push(@pn, $i);
　print "$n: $i\n";
　$n++;
}

**デフォルトの名無しさん** · 2018/08/11(土) 03:54:44.08

>>713 Ruby
10兆なら改良されたAtkinの篩を使ってガシガシやるしかないだろう
http://citeseerx.ist.psu.edu/viewdoc/download?doi=10.1.1.192.4926&;rep=rep1&type=pdf

sup = 10**7
primes = [2, 3]
5.step(sup, 6){|i|
2.times{
primes << i if primes.none?{|pr| break true if pr*pr > i; i % pr == 0}
i += 2
}
}
primes.pop if primes[-1] > sup
p primes.size #=> 664579

**デフォルトの名無しさん** · 2018/08/11(土) 07:04:06.66

>>713
昔やった
アセンブラ & AVX & マルチスレッド
探してみる

**デフォルトの名無しさん** · 2018/08/11(土) 07:37:04.51

みつかりました
そんなに昔じゃなかった
2年半前
41兆くらいまで求めてます

マルチスレッドではありませんでした
処理内容はよく覚えていません

素数表作成
ビットパターン作成
ふるい

のようなコメントがあります

105単位でなにかやってます

**デフォルトの名無しさん** · 2018/08/11(土) 09:37:18.90

だんだん思い出してきました
6n+1, 6n+5 に対応するビット列を保持
小さな素数の倍数はマスクを作ってAVX命令でANDしていって
大きな素数の倍数はp(210n+48個の値) にしぼって
ビット命令でひたすらふるう感じ

キャッシュサイズを考えて小さなバッファでやってます

**デフォルトの名無しさん** · 2018/08/11(土) 16:27:34.72

いいからコード貼れや

**デフォルトの名無しさん** · 2018/08/12(日) 13:15:41.49

お題:
ロト6で申込数字のいずれかが必ず5等以上に当選する
最小の申込数字の組み合わせを作ってください

ロト6は01～43の数字から異なる数字6個を順番不問で選び
申込数字6個のうち3個以上が本数字と一致すれば5等以上に当選となります

**デフォルトの名無しさん** · 2018/08/12(日) 14:21:49.33

>>721
・５等の当選条件を満たしている
・５等以上のいずれかの当選条件を満たしている
この２つは同値なの？

**デフォルトの名無しさん** · 2018/08/12(日) 14:57:56.60

>>722
それを聞いてどうするの？

**デフォルトの名無しさん** · 2018/08/12(日) 15:09:35.79

>>723
1～5等に該当するならば必ず当選番号と同じ数字が少なくとも3つ入っているということがはっきりしない限り解けないでしょ

**デフォルトの名無しさん** · 2018/08/12(日) 15:11:11.96

ごめん
申込数字6個のうち3個以上が本数字と一致すれば5等以上に当選となります
を
申込数字6個のうち3個以上が本数字と一致すれば5等に当選となります
と読み間違えてたわ

**デフォルトの名無しさん** · 2018/08/12(日) 15:14:32.85

>>722と>>724の質問内容が違う件

**デフォルトの名無しさん** · 2018/08/12(日) 15:17:25.19

>>726
同値だよ

**デフォルトの名無しさん** · 2018/08/12(日) 15:22:10.21

15万個くらいの数字を吐き出して終わり？

**デフォルトの名無しさん** · 2018/08/12(日) 15:26:16.88

>>727
>>722は>>721とは無関係だが
>>724は(>>721の解釈次第では)無関係ではない

**デフォルトの名無しさん** · 2018/08/12(日) 15:29:22.68

>>724は
3個以上一致 <===> 5等以上に当選
3個以上一致 ====> 5等以上に当選
のどちらかをたずねたのかと思った

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

>>730
そもそもこっちが>>722と>>724で「申込数字6個のうち3個ちょうど本数字と一致すれば5等に当選」って誤解してたのが始まりなんだ
わけわかんないこと言ってごめんね

**デフォルトの名無しさん** · 2018/08/12(日) 17:47:14.42

>>706 Squeak Smalltalk

('01:23:45' subStrings: ':') reversed polynomialEval: 60 "=> 5025 "
('333:33:33' subStrings: ':') reversed polynomialEval: 60 "=> 1200813 "

Pharo Smalltalk

(('01:23:45' substrings: ':') collect: #asInteger) reversed polynomialEval: 60 "=> 5025 "
(('333:33:33' substrings: ':') collect: #asInteger) reversed polynomialEval: 60 "=> 1200813 "

**デフォルトの名無しさん** · 2018/08/12(日) 18:43:07.08

>>713 Squeak/Pharo Smalltalk で 100億まで

| count |
count := 0.
Integer primesUpTo: 1e10 do: [:prime | count := count + 1].
count '=> 455052511 '

組み込みだけど、書くとしても同じアルゴリズムで書くと思うので…

https://ideone.com/zKMZYx

**デフォルトの名無しさん** · 2018/08/12(日) 21:48:09.01

>>721 C++
https://ideone.com/gCsPec

コンビネーション使う方法と、確率DPの二通りでやってみた。

(ちなみに5個当り222本は 6本が2等で、216本が3等)

※確率、期待値系は苦手だ

**デフォルトの名無しさん** · 2018/08/12(日) 21:51:28.06

お題：ローカルホストの一覧を出力しなさい

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

>>734
>>721って、
・抽選される6個の数字が43C6通りのどの組み合わせでも5等以上が当たるようにくじを買う。
・くじの購入数はできるだけ少なくなるようにする。
ってことじゃないのん？

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

それ以外にどんな解釈が？

**デフォルトの名無しさん** · 2018/08/13(月) 00:22:36.49

>>736
完全に恥ずかしい誤読しました。

**デフォルトの名無しさん** · 2018/08/13(月) 04:38:57.55

>>735
いいのかこんなんで？

cd /etc
grep localhost hosts

**デフォルトの名無しさん** · 2018/08/13(月) 09:43:58.01

>> 699 Ruby
実数、逆関数
https://ideone.com/lflSc0

**デフォルトの名無しさん** · 2018/08/13(月) 15:57:52.91

>>735
訂正
お題：LANに繋がっているホストの一覧を出力しなさい

**デフォルトの名無しさん** · 2018/08/13(月) 16:34:44.91

>>741
Linux 等の UNIX 系OSで

ping -b ブロードキャストアドレス

とやると同じセグメントに繋がっているやつは ICMP ECHO を返して来て IP アドレスが分かるかも知れない。
但しファイヤーウォールの設定で返さないかも知れない。また他のセグメントにはパケット送らないのでわからない。

**デフォルトの名無しさん** · 2018/08/13(月) 16:35:44.08

あ、ごめん。これは IPv4 限定の話かも知れない。

**デフォルトの名無しさん** · 2018/08/17(金) 15:41:32.33

身長と体重がいくつか与えられるのでBMIを求めなさい
なお身長と体重は1以上1000未満の整数とする
出力精度は小数第三位を四捨五入
各言語で一番短くかけた人が勝ち

例 ruby
while gets

end

# input
150 50
160 55
180 120

# output

**デフォルトの名無しさん** · 2018/08/17(金) 15:47:03.36

ミスった。

単位は身長cm, 体重kg

例 ruby
while gets
　h, w = $_.split.map &:to_i
　puts '%.2f' % (1e4 * w / h**2)
end

# input
150 50
160 55
180 120
150 225

# output
22.22
21.48
37.04
100.00

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

https://ideone.com/lsWdqo

**デフォルトの名無しさん** · 2018/08/17(金) 19:23:09.62

>>746
67Bまで縮めてみた
C
https://ideone.com/ivxfS2

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

>>744
Perl
https://paiza.io/projects/4DM4_8fx_EiOXO4D3aOV4A

普通ならダブルクォーテーション使いそうな箇所で qq() 使ってクォートしている理由は今Androidのタブレット使っててうまく入力出来なかったため。

**デフォルトの名無しさん** · 2018/08/17(金) 23:22:41.44

>>745
Python3で66バイト
https://ideone.com/qWiKey

**デフォルトの名無しさん** · 2018/08/18(土) 02:50:37.57

鈴木貫太郎
灘中
https://youtu.be/BnS7vMsVV2s

6桁の整数、ABCDEF の一番上の位のAを、
一の位へ移動した数、BCDEFA が、元の数の3倍になるとき、
この条件を満たす、元の数をすべて(2つ)答えよ

ヒント。x = BCDEF とおいて考える

答え、142857, 285714

◆QZaw55cn4c · 2018/08/18(土) 07:04:47.65

>>750
n/7 循環列問題ですか…

**デフォルトの名無しさん** · 2018/08/18(土) 15:32:13.56

>>744
Ruby 43 bytes
#!ruby -pa
$_='%.2f'%eval('1e4/'+$F*'**2*')

>>750
3 * ABCDEF = BCDEFA ∧ A != 0
<=> 42857 * A = BCDEF ∧ A != 0
<=> 42857 * A = BCDEF ∧ A = 1, 2
<=> ABCDEF = 142857, 285714

**デフォルトの名無しさん** · 2018/08/19(日) 01:16:27.70

>>750 C（ただの力技）
https://ideone.com/MljBH1

**デフォルトの名無しさん** · 2018/08/19(日) 01:18:54.67

お題：
1.BINGOカードを作る
2.BINGO抽選機を作る

ここで使われるビンゴカードは5x5のマス目に1から75までの数字が
ランダムに配置されており、数字が見つけやすいように左の列から
B列(1～15), I列(16～30), N列(31～45), G列(46～60), O列(61～75)が
配置された一般的によく使われるタイプ。
5x5のマスの中央はFree（すでに開いた状態）。

出力例：https://ideone.com/R6eADP
（この形に従う必要はないです）

回答例（C言語）：
　カード作成 https://ideone.com/aJBJ9v
　抽選機 https://ideone.com/NuIRYm

**デフォルトの名無しさん** · 2018/08/19(日) 03:52:23.20

>>750
Kotlin
https://paiza.io/projects/BFd9v2qeKaNcdssTQuj5Jw

これも力業だな。ただループして調べているだけ。
尚、最上位桁が0の場合も含めると0も該当する値になる。

**デフォルトの名無しさん** · 2018/08/19(日) 04:55:18.29

>>754
Kotlin
カード作成 https://paiza.io/projects/YeZEal6Ke6l3goeaDt9JuQ
抽選機 https://paiza.io/projects/j-F4qhKHa_nNTCBEtFbk_w

**デフォルトの名無しさん** · 2018/08/20(月) 02:30:06.13

>>754
Perl
カード生成 https://ideone.com/82oHLD
抽選機 https://ideone.com/ZICMOi

**UNIXプログラミング質問スレより** · 2018/08/21(火) 03:04:43.91

お題：【構造のあるテキストの処理】各項目の内容をそれぞれソートして元のテキストに埋め込め。
====== 標準入力 ==========
* Fruit
apple
banana
orange
banana

* Animal
dog
cat
penguin

====== 標準出力 ==========
* Fruit
apple
banana
orange

* Animal
cat
dog
penguin

条件：ソートには外部コマンドを用いること。

**758** · 2018/08/21(火) 03:11:53.68

ソートに外部コマンドを使うのは、テキストの処理を取り替える拡張を想定しています。
例えば sort -u コマンドを tr '[a-z]' '[A-Z]' に置き換えて
* Fruit
APPLE
のようにできるようにしたい。

UNIXプログラミング質問スレにて、
このような処理はシェルスクリプトには荷が重く Powershell や Ruby が向いている、みたいなことを伺いました。
ぜひ回答を参考にしたいです。

**デフォルトの名無しさん** · 2018/08/21(火) 14:35:58.26

>>758 Ruby

ext_cmd = 'sort -u'

ary = $<.read.scan(/\*.*?\n(?:(?=\n)|\z)/m)
str = ary.map.with_index do |s, i|
　　temp_fname = "temp#{i}"
　　File.write(temp_fname, s[/\n\K.*/m])
　　heading = s[/\A.*/]
　　execed = `#{ext_cmd} #{temp_fname}`
　　File.delete(temp_fname)
　　[heading, execed] * $/
end

puts str * $/

**デフォルトの名無しさん** · 2018/08/21(火) 14:40:47.02

catを使うように修正
catのヒアドキュメントさえ使えれば一時ファイル作らなくて済むんだけど

ext_cmd = 'tr a-z A-Z'

ary = $<.read.scan(/\*.*?\n(?:(?=\n)|\z)/m)
str = ary.map.with_index do |s, i|
　　temp_fname = "temp#{i}"
　　File.write(temp_fname, s[/\n\K.*/m])
　　heading = s[/\A.*/]
　　execed = `cat #{temp_fname}|#{ext_cmd}`
　　File.delete(temp_fname)
　　[heading, execed] * $/
end

puts str * $/

**デフォルトの名無しさん** · 2018/08/22(水) 01:46:46.02

>>758
Perl
https://paiza.io/projects/8vYRslCsu29ZvqFXGkZC7A

項目の区切りは連続した2つの改行になってます。

**デフォルトの名無しさん** · 2018/08/22(水) 01:56:27.69

>>758 zsh
setopt rcquotes; sed -n '/^*/h; /^*/!{x;p;x;p;}' | paste - - \
| awk -F' ' -v OFS=' ' '$2 { print $1,$2 } ! $2 { printf "%c",0 }' \
| xargs -0 -n 1 -I@ -- zsh -c 'echo ''@'' | tee >(read -e | cut -f 1) | sed ''$d;'' | cut -f 2 | sort -u ;echo'

null区切りでチャンク分け。構造がもっと複雑になるとこの方針では対応できない。

**デフォルトの名無しさん** · 2018/08/22(水) 03:09:32.13

>>758
bash
https://paiza.io/projects/Xq6KyZBO0dqynoJNUYhlEg

**デフォルトの名無しさん** · 2018/08/22(水) 04:46:03.18

単純に、別々のファイルに、分割すれば良いのでは？

* Fruit のファイル
* Animal のファイル

各ファイルを、sort, unique する

**765** · 2018/08/22(水) 05:05:39.72

一旦、別々のファイルにしたなら、PowerShell で、

cat .\test.txt | sort | gu

gu は、Get-Unique のエイリアス。
漏れのPowerShell では、uniq のエイリアスは使えない

**デフォルトの名無しさん** · 2018/08/22(水) 08:57:59.02

このスレでbashが多いのは何故？

**デフォルトの名無しさん** · 2018/08/22(水) 09:06:48.94

今見返したらそんなに多くなかった‥

**デフォルトの名無しさん** · 2018/08/22(水) 09:44:37.32

>>767
Linuxのディストリビューションでは最初からインストールされてるのがよくあってある程度有名で、sh互換でshしか知らなくても書けるからではないかな。
それとWebの実行環境があるというのも理由かも。こういう所で公開するのには都合が良い。

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

>>769
そうなんですね！
みんなの回答見てると正規表現や少ないコードや難しい表現でコーディングできてて関心します‥
自分にはとても到達出来ない‥

**デフォルトの名無しさん** · 2018/08/22(水) 15:46:06.44

>>758 zsh
setopt rcquotes; sed -E -e 's:^(\* .*):{ echo ''\1''; sort -u; echo } << *:' -e 's:^$:*:' | zsh
xargsの区切り文字の辛さからは開放されたが、echo ''\1'' がイマイチだ。

なるほど、構造のあるデータはむしろファイル階層として表現したほうが自然か…

**デフォルトの名無しさん** · 2018/08/22(水) 23:06:19.28

>>758 Vim
$ cat odai-pt11-758.input | vim -es '+:g /\%(^\*.*\n\)\@<=/,/[ \t\n]*\%(\n\*.*\|\%$\)/ !sort | tr a-z A-Z | nl' '+%p' '+:q!' /dev/stdin
* Fruit
1 APPLE
2 BANANA
3 BANANA
4 ORANGE

* Animal
1 CAT
2 DOG
3 PENGUIN
$

**デフォルトの名無しさん** · 2018/08/22(水) 23:55:42.77

64ビットWindows10 なら、WSL で、Ubuntu を入れると、
bash, vim, Python は最初から入っている

WindowsのExplorer では、BOMなしUTF-8 のファイルは検索できないから、
WSL でLinux側から、grep で検索している

シェルスクリプトの欠点は、パイプラインがテキスト渡しになる。
オブジェクトの型が無くなって、すべて文字列になる

一方、PowerShell ではオブジェクト渡しだから、オブジェクトの構造・型が維持できる

>>758-759
外部コマンドを切り替えるという抽象的な処理を、処理間にはさむのは難しい。
すべての処理の冒頭か最後で、一括でフィルターする方がバグらない

**デフォルトの名無しさん** · 2018/08/23(木) 00:19:08.54

>>773
なるほど…
Powershellでの完全な回答例を見せていただけませんか？
標準入力からファイルに落として出力に吐くまで。オブジェクト渡しの雰囲気を感じたいです。

**765** · 2018/08/23(木) 09:28:38.07

Set-PSDebug -Strict # 変数宣言を強制する

$file = ( cat in.txt ) # 入力ファイル
$dat_basenames = @() # 拡張子なしのファイル名の配列

foreach ( $line in $file ) { # 各行
if( $line.Length -eq 0 ){ continue } # 空行は処理しない

if ( $line.Substring( 0, 1 ) -eq '*' ) { # 1文字目が、* なら
$fname = $line.Substring( 2 )
$dat_basenames += $fname # 追加
$fname += '.dat' # 拡張子つき
} else {
Add-Content $fname $line # 追記
}
}

foreach ( $dbname in $dat_basenames ) { # 各 .dat ファイル
$fname = $dbname + '.dat' # 拡張子つき
$str = "* ${dbname}`r`n"
$tmp = cat $fname | sort | gu # sort, unique
$str += ( $tmp -join "`r`n" ) # 改行区切り
echo $str
}

PowerShell で作った。
cd で、作業フォルダへ移動してから実行して

入力ファイル、in.txt から、各ファイルへ分割する。
分割後のファイル名を、Fruit.dat, Animal.dat として、各ファイルを処理した

**デフォルトの名無しさん** · 2018/08/24(金) 05:00:24.02

点が10個一直線に並んでおり、各点が他の点との右方向の距離をいくつか知っている時、最も左にある点を求めよ

最も左にある点が求められない時はあと何の情報があれば求められるのかを最低個数で列挙すること

例1
a,b,cの点がある。
a点はb点が30右にあることを知っている。
b点は何も知らない。
c点はb点が-40右にあることをしっている。
結果
最も左にある点はa点

例2
a,b,c,dの点がある。
a点はb点が30右にあることを知っている。
b点は何も知らない
c点はd点が20右にあることを知っている。
d点は何も知らない。
結果
求められない。必要な情報は
a点からc点までの距離

**デフォルトの名無しさん** · 2018/08/24(金) 05:58:44.74

>>776
実際に自分で書いてみて、求められたら解答例を提示できる？

**デフォルトの名無しさん** · 2018/08/24(金) 08:02:12.41

「知っている」の主語が点に見えるけど
そうじゃないよね？

なんでそういう文にしたの？

**デフォルトの名無しさん** · 2018/08/24(金) 10:33:50.94

連結リストを使って、出来上がったグラフが連結なら求められる
つまり、出来上がったグラフが二つ三つそれ以上に分かれている非連結グラフになってると、距離は分からない

……直感的には多分こうだが、何かしらの証明は必要
「連結グラフだが距離が分からない」反例があればいい