プログラミングのお題スレ 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/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

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

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

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

>>776
点が10個あるなら例1,2両方とも判断不能。どっちもあと最低7個必要
しかも直線がRなのかR∪∞∪-∞なのかで解が変わるから提示しろ
あと出力はともかくデータの与えられ方くらい提示しろ

**765** · 2018/08/24(金) 12:34:38.87

text = File.read 'in.txt' # 入力ファイル

header = ""
str_hash = { }
result = [ ]

def sort_string ( head, hash, res )
res.push head
Hash[ hash.sort ].each_key { |key| res.push key } # sort
hash.clear # 空にする
end

text.each_line do |line| # 各行
line.chomp! # 末尾の改行を削除する
next if line.empty? # 空文字は処理しない

if line.start_with? '*' # 先頭文字が、* なら
sort_string( header, str_hash, result ) unless str_hash.empty? # 空でなければ
header = line
else
str_hash[ line ] = true
end
end

sort_string( header, str_hash, result )
puts result

Ruby で作った。
PowerShell よりは断然、作りやすい。
ただ、sort_string( ) を2か所で呼ぶのが、ダサイ

**デフォルトの名無しさん** · 2018/08/25(土) 17:43:06.40

お題
将棋の初期状態の駒40枚を
利き筋に他の駒がないように配置する

**デフォルトの名無しさん** · 2018/08/25(土) 20:05:04.08

1000垓通り表示しろとでも？

**デフォルトの名無しさん** · 2018/08/25(土) 20:45:34.12

明記されてない条件は好きにしていいのがこのスレのルールですよ

**デフォルトの名無しさん** · 2018/08/25(土) 20:55:52.54

お題を出す前に出題者は自分の解答を（解くことが可能かの確認も兼ね）作っておくのもルールだ
適切な入出力例や問題文にあるべき条件が抜けてるっていうのはそれをやってない証拠

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

>>782
有名な作品がいくつかあるね
全て同じ方向を向いたヤツも

>>783
全ての組み合わせを数えた人がいるの？

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

トランプの配置についてのアルゴリズムを考えてます。
トランプの横幅をX
トランプの高さをYとし
並べるトランプは偶数枚
全てのトランプを配置した時の全体を、トランプ配置と呼ぶとして
トランプ配置の横幅と縦幅の割合を、おおよそX：Yとしたい

この場合、アルゴリズムはどう考えたらいいでしょうか？

**デフォルトの名無しさん** · 2018/08/26(日) 09:35:40.65

ゴリ押しの総当たり

並べる枚数横にｘ縦にｙが無尽蔵に大きくなれば比率に近づく
並べるトランプの上限が決まって無くて偶数枚だけが条件なら延々と並べる枚数を増やせばいい
一兆枚くらい並べれば比率はX/Yに近づく
1000000000億兆枚くらいのトランプを使えば横幅X高さYなんて充分に蟲出来るから全体の割合を調整するのは枚数が多ければ多いほどラク
１０那由多ほど並べれば、本当にカードは点くらいなもので、縦横比率はｘ、ｙの枚数だけで決まる

**デフォルトの名無しさん** · 2018/08/26(日) 09:52:42.49

>>787
おおよそとかいまいちよくわからん
例を示して

**デフォルトの名無しさん** · 2018/08/26(日) 09:59:10.89

>>788
バカなの？
> 並べるトランプの上限が決まって無くて偶数枚だけが条件
なら、縦横2枚ずつ（計4枚）並べればいいだけ

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

n枚をnX nYの長方形の対角線上に斜めにならべれば
X:Yになるけど

問題あってる？

**デフォルトの名無しさん** · 2018/08/26(日) 13:16:22.70

>>787
┌─┐
│ ?│
└─┘
これを偶数枚並べて縦横比同じにするなら
こうだよね
↓
┌─┬─┐
│ ?│ ?│
├─┼─┤
│ ?│ ?│
└─┴─┘
アルゴリズムもクソもないように思うのだが？
問題の書き方間違ってない？

**デフォルトの名無しさん** · 2018/08/26(日) 13:22:25.82

さすがに、
枚数は外から与えられるのでは？

**デフォルトの名無しさん** · 2018/08/26(日) 16:57:45.44

枚数nに対して p * q = n を満たす正の整数 p, q の内 |p - q| / |p^2 + q^2| が最小になる組み合わせを求めるだけでしょ？

◆QZaw55cn4c · 2018/08/26(日) 23:44:29.53

https://mevius.5ch.net/test/read.cgi/tech/1480579110/981
に引き続いて、現に困ってしまった問題を出題

windows コマンドラインの xcopy コマンドを実装せよ
コマンドラインから「xcopy パス1 パス2」と入力すると
パス1 以下にあるファイルをすべてパス2以下にコピーするようにせよ
ディレクトリについては、再帰的にコピーせよ

・現実の xcopy コマンドには色々なオプションがあるが、それは実装しなくてもよい
・読み込み対象のファイルの属性については考慮しなくてよい、読み込めるファイルのみ所定のパスにコピーできればそれでよい
・その他、コピーに問題のある状態が発生したときには、標準エラー出力にエラー内容を表示すればそれでいい

Windows Update の度にPCが激遅になるのに堪えかねて、C ドライブを SSD に換えることにしました。OS は再度インストールしなおすつもりです。
現在の C ドライブの内容は別途コピーしておいて、困ったときには参照できるようにしたいと思いました。
ところが、「xcopy c: x:/tmp」とすると、「メモリーが足りなくなった」といって途中で止まるのです…困りました…

◆QZaw55cn4c · 2018/08/26(日) 23:57:13.93

>>795
条件を追加します
ハードリンクやシンボリックリンクは考えなくともよい
xcopy パス1 パス2
のパス2 がパス1 の下にある場合、実装がまずいと永遠にコピーし続ける困ったことになるが、それも考慮しなくてもよい
（今回やりたいことは、「xcopy c: x:/tmp」であるので、これが問題なく動けばそれでよい…）

**デフォルトの名無しさん** · 2018/08/27(月) 00:30:49.02

お金くれたら書くよ

◆QZaw55cn4c · 2018/08/27(月) 00:37:15.85

>>797
ビットコインではいかがでしょう？

**デフォルトの名無しさん** · 2018/08/27(月) 03:58:54.01

>>795
https://qiita.com/himrox/items/3dc7dec2c0e584a78e3d
xcopy メモリで検索したらこんなページ出たがこれじゃあかんと？

**デフォルトの名無しさん** · 2018/08/27(月) 10:42:11.16

>>795
Windowsならエクスプローラ使ってただコピーするのでは何か不都合があるのか？

まあ、お題としてそういうのなしで作れというのはアリだが、なんとなくWindowsの場合はエクスプローラが使っているのと同じライブラリ関数を一回呼び出すだけで終わってしまいそうな気がしてならない。

**デフォルトの名無しさん** · 2018/08/27(月) 11:41:58.10

xcopy ではなく、robocopy を使えば？

**デフォルトの名無しさん** · 2018/08/27(月) 21:06:25.46

>>792
他の人も勘違いしてるけど、横縦比をx:yにする問題だよ。おおよそらしいけど。

**デフォルトの名無しさん** · 2018/08/27(月) 21:25:27.41

>>802
問題を読んでみな

**デフォルトの名無しさん** · 2018/08/27(月) 21:34:12.17

失礼しました…

**デフォルトの名無しさん** · 2018/08/27(月) 21:37:25.51

>>802
トランプの横幅がYで高さがXでしょ？
で、偶数枚並べてX:Yにするんでしょ？
4枚でなるじゃん。およそどころかぴったりX:Yに。

**デフォルトの名無しさん** · 2018/08/27(月) 21:41:44.66

ごめん。逆か。まあしかしわかるよね。