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

**デフォルトの名無しさん** · 2019/11/17(日) 09:00:22.10

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

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

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

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

**デフォルトの名無しさん** · 2020/01/13(月) 14:02:08.92

>>607
Java
https://paiza.io/projects/qWcc4EhNNSHq8Jono0wgNg

回答は一応用意してました
みんなUnionFind大好きだと思ったんだけど

**デフォルトの名無しさん** · 2020/01/13(月) 18:55:55.99

>>566
>>569
8087は、第3の実数フォーマット、一時実数を許している点でユニークである。
このフォーマットは、(符号が1ビット)、指数が15ビットで、有効数字が64ビットである。
このフォーマットで格納されている数値は、拡張精度数と言われている。
単精度および倍精度実数と異なり、一時実数は入力および出力値を表わすことを意図していない。
････(中略)･････
それでは、何故80ビットではなく4倍精度すなわち128ビットを一時実数に使わなかったのか。
1つの理由は、4倍精度は少なくとも性能(速度)が半分になることである。
他の理由は、4倍精度を基本フォーマットとして用いると、中間結果のためにより長いフォーマットが必要となることである。
(後略)

・出典
J.F.パーマー・S.P.モース(著)「8087入門」啓学出版 (1985/Feb) 御牧義 (訳)　2900円
　　第2章データフォーマット、p.19-20

**デフォルトの名無しさん** · 2020/01/13(月) 19:02:27.52

John F. Palmer, Ph.D. は8087の設計者、
Stephen P. Morse, Ph.D. は8086の設計者だそうな。

**デフォルトの名無しさん** · 2020/01/13(月) 19:38:23.04

x87で遊んでた頃は
将来は4倍精度とか8倍精度とかが当たり前になると思ってたけど
まさか単精度や半精度の時代になるとは

**デフォルトの名無しさん** · 2020/01/14(火) 21:06:38.50

>>581
AVX2 & FMA で作ってみました
https://ideone.com/j44H0T

範囲チェックはしてません

**デフォルトの名無しさん** · 2020/01/14(火) 21:13:25.69

20命令で4個のdoubleのexpm1の計算が出来ます

8パラにしてレイテンシを隠蔽すれば
1個あたり2.5クロックくらい

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

将来、行列演算もFPU化されると、逆行列の桁落ちが問題になるだろうな････
それを見越して、入出力は64bitのまま内部演算だけ80bitにしたんぢゃね？

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

思想がどんなに優れてても使われなきゃしょうがない

レジスタが8個しか無いから内部だけ80bitでもほとんど精度改善にならないし
メモリに80bit保存するのも使いにくい

互換性の問題もあって
コンパイラや最適化で値がかわってしまうのも都合が悪い
だから演算にx87命令を使ったとしても内部64bit精度がデフォ

x87全盛期に作られたSuperPIも64bit精度の演算を使ってる
80bit精度で計算すれば速度アップ出来るにも関わらず

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

>>589 Ruby
require 'prime'
a=Prime.take(100)
p ([0]+Prime.take(a.last)).values_at(*a)

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

お題:
9つの物がある。
重さが20以下で価値の合計が最大になる組み合わせを求めなさい。
(Part7から再出)

[重さ, 価値]

[
[3, 5],
[5, 6],
[6, 3],
[3, 5],
[5, 9],
[2, 1],
[7, 5],
[4, 6],
[8, 3],
]

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

ナップサック問題か

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

重さ < 価値
となる物を集めると丁度重さが20だから
これが解

**デフォルトの名無しさん** · 2020/01/16(木) 21:02:25.92

【お題】以下の31個の数の下6桁を求めよ。

20200101の1, 2, 3, ..., 20200101乗の総和
20200102の1, 2, 3, ..., 20200102乗の総和
20200103の1, 2, 3, ..., 20200103乗の総和
　:
20200131の1, 2, 3, ..., 20200131乗の総和

**デフォルトの名無しさん** · 2020/01/17(金) 06:54:23.06

>>626
逆行列の計算は避けた方がいいってえらいひとがゆってた
ttps://www.kyoritsu-pub.co.jp/bookdetail/9784320013438

**デフォルトの名無しさん** · 2020/01/17(金) 12:14:19.25

>>629
16, 7: 0 0 1 0 0 1 0 0 1
17, 9: 0 0 0 0 0 1 1 0 1
18, 26: 1 1 0 1 1 1 0 0 0
19, 27: 1 1 0 0 1 1 0 1 0
20, 31: 1 1 0 1 1 0 0 1 0

**デフォルトの名無しさん** · 2020/01/17(金) 18:26:22.50

>>632
C++
https://ideone.com/A0BeSs

**デフォルトの名無しさん** · 2020/01/17(金) 20:33:32.20

>>635
正解。

Rによる2種類の解答例
(1) https://ideone.com/7B7IhY
(2) https://ideone.com/Y8jx8o

(1)は等比数列の総和の公式を利用しているので分かりやすいが、途中計算の最大値が
(20200130 * 1000000 - 1) ^ 2 ≒ 2 ^ 88.4 になるかも知れず、64ビット整数の
範囲に収まらないため、Cでは手軽に書けない。Rでは多倍長整数パッケージgmpを
使って書ける。

(2)は部分和をちまちま足していく方式で、途中計算の最大値が (1000000 - 1) ^ 2
≒ 2 ^ 39.9 で済むため、Cでも64ビット整数で計算できる。Rでも多倍長計算が必要な
(1)より速い (正味の実行時間が(1)は0.016秒、(2)は0.004秒)。

**デフォルトの名無しさん** · 2020/01/17(金) 21:12:46.79

お題

f(n) = n^1 + n^2 + ... + n^n の時
f^20200117 (20200117) の下9桁を求めよ

※ f^n (x) = f(f(f(....f(x)))...) 【fがn個】

**デフォルトの名無しさん** · 2020/01/18(土) 00:45:25.84

>>629
Java
https://paiza.io/projects/Qbx2Q0ZIlXetvF51BwoF_w

**デフォルトの名無しさん** · 2020/01/18(土) 05:21:08.23

>>589 octave

a=primes(5000);
a(a(1:100))

**デフォルトの名無しさん** · 2020/01/18(土) 22:25:47.12

>>637
https://ideone.com/WvoPeq

Rでは時間が掛かりすぎるのでコンパイラ言語を使うが、C/C++だと出題者と同じで
つまらないから、Fortranで書いてみた。nが奇数の場合にしか求められないし、
合っているかどうか分からない。

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

>>640
正解

C++
https://ideone.com/09pUlf

312500はどうやって求めました？

**デフォルトの名無しさん** · 2020/01/18(土) 23:12:37.20

>>641だと偶数でもOKです

**デフォルトの名無しさん** · 2020/01/18(土) 23:31:05.83

>>641
時間は掛かるがRで下9桁の値を順々にいくつか求めて配列rに記録してから、
プロンプトで any(duplicated(r)) や which(duplicated(r)) と入力して
周期性を見つけただけ。理論的な根拠はない。

**デフォルトの名無しさん** · 2020/01/18(土) 23:34:38.18

thx

周期が既知なら
mod(20200117, 312500) 回だけで済むのでは？

**デフォルトの名無しさん** · 2020/01/18(土) 23:45:49.85

>>644
まあそうだが、それではあまりにもマジックナンバーすぎるので、周期が本当に
312500であるかチェックするコードを31行目に念のため入れた。周期性が
確認できなければ、STOP Errorと表示してプログラムを中断する。

**デフォルトの名無しさん** · 2020/01/19(日) 00:38:02.65

【お題】

無向グラフGが入力として与えられ、Gがサイクルを持てば、
Gの中の最小サイクルの経路とそのコストを出力するプログラムをかけ

＊条件
・グラフサイズ(頂点数)は10頂点程度(任意でよい)
・各辺の重みはランダムとする
・入力は隣接行列表現とする

**デフォルトの名無しさん** · 2020/01/19(日) 08:33:00.83

お題: 文字列aの真ん中に文字列bを挿入する関数chopを定義しなさい

**デフォルトの名無しさん** · 2020/01/19(日) 08:40:19.34

>>647 Ruby

def chop(str); str.tap{|s| s[s.size / 2, 0] = ?b}; end

puts chop('hogefuga') # => hogebfuga

**デフォルトの名無しさん** · 2020/01/19(日) 08:42:44.39

問題誤読してた

def chop(a, b)
　　a.tap{|s| s[s.size / 2, 0] = b}
end

puts chop('hogehoge', 'HOGE') # => hogeHOGEhoge

**デフォルトの名無しさん** · 2020/01/19(日) 10:33:55.37

お題 (>>346)
1～1000 の整数の内、3の倍数または5の倍数であるものだけを選んで、その合計を求めよ。

**デフォルトの名無しさん** · 2020/01/19(日) 10:37:40.30

3の倍数
　[1000/3] = 333個
　S(3) = 3+6+9+････+999 = 333 * (3+999)/2 = 166833,

5の倍数
　[1000/5] = 200個
　S(5) = 5+10+15+････+1000 = 200 * (5+1000)/2 = 100500,

3の倍数かつ5の倍数（15の倍数）
　[1000/15] = 66個
　S(15) = 15+30+45+････+990 = 66 * (15+990)/2 = 33165,

∴　S(3) ＋ S(5) - S(15) = 100500 + 166833 - 33165 = 234168.

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

15の倍数含めないんじゃないの？
https://paiza.io/projects/EeMOFbswluii2y-uytbeqA

**デフォルトの名無しさん** · 2020/01/19(日) 18:23:22.44

>>629 Perl5
use List::Util qw{max};
$W = 20;
$n = @wv = ([3, 5],[5, 6],[6, 3],[3, 5],[5, 9],[2, 1],[7, 5],[4, 6],[8, 3]);
@w = map{$$_[0]} @wv;
@v = map{$$_[1]} @wv;
$wt[$n][$_] = 0 for 0..$W;
for ($i = $n - 1; $i >= 0; $i--) {
　for $j (0..$W) {
　　$ws = $wt[$i + 1][$j];
　　$ws = max($wt[$i + 1][$j - $w[$i]] + $v[$i], $ws) if $j >= $w[$i];
　　$wt[$i][$j] = $ws;
　}
}
print "価値合計最大: $wt[0][$W]\n";
$j = $W;
for $i (0..$n-1) {
　$ws = $wt[$i][$j];
　if ($wt[$i + 1][$j] != $ws) {
　　print "[$w[$i], $v[$i]] ";
　　$ws -= $v[$i];
　　for (; 0 <= $j; $j--) { last if $wt[$i + 1][$j] == $ws; }
　}
}

$ perl 16_629_nsp_dp.pl
価値合計最大: 31
[3, 5]
[5, 6]
[3, 5]
[5, 9]
[4, 6]

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

>>652
PowerShellには論理XOR演算子があるので簡潔に書けるな。

(1..1000 |? {$_ % 3 -xor $_ % 5} | measure -sum).sum

-- 実行結果 --
201003

**デフォルトの名無しさん** · 2020/01/19(日) 21:28:24.55

>>652
なぜそう思った？

**デフォルトの名無しさん** · 2020/01/19(日) 21:32:35.60

>>655
だけと強調してたから15を含めない意図があったのかと思った

**デフォルトの名無しさん** · 2020/01/19(日) 21:35:30.71

「3の倍数または5の倍数であるものだけ」という文言をそう理解するのは宇宙でお前だけだと思う

**デフォルトの名無しさん** · 2020/01/19(日) 22:24:05.06

妊娠してるか体が不自由な人だけ使ってください

**デフォルトの名無しさん** · 2020/01/19(日) 23:13:47.04

>>658
妊娠してる障害者はすわれないやんけ！

**デフォルトの名無しさん** · 2020/01/20(月) 07:26:08.24

日本語の選択が排他的かどうかは状況しだいだから難しいところだと思うけどね
レストランで「コーヒーか紅茶が付きます」と言えばどちらか一方でしょ
ケースバイケース

こう解釈したらこういうプログラムになるというふうに思考を広げることはできるっしょ

**デフォルトの名無しさん** · 2020/01/20(月) 08:18:28.86

それは選ぶ条件ではなく、選ぶ個数の問題

>>346は全て選ぶのが暗黙の了解
>>660は選ぶのが1個であるのが暗黙の了解

>>346も全てとは書いてないから
1個選ぶのか、任意の個数選ぶのか、全ての選び方の場合を求めるのか、などが考えられるのかも
誤解の可能性があるなら｢全て選ぶ｣と書かないとね

**デフォルトの名無しさん** · 2020/01/20(月) 10:07:25.78

０個選んで答えは０
コンピュータ言語読み書きしてたらこういう
発想が自然に感じられるが
日常言語の世界ではナンセンス杉

**デフォルトの名無しさん** · 2020/01/20(月) 14:10:00.56

>651 のようにした
common lisp
(loop for i from 1 to 1000 when (= (* (mod i 3) (mod i 5)) 0) sum i)
234168

**デフォルトの名無しさん** · 2020/01/20(月) 15:41:16.18

>>651 Ruby
def si(n,m); n.step(m,n).inject(:+); end

p n3 = si( 3, 1000 ) #=> 166833
p n5 = si( 5, 1000 ) #=> 100500
p n15 = si( 15, 1000 ) #=> 33165
p n3 + n5 - 2 * n15 #=> 201003

**デフォルトの名無しさん** · 2020/01/20(月) 21:46:25.06

>>629
Rで全探索
https://ideone.com/XDwD7C

物が9個しかないので512通りの組み合わせを全探索してもすぐ終わるし、
上のプログラムの2番目の問題のように、合計価値が最大となる組み合わせが
複数ある場合でもすべて挙げられるし、重さが小数や大きな整数の場合でも
同様に解けるから、全探索が時間的に可能なら全探索の方が良いんじゃないか?

**デフォルトの名無しさん** · 2020/01/20(月) 22:42:22.14

>>665
問題の条件によって適した解法が変わる。
たとえば個数が高々十数個程度であっても、
個々の重さや価値の範囲が広く、詰め込める荷物のキャパが大きいとか、
整数でない場合は、動的計画法だと解けないが、ナイーブな解法なら解ける。
逆に個数が大きくて、個々の重さや価値、キャパがそれほど大きくない整数だと、
ナイーブな解法では時間がかかりすぎて解けないが、
動的計画法だと短時間で解ける。
条件によって適した解法を選択する。
>>653 は動的計画法の復習と最適解に至る経路を逆にたどる復習のつもりで書いのよん。

**デフォルトの名無しさん** · 2020/01/20(月) 23:01:52.63

問題に適した解法なら>>631が最強

**デフォルトの名無しさん** · 2020/01/20(月) 23:10:30.44

(´･ω･`)「・・・・・」

**デフォルトの名無しさん** · 2020/01/21(火) 14:48:52.44

>>650
Kotlin script

KotlinもBooleanのxor使えたよ。こういう場合は優先順位の問題で括弧が必要になるけどね。

println((1..1000).filter { (it % 3 == 0) xor (it % 5 == 0) }.sum())

**デフォルトの名無しさん** · 2020/01/21(火) 16:44:59.42

!=でいんじゃ、、、

**デフォルトの名無しさん** · 2020/01/21(火) 21:56:37.25

["A -> B" , "A -> D", "B -> E", "D -> E"]
を

A
B
E
D
E

このようにツリー状に表現する際に計算量が少ない書き出し方ってどうなりますか。言語問いません。

**デフォルトの名無しさん** · 2020/01/21(火) 21:57:01.85

スペースきえた…

**デフォルトの名無しさん** · 2020/01/21(火) 21:58:36.68

D -> B のようなループできるかもね

**デフォルトの名無しさん** · 2020/01/22(水) 03:28:09.12

>>670
それを言っちゃあおしめえよ

**デフォルトの名無しさん** · 2020/01/22(水) 10:29:09.24

>>671
データ構造がツリーじゃないのにツリー形式で表示するのは効率悪くない？

同じデータを何度も表示しちゃう

**デフォルトの名無しさん** · 2020/01/22(水) 11:00:25.26

>>671
dot

**デフォルトの名無しさん** · 2020/01/22(水) 19:16:47.36

お題

>>671 において
入力文字列が20個以内で出力の行数が最大となる
入力文字列(を1個)を求めよ

**デフォルトの名無しさん** · 2020/01/22(水) 19:50:15.23

["A -> B" , "B -> A]
これで循環参照のチェックいれるコードがない再帰っぽい感じなら無限に出力だ

**デフォルトの名無しさん** · 2020/01/22(水) 19:55:17.74

閉路と多重辺は無しで
辺の無い点も表現出来ないので無し

**デフォルトの名無しさん** · 2020/01/22(水) 20:19:19.31

>>677
20個ならループしない限りは内容が何だろうが20行にしかならないのでは？

**デフォルトの名無しさん** · 2020/01/22(水) 20:23:02.50

最大は21行だよ

**デフォルトの名無しさん** · 2020/01/22(水) 20:40:06.51

あー。そうか。21だね。

**デフォルトの名無しさん** · 2020/01/22(水) 20:43:02.80

>>671に "E -> C" を加えると？

**デフォルトの名無しさん** · 2020/01/22(水) 21:13:37.75

>>671
Java
https://paiza.io/projects/zVLPWkZWdFIgv8aDQjIn0Q

**デフォルトの名無しさん** · 2020/01/23(木) 01:12:44.95

>>683
分岐か。そうすれば増えるね。

**デフォルトの名無しさん** · 2020/01/23(木) 18:13:14.12

[] 0行
["A -> B"] 2行
["A -> C", "B -> C"] 4行
["A -> D", "B -> D", "C -> D"] 6行
["A -> D", "B -> D", "C -> D", "D -> E"] 9行

**デフォルトの名無しさん** · 2020/01/23(木) 18:45:00.25

n≧12 の時、以下を四捨五入した行数になるかな

偶数
4 * exp(n*0.24060591252980172375)

奇数
4.0137530980362538594 * exp(n*0.24060591252980172375)

**デフォルトの名無しさん** · 2020/01/24(金) 23:55:14.11

>>671 Perl5 (goto 関数を使っていますが、perl5ではこれはcontinuationです)

use feature qw{current_sub signatures};
no warnings 'experimental::signatures';
@sx = (A => B, A => D, B => E, D => E);
sub {
　if (@_) {
　　($a, $b) = (shift, shift);
　　push @lx, $a unless $h{$a};
　　push @{$h{$a}}, $b;
　　$r{$b}{$a} = 1;
　　goto __SUB__;
　}
}->(@sx);
@ax = grep{! $r{$_}} @lx;
sub ($a, $d) {
　print "$d$a\n";
　__SUB__->($b, "_$d") while $b = shift @{$h{$a}};
}->($_, '') for @ax;

実行結果
$ perl 16_671.pl
A
_B
__E
_D
__E

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

>>646
サンプルデータも考えて、回答も作れと言われると
めんどくさすぎてスルーされるんじゃまいか

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

つか、無向グラフの最小サイクル検出って
いいｱﾙｺﾞﾘｽﾞﾑあったっけ

**デフォルトの名無しさん** · 2020/01/25(土) 06:09:52.81

最小サイクルとは？
コストが最小？通る辺の数が最小？

コストとは？
通る辺の重みの和？
点のコストはゼロ？

出題者しかわからない前提が色々とあるお題

**デフォルトの名無しさん** · 2020/01/25(土) 06:22:55.26

>>688
gotoを使っちゃいけないローカルルールとかあるの？

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

tsort(1) ?

**デフォルトの名無しさん** · 2020/01/25(土) 10:35:48.88

>>692
そんなﾙｰﾙはないけれど、制御構造の構文の代わりに安直に
goto分岐を使ったﾍｯﾎﾟｺコードではなくて、perl5のgoto 関数名構文が持つ
continuationの機能を使って、動的環境を維持したまま末尾再帰的な
loopを表現したと言いたかったのよ

**デフォルトの名無しさん** · 2020/01/25(土) 10:38:39.91

なるほど
お前はなかなかやるじゃねえか

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

お題

.bash_history には、入力したコマンドが、1行ずつ追記されていくが、
同じコマンドが出てくると面倒なので、古い(上にある)方をすべて消してください

入力
5
3
1
4
2
5
3
4
5

出力
1
2
3
4
5

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

>>696 Ruby

puts gets(p).split.reverse.uniq.reverse

# =>
1
2
3
4
5

**デフォルトの名無しさん** · 2020/01/25(土) 12:48:36.66

>>696
Java
https://paiza.io/projects/UZnyFQFRa_Pad3yFKG-e9w

**デフォルトの名無しさん** · 2020/01/25(土) 13:56:27.24

>>696 Perl5

$h{$_} = $. while <>;
print for sort{$h{$a} <=> $h{$b}} keys %h;

実行結果
~ $ cat .bash_history
5
3
1
4
2
5
3
4
5
~ $ perl 16_696.pl .bash_history
1
2
3
4
5

**デフォルトの名無しさん** · 2020/01/25(土) 18:59:55.00

>>696
https://ideone.com/PtMPWn
RのuniqueにはfromLastオプションがあるので、revによる前後処理が不要。

**デフォルトの名無しさん** · 2020/01/25(土) 19:19:17.51

>>696 Ruby

a=STDIN.readlines
puts a.select.with_index{|v,i| i==a.rindex(v)}.join

**デフォルトの名無しさん** · 2020/01/25(土) 19:26:44.09

>>696 .bashrc
HISTCONTROL=erasedups:ignorespace
ついでに
HISTIGNORE="history*"

**デフォルトの名無しさん** · 2020/01/25(土) 20:22:19.72

>>696 Emacs Lisp
(with-temp-buffer-window #1="*odai-pt16-696*" nil nil
(switch-to-buffer #1#)
(insert-file-contents "~/.bash_history")
(delete-duplicate-lines (point-min) (point-max) t))

**デフォルトの名無しさん** · 2020/01/26(日) 00:01:21.24

>>701 ナイス

**デフォルトの名無しさん** · 2020/01/26(日) 00:02:23.79

>>704 ｱﾝｶｰしくった
>>702 ﾅｲｽはこっちだた

**696** · 2020/01/26(日) 00:35:54.22

>>702
スレ違いで、スマンが、

erasedups で、現在の行と一致する履歴を、保存前にすべて削除するけど、
WSL, Ubuntu 18.04, bash では、削除されなかった！

これは難しい

tmuxとかの仮想端末で複数の画面間で、Bashのコマンド履歴を共有すると、
同じ履歴が何度も記録されてしまう問題を解決する
https://piro.sa＠kura.ne.jp/latest/blosxom/webtech/2018-03-04_history-nodup-with-tmux.htm

**デフォルトの名無しさん** · 2020/01/26(日) 01:20:33.64

>>706
ﾓﾁﾂｹ

**696** · 2020/01/26(日) 01:39:31.40

history の仕組みが難しいから、

定期的に、ここのスクリプトで、履歴ファイルを上書きした方が良いかも

**デフォルトの名無しさん** · 2020/01/26(日) 01:43:44.81

rubyXLでエクセルいじってるが

印刷範囲を設定したいときは、どのようにすればよいのでしょうか？
いろいろ探しても見当たらず・・

**デフォルトの名無しさん** · 2020/01/26(日) 02:08:32.67

>>709
ｽﾚﾁ

>>708
bashから.bash_profileの重複をなくすプログラムを実行しても
logoutするときにbashが記憶しているコマンド履歴を.bash_profileに
上書きしちゃって、元の木阿弥になるんｼﾞｬﾏｲｶ

**696** · 2020/01/26(日) 05:19:41.93

>>710

>>706
のサイトに書いてあるけど、

.bash_history から重複を排除して、上書きする

次に、history -c && history -r

-c で、メモリ上のコマンド履歴を削除して、
-r で、履歴ファイルからメモリへ、コマンド履歴を読み込む

まだ、試してないけど

**696** · 2020/01/26(日) 06:05:44.52

>>696
Ruby で作った。
コマンドは「ruby script.rb 入力ファイル名」

# ARGF とは、複数のファイルや標準入力を連結して、1つにした仮想ファイル
ary = ARGF.readlines # 1行ずつ配列に入れる

# ! が付く破壊的メソッドは、メソッドチェーンしない！
ary.reverse!
ary.uniq! # 連続していないものも削除する
ary.reverse! # 元に戻す

print ary.join

**696** · 2020/01/26(日) 06:21:48.26

>>711
の方法で、.bash_history から重複を排除できました！

**デフォルトの名無しさん** · 2020/01/26(日) 09:38:26.36

お題: 入力された整数を因数分解し、因数の数だけ「どんだけぇ～♪」と表示せよ

in < 24
因数分解: 2 2 2 3
out > どんだけぇ～♪
どんだけぇ～♪
どんだけぇ～♪
どんだけぇ～♪

**デフォルトの名無しさん** · 2020/01/26(日) 10:24:47.39

>>709

121 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ a763-gk0v)[] 投稿日：2020/01/25(土) 15:52:45.46 ID:WZ3Oswhu0
rubyXLでエクセルいじってるが

印刷範囲を設定したいときは、どのようにすればよいのでしょうか？
いろいろ探しても見当たらず・・

**デフォルトの名無しさん** · 2020/01/26(日) 10:35:06.75

>>714 Ruby

puts "どんだけぇ～♪\n"*~-`factor`.split.size

**デフォルトの名無しさん** · 2020/01/26(日) 11:45:57.12

>>714
Java
https://paiza.io/projects/xxDf_vUHslqz8TQt3YzIgg

**蟻人間** ◆T6xkBnTXz7B0 · 2020/01/26(日) 15:31:19.81

お題: どこかの国に競馬があった。そこの競馬場のルールでは馬券一枚に対して単勝の馬一頭しか選べない。
その日の各ゲームのそれぞれの出場馬について、名前と勝率とオッズが掲示されている。

【今日の競馬】
ゲーム1:
馬A, 0.5, 2.0
馬B, 0.8, 1.2
馬C, 0.9, 0.2
ゲーム2:
馬D, 0.3, 4.0
馬E, 0.5, 3.0
馬F, 0.8, 1.4

予算50,000円で獲得期待金額が最大になるように馬券を購入せよ。馬券の購入において、小数点以下は切り捨てとし、馬券には税金が掛からないものと仮定する。

**デフォルトの名無しさん** · 2020/01/26(日) 15:44:50.09

勝率の和が1を越えてるけど勝率って言うのは勝つ確率のことではなくて何かしらの競馬用語なのか？