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

**デフォルトの名無しさん** · 2019/07/28(日) 19:39:57.54

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

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

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

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

**デフォルトの名無しさん** · 2019/09/29(日) 09:16:55.67

数学の問題どすな

地球半径をR、緯度をΦ、経度をΘとすると
地表上の点Pの座標(x,y,z)は

(x,y,z)=R(cosΦcosΘ,cosΦsinΘ,sinΦ)
(R,0,0)は赤道上の東(西)経0度の地点
(ギニア湾　ガーナ　アクラ沖約600km)

(0,R,0)も赤道上の東(西)経180度の地点
(太平洋　ナウル島から約1450km)

二地点の座標をベクトルに見立て
内積をR^2で割って逆余弦関数に
与えた結果にRを掛けたモノが答え

**デフォルトの名無しさん** · 2019/09/29(日) 09:23:23.08

ちょい間違った
(0,R,0)は東経90度の赤道上の太平洋上の地点で
スリランカ・コロンボから約1360kmの地点
(-R,0,0)がナウル島から1450kmの地点
(0,-R,0)はガラパゴス諸島から20～25km程度の
太平洋上の地点

**デフォルトの名無しさん** · 2019/09/29(日) 09:25:23.90

表計算ソフトを使うのが効率的ね

**デフォルトの名無しさん** · 2019/09/29(日) 10:48:24.98

地球を球に近似する時点でナンセンス。解く価値無し

**デフォルトの名無しさん** · 2019/09/29(日) 11:06:06.70

仮定してもよい　なんだから球に近似しないで書けばいい話じゃね？

**デフォルトの名無しさん** · 2019/09/29(日) 12:00:03.35

>>603 大円距離の問題なんだから、距離が一番短くなる2点間の長さとすべき、
great-circular distance

>>605 の数値を使い
地球の半径を　6378.137 km
2点の緯度経度　
139.74477,35.6544 ,
39.8261, 21.4225

Python

https://ideone.com/qp1Fer

答え　 9,491.28 km

**デフォルトの名無しさん** · 2019/09/29(日) 12:03:30.83

>>612 2点間の経度緯度　の間違い

**デフォルトの名無しさん** · 2019/09/29(日) 12:33:05.14

>>603-6

use Math::Trig qw{deg2rad acos};
($lat1, $long1) = map{deg2rad $_} (51.507448,-0.1287243); # ロンドンウエストミンスターチャールズ1世騎馬像
($lat2, $long2) = map{deg2rad $_} (40.712775,-74.005973); # ニューヨークCity Park Hall(市庁舎)
$theta = $long1 - $long2;
$dist = sin($lat1) * sin($lat2) + cos($lat1) * cos($lat2) * cos($theta);
$dist = 6378.137 * acos($dist);
printf "%.2f[Km]\n", $dist;

実行結果
~ $ perl 15_604.pl
5576.40[Km]

cf.)
https://www.geodatasource.com/developers/perl

**デフォルトの名無しさん** · 2019/09/29(日) 12:34:14.75

>>614 アンカーしくった
>>603-606 だた…orz

**デフォルトの名無しさん** · 2019/09/29(日) 19:44:37.93

お題:8queenで面白いパターンを見つけよ。

**デフォルトの名無しさん** · 2019/09/29(日) 23:06:17.59

お題:もっと面白いお題を考えよ。

**デフォルトの名無しさん** · 2019/09/29(日) 23:45:54.79

>>588 C
https://ideone.com/472wFP

**デフォルトの名無しさん** · 2019/09/29(日) 23:51:59.00

>>616
面白いってひどく曖昧だな

**蟻人間** ◆T6xkBnTXz7B0 · 2019/09/30(月) 02:22:51.44

お題: サイズ15x15の空白マス('_')がある。黒マス('#')をいくつかランダムに置いて、空白マスが縦または横向きに5マス連続に並ばないようにしたい。ただし、
1. なるべく早く黒マスを配置せよ。
2. 実行のたびに常にランダムにまんべんなく配置せよ。
3. 黒マスが縦または横に隣り合ってはいけない。
4. (ア)全て並べる、そして(イ)並びが正しいか検証する、の(ア)と(イ)を15回繰り返してかかる時間を実測せよ。

**デフォルトの名無しさん** · 2019/09/30(月) 09:19:26.74

>>617
考えた。

でもこれは発表しない。誰にも教えない。墓まで持っていく。

**デフォルトの名無しさん** · 2019/09/30(月) 10:08:08.98

>>620
馬鹿っぽ

**デフォルトの名無しさん** · 2019/09/30(月) 16:46:23.79

>>620
https://ideone.com/FggLLg
C++。ふえ～。円の当たり判定しようと思ったのに、うごかないよ～。
コード間違ってるのか、数学ぶっ壊れたのかわからん。
デバッグしてくれる人募集。

コード間違ってるんやったら、俺の認識限界がおかしいな。

**デフォルトの名無しさん** · 2019/09/30(月) 17:15:46.44

>>623
https://ideone.com/Q1X602
C++。代替え案。実行ごとにパターンが変わって敷き詰めた一例。
変わってないと思うなら0点のパターンを見てみよう。

**デフォルトの名無しさん** · 2019/09/30(月) 17:20:40.68

じっそうじかんは多分2時間以内だ。

**デフォルトの名無しさん** · 2019/09/30(月) 17:55:07.40

>>624
代替案(だいたい-あん)と言いなさい

**デフォルトの名無しさん** · 2019/09/30(月) 18:25:02.21

>>626
あー。すっかり忘れてた。。。

**デフォルトの名無しさん** · 2019/09/30(月) 20:18:42.58

>>620
なるほど
コレだな

黒マスルール - Wikipedia
https://ja.wikipedia.org/wiki/%E9%BB%92%E3%83%9E%E3%82%B9%E3%83%AB%E3%83%BC%E3%83%AB

http://ja-kouka.shinobi.or.jp/wp/wp-content/uploads/2018/07/1b6137e740902d821bd7f9678b59d7d2.jpg

出来上がった白黒の升目に上手いこと単語を置くとクロスワードパズルになる
「縦または横向きに5マス連続に並ばない」は「縦または横向きに4マスまで連続に並んでもいい」だ
そこにさらに追加ルールを仕込むとクロスワードパズルの枠が出来上がる

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

お題

言語限定（コマンドプロンプト・パワーシェル・bash/csh等のUNIXシェル)

10000までの素数を列挙して出力

当然だが、スクリプト言語処理系やコンパイラに丸投げさせるのは禁止
というか、技量の程度が疑わてしまうのでお勧めしない

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

「○○は禁止」系のお題はろくなのがないから禁止した方がいい

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

プログラミング言語なんて、禁止の塊で出来たものなんで
「禁止の所産」って奴な

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

>>629
シェルスクリプトスレ池

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

>>629
C で書いておけば許されるかんじがする
https://pastebin.com/pHNKfcun

実行
https://i.imgur.com/f62qe9L.jpg

最大の素数の幅を見てからきちんと整列される
~/bin/is_prime.exe 50900 60000
50909 50923 50929 50951 50957 50969 50971 50989 50993 51001
51031 51043 51047 51059 51061 51071 51109 51131 51133 51137

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

>>629 Linux
$ primes 2 10001
2
3
...
9967
9973

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

遅くまともな言語ではないやつで、どうにかして動くのを作れというお題なんだろ
まともな言語使用してしまえばお題からずれてるかと

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

配列使えるシェルもあるからそういうの使えば楽かも
shでもsetすりゃ配列だが

まあでも遅そうで実用性なさげ

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

>>629 コマンドプロンプト(Windows)
https://ideone.com/aeDkD1

おそい…コマンドプロンプトよーわからんですよ

**629** · 2019/10/01(火) 13:54:46.98

>>637
スゴイｗ
やれば出来るものですね。
10000を超えても出力し続けてますｗ

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

あ、10000までの制限がないｗｗ
limit=100までにしてるから10000以降に出た数値は信頼性ないｗｗｗ

修正したものを実行して確認中…10000で止まったらUPる…遅い(´・ω・`)

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

>>629 コマンドプロンプト (>>637の修正版)
https://ideone.com/5keIkO

637は書いてたはずのecho 2も消えてた(´・ω・`)

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

まあまだ 49(7*7) 289(17*17) 961(31*31) 2209(47*47) 3721(61*61) 6241(79*79)を出力するバグがあったわけだがｗ

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

>>629 コマンドプロンプト修正版2
https://ideone.com/dXSpSd
もうバグないといいな

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

シェルスクリプトでチョコチョコと何かやる分には良いが、プログラムを書くというのとは違うだろ。
プログラムはそれなりのものた^_^書いた方が効率的。

どっちからでも起動できるんだから餅は餅屋。

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

^_^;

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

>>629
bash
https://paiza.io/projects/G-t20MSEfsjAnAp0G5v2NA

でもやっぱ遅くてpaiza.ioではtimeoutして最後まで出てこないw

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

>>629
遅くても構わなければ、PowerShellではとても簡潔に書ける。

$p = 2..10000
while ($p) {
　　$p[0]
　　$p = @($p |? {$_ % $p[0]})
}

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

誰が遅くても構わないと言った

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

お題: ハッシュマップを実装せよ

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

俺が書いたコマンドプロンプトのよりは早いぞｗ

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

>>648
ジェネリックに書くとして、ハッシュ関数はどうやって書けばいいんだ？
std::vector<std::list<T>>> HashMap;
っていう感じのことはできそうではあるけどな。

**デフォルトの名無しさん** · 2019/10/02(水) 07:55:46.84

# Java

HashMap<String, Integer> shop = new HashMap<String, Integer>();

shop.put("apple", 100);
shop.put("banana", 125);
System.out.println(shop.get("banana")); //=> 125

# Python

shop = { 'apple':100 , 'banana':125 }
print(shop['banana'])
# 125

**デフォルトの名無しさん** · 2019/10/02(水) 12:25:17.61

それは実装ではない。

**デフォルトの名無しさん** · 2019/10/02(水) 13:20:24.28

>>648
このスレの住民のレベルに合っていてかつプログラマにとって必要不可欠な知識なので良いお題

**デフォルトの名無しさん** · 2019/10/02(水) 13:31:58.92

実装って何を言ってるのかな？　コンパイラを作れってこと？　それとも基本関数を使ってそれらしいハッシュマップを作れという事？
実装されている言語にさらに実装しろって意味不明。

**デフォルトの名無しさん** · 2019/10/02(水) 14:40:31.57

ハッシュマップのアルゴリズム部分を自分で書けってことだろ
アスペかよ

**デフォルトの名無しさん** · 2019/10/02(水) 14:58:20.33

俺健常者だけど言ってる事正直よくわからんのだが

**デフォルトの名無しさん** · 2019/10/02(水) 15:31:03.84

言わんとすることは何となくわかるんだが、多分ジェネリックが有る言語なら比較的考えやすいがジェネリックがない言語ではどう解釈するのかな。

**蟻人間** ◆T6xkBnTXz7B0 · 2019/10/02(水) 16:28:04.58

お題：文字列操作のUndo/Redoを実装せよ。

文字列Sに対し
(a) 文字位置indexからcount文字を別の文字列strで置き換える(replace)、
(b) 文字位置indexからcount文字を削除する(erase)、
(c) 文字位置indexに別の文字列strを挿入する(insert)
という操作が連続的に可能であるとき、これらの操作に対するUndo/Redo（元に戻す/やり直す）を実装せよ。

ただし操作対象の文字列Sが長いときにメモリーを無駄にする実装にしてはいけない。

解答例：
Undo/Redo framework for C++11
https://github.com/katahiromz/UndoSystem

**デフォルトの名無しさん** · 2019/10/02(水) 19:48:30.85

ここの回答に使われる言語でハッシュマップ自分で実装せなあかん言語なんて少ないと思うが？

**デフォルトの名無しさん** · 2019/10/02(水) 20:14:50.09

ジェネリックなハッシュ関数の書き方が解らない。Orz

**デフォルトの名無しさん** · 2019/10/02(水) 20:29:20.39

シリアライズ、文字列化できてればCRC32でも一応ハッシュとして使える

**デフォルトの名無しさん** · 2019/10/02(水) 20:36:10.78

>>661
小規模な問題解くのにミドルウェアいるんすな。辛い。

**デフォルトの名無しさん** · 2019/10/02(水) 20:49:55.37

そんなに汎用的、一般的なのを作る必要もないとおもうので
入力は文字列限定で動くやつ作ればクリアでは?

**デフォルトの名無しさん** · 2019/10/02(水) 21:00:41.50

>>663
解った文字列やってみるわ。

**デフォルトの名無しさん** · 2019/10/02(水) 21:46:18.99

>>648
http://coliru.stacked-crooked.com/a/7a42d9f1346c0049
C++。コンストラクタ起動式って17からやったっけ？
とりあえず作ってみたが・・・。
今、調子悪くて困ってる。

**デフォルトの名無しさん** · 2019/10/02(水) 21:48:13.96

ハッシュ関数は適当。昔2chで見たのパクった。
HMのサイズ7にしておけばよかった。素数だからな。

**デフォルトの名無しさん** · 2019/10/02(水) 21:59:13.49

お題: 簡易的なXMLをパースして構造を出力せよ

in < <div><p><a></a></p></div><span><p></p></span>

out >
div
__p
____a
span
__p

**デフォルトの名無しさん** · 2019/10/02(水) 22:48:58.72

>>661
それかsumでいいやん、conflictしたらリスト管理で一丁上がり

**デフォルトの名無しさん** · 2019/10/02(水) 22:50:04.70

>>667
C++
https://ideone.com/M5atpv

**デフォルトの名無しさん** · 2019/10/03(木) 08:18:12.13

>>629
> というか、技量の程度が疑わてしまうのでお勧めしない
人の心配する前に自分の出題技量の程度を心配しなよ…

**デフォルトの名無しさん** · 2019/10/04(金) 01:29:13.30

いいじゃねーかそんなこまけーことどうでも
ケツの穴のちいせぇやろうだな。
何ならおじさんが広げてやろうかｗ

**デフォルトの名無しさん** · 2019/10/04(金) 01:59:12.37

アッー！

**デフォルトの名無しさん** · 2019/10/04(金) 04:07:06.69

>>620
https://ideone.com/UUNc5X
C++。多分できた。
バグの原因は変数がマイナスを扱えていないことだった。

**デフォルトの名無しさん** · 2019/10/04(金) 14:06:50.47

>>629
の出題意図を読み取れば、
記憶域を余り自由に使えない環境で
如何に工夫して目的が達成できるか
ということではないかと
その意味では、Power-shellは少し
強力杉だから除外すべきだったかも
知れないが（遅いから使われる
ことは少ないだろけどスクリプト言
語処理系であるとも言えなくもないし）

**デフォルトの名無しさん** · 2019/10/04(金) 14:58:22.06

シェルスクリプトって元々プログラミング言語じゃないからな。　あくまでも補助的なもの。
それでプログラミングすると言うのは本末転倒。　間違った方向性でしかない。

貧弱な環境でも使えるものと言うなら、BASIC や、Python の組込型がコンパクト。　PIC や子供のおもちゃにすら入ってる。　百円のチップにすら入ってるからな。

コンパイラでも良いのならCが最もシンプル。

**デフォルトの名無しさん** · 2019/10/04(金) 17:29:00.38

またプログラム言語のオレオレ定義かよw

**デフォルトの名無しさん** · 2019/10/04(金) 17:37:04.67

それ以上に謎の空白が気になる

**675** · 2019/10/04(金) 18:12:04.35

わりいわりい、iOS13になって、日本語の途中の空白は全て全角になったから、なんか間抜けな感じになったな。

良いか悪いかわからんが慣れてくれ。

**デフォルトの名無しさん** · 2019/10/04(金) 18:43:32.54

。の後にスペースをひとつ入れているようだ

**デフォルトの名無しさん** · 2019/10/04(金) 18:44:20.57

スペース入れなきゃいいのでは？

**デフォルトの名無しさん** · 2019/10/04(金) 19:36:54.12

空白なのは頭ん中だけにしとけｗｗｗ

**デフォルトの名無しさん** · 2019/10/05(土) 00:51:48.39

空っぽのほうが夢詰め込めるぞ

**デフォルトの名無しさん** · 2019/10/05(土) 01:36:41.50

空っぽかと思ったら、実は分厚い頭蓋骨が詰まった中心に
ﾎﾟﾂﾝとノミのような脳みそがある、石頭だったでごじゃる

**637** · 2019/10/05(土) 08:57:02.16

>>629 コマンドプロンプト高速化版
https://ideone.com/bJ1lnD
>>642の6倍くらい速くなった…うちの環境だと>>646よりはやくなったどーｗ

**デフォルトの名無しさん** · 2019/10/05(土) 15:19:46.96

>>629 bash 4.3.42(3)

n=10000
eval "a=('' '' {2..$n})"
for i in ${a[@]}; do
　if [ ${a[$i]} ]; then
　　echo $i
　　for ((j=2*$i; j<=$n; j+=$i)); do
　　　 unset a[$j]
　　done
　fi
done

実行結果
$ bash 15_629_prime.sh
2

3

5

7
…
9941
9949
9967
9973

**デフォルトの名無しさん** · 2019/10/05(土) 15:21:16.04

>>685 実行結果、貼りそこなって変な改行は入ってた…orz 訂正

実行結果
$ bash 15_629_prime.sh
2
3
5
7
…
9941
9949
9967
9973

**デフォルトの名無しさん** · 2019/10/05(土) 15:31:29.76

>>686 いや、for ((j=$i*$i; j<=$n; j+=$i)); do だよ間違えた、25%早くなる

n=10000
eval "a=('' '' {2..$n})"
for i in ${a[@]}; do
　if [[ ${a[$i]} ]]; then
　　echo $i
　　for ((j=$i*$i; j<=$n; j+=$i)); do
　　　 unset a[$j]
　　done
　fi
done

**デフォルトの名無しさん** · 2019/10/05(土) 16:09:49.40

>>629 >>687の実行結果
https://ideone.com/3RCc5k

**デフォルトの名無しさん** · 2019/10/05(土) 17:13:25.01

>>687

eval "a=('' '' {2..$n})"
for i in ${a[@]}; do
　if [[ ${a[$i]} ]]; then

この書き方、a[]の最初の0,1番目の要素に空文字を設定しておいて
それを配列のインデックスとして使い、あまりいい書き方じゃないと気がついた
動いているんで、あせって直さないでおくけどｺﾞﾒﾝね～

**デフォルトの名無しさん** · 2019/10/05(土) 20:48:42.33

お題:
https://regexcrossword.com/playerpuzzles/59e565c95008d
のようなHEXマスの正規表現クロスワードパズルのソルバーを実装せよ。
n=1でいいので処理時間も報告せよ。

**デフォルトの名無しさん** · 2019/10/05(土) 21:56:27.55

>>690
辞書データぷりーず

**デフォルトの名無しさん** · 2019/10/05(土) 22:00:12.06

このソルバーに辞書データっているか？

**デフォルトの名無しさん** · 2019/10/05(土) 22:27:44.93

>>691
出題者ではないが、まず、完成図面を作って、そこから問題を作ったほうが早そうだ。
ヘックスの扱い方わからねーんだ俺。
昔聞いたことあるけど、そのうち・・・と思ってたら曖昧になってしまった。

**デフォルトの名無しさん** · 2019/10/05(土) 23:11:05.60

>>667 Perl5

$in = '<div><p><a></a></p></div><span><p></p></span>';
use XML::Simple;
$xml = new XML::Simple->XMLin('<document>'.$in.'</document>');
use Data::Dumper;
$Data::Dumper::Terse = 1;
print Dumper $xml;

実行結果
~ $ perl 15_667_Simple.pl
{
　'div' => {
　　'p' => {
　　　'a' => {}
　　}
　},
　'span' => {
　　'p' => {}
　}
}

**デフォルトの名無しさん** · 2019/10/06(日) 00:03:34.99

とりあえず>>690を手動で解くのに2時間かかったｗ
お題は思いついたらやる

**デフォルトの名無しさん** · 2019/10/06(日) 05:37:10.28

お題: L形図形を表示する
[入力]
1
[出力]
a
bc

[入力]
2
[出力]
ba
ca
abcc
bcab

[入力]
3
[出力]
bacb
cbaa
acba
bcca
bcabcccb
cabcabca
abccaabc
bcabbcab

**デフォルトの名無しさん** · 2019/10/06(日) 05:55:18.89

>>696
最後のやつが4ではなく3?
それと文字はabc使っているが、どういう規則で並べるのか?

**デフォルトの名無しさん** · 2019/10/06(日) 05:58:05.67

カオス

**675** · 2019/10/06(日) 09:02:51.40

最後は4だろ

**デフォルトの名無しさん** · 2019/10/06(日) 09:24:22.51

>>697
おそらく1のパターンのL字を4つで向きを変えてくっつけて大きなL字にしたものが2のパターン。2を4つ使って同じことをやって3を作ってるということだと思う。愚直に再帰的にやれば簡単そう。

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

>>696
入力3の出力、一か所間違えとるよな？ｗ

**デフォルトの名無しさん** · 2019/10/06(日) 10:43:36.50

>>696 Java
https://ideone.com/31a8Ky

**デフォルトの名無しさん** · 2019/10/06(日) 17:34:25.93

お題: プログラム実行後にプログラム自身を削除するプログラムを作れ
実行内容は以下のメッセージを出力する
「このプログラムが起動するのは一度きりである。実行ののち、消去される。」

**デフォルトの名無しさん** · 2019/10/06(日) 17:53:36.15

>>703
echo このプログラムが起動するのは一度きりである。実行ののち、消去される。
rm -rf /

**675** · 2019/10/06(日) 18:05:59.73

>>703 そんな問題は却下。　
どんな問題でもファイルを削除する様な問題は出してはいけない。
ど素人もいるんだからそんな問題は出すべきではない。

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

>>704
大抵の環境でコマンド通らないんじゃないかそれ