プログラミングのお題スレ 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/10/12(土) 11:07:06.97

いかん。すまん。出力が安価になってしまった。

**デフォルトの名無しさん** · 2019/10/12(土) 11:31:04.69

lol

**デフォルトの名無しさん** · 2019/10/12(土) 11:52:28.41

>>750
@Mathematica

Range[0, 9999] //
　Map[IntegerDigits, #] & //
　Map[Total, #] & //
　Tally

{{0, 1}, {1, 4}, {2, 10}, {3, 20}, {4, 35}, {5, 56}, {6, 84},
　{7, 120}, {8, 165}, {9, 220}, {10, 282}, {11, 348}, {12, 415},
　{13, 480}, {14, 540}, {15, 592}, {16, 633}, {17, 660}, {18, 670},
　{19, 660}, {20, 633}, {21, 592}, {22, 540}, {23, 480}, {24, 415},
　{25, 348}, {26, 282}, {27, 220}, {28, 165}, {29, 120}, {30, 84},
　{31, 56}, {32, 35}, {33, 20}, {34, 10}, {35, 4}, {36, 1}}

**デフォルトの名無しさん** · 2019/10/12(土) 13:09:50.35

>>744 perl

use List::Util qw(sum);
$h{sum(split"")}++ for(0..9999);
map{print"$_ $h{$_}\n"}sort{$a<=>$b}keys%h;

**デフォルトの名無しさん** · 2019/10/12(土) 13:25:43.66

>>748　言われた通りの改定問題

X,Yが与えられる。
X以上Y以下の連続する整数で、数字和の頻度。
もっとも大きい頻度はいくつか。
制約 0 <= X < Y <= 5000億

1) 0 9999 --> 670
　　合計18が、670ある。>>744の入力値
2) 1234567 9876543 --> 459034
3) 1 500000000000 --> 20406732610
4) 12345678909 498765432123 --> 20000965162

※Y-Xが MAX5000億なので愚直(力技)はきつい。
※頻度表は"桁数*9"程度あるので、最高値出力のみに変更

**デフォルトの名無しさん** · 2019/10/12(土) 17:47:36.17

頻度の階差を取った
0~9999だと三角数
0~99999だと三角錐数
になる

**デフォルトの名無しさん** · 2019/10/12(土) 18:44:18.00

>>740
>>741じゃねーけど総当りもどきで解いてみた
https://ideone.com/nZqnpN
https://i.imgur.com/3esPPr0.jpg
さすがにフルに総当りするととても終わりそうにないのでちょっとズルして各マスに入る文字を正規表現に使われている"ABCDEFGHMNORXYZ"に限定した
(ソースの217行目）
Celeron 1005M 1.9GHzのしょぼいノートPCで1,386秒（23分）程度だった

**デフォルトの名無しさん** · 2019/10/12(土) 19:36:00.00

>>757
すんごい
実行時間もすんごい…

**デフォルトの名無しさん** · 2019/10/12(土) 19:59:28.15

>>754 Perl5、計算量を減らしたｱﾙｺﾞﾘｽﾞﾑ

sub f {
　@s = @_;
　for $l (1..9) {
　　$s[$_ + $l] += $_[$_] for 0..$#_;
　} @s }
@b = f f f f 1;
print "$_,$b[$_] " for 0..$#b;

実行結果
~ $ perl 15_774_digit_sum_1.pl
0,1 1,4 2,10 3,20 4,35 5,56 6,84 7,120 8,165 9,220 10,282 11,348 12,415 13,480 14,540 15,592 16,633 17,660 18,670 19,660 20,633 21,592 22,540 23,480 24,415 25,348 26,282 27,220 28,165 29,120 30,84 31,56 32,35 33,20 34,10 35,4 36,1

もっと減らしたｱﾙｺﾞﾘｽﾞﾑを考えたい気もするけど、
これで一回投稿

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

>>759
アンカーしくった、>>744 だった…ｺﾞﾒﾝね

**744** · 2019/10/12(土) 20:24:43.33

白状すると単にrubyで書きたいだけのお題だったんだけど
（Array#repeated_permutationを使いたいだけ）
みんな色々面白いこと考えるもんだね

**蟻人間** ◆T6xkBnTXz7B0 · 2019/10/13(日) 14:56:19.23

お題: ストップウォッチを作れ。

最初にEnterキーを押すとスタート。
次にEnterキーを押すとストップ。
経過した時間を表示する。

**675** · 2019/10/13(日) 15:28:31.50

>>744 Python
https://ideone.com/v1nrdn
―――-

import pandas as pd

array = []
for i in range(0,10000):
array.append(sum(list(map(int,str(i)))))

srv =pd.Series(array).value_counts().sort_index()

print(srv)

**デフォルトの名無しさん** · 2019/10/13(日) 17:38:11.00

>>762
https://ideone.com/B1ShSB
C++。ストップウオッチ自体は大分前にC#をパクって作ってあったありあわせだ。

**デフォルトの名無しさん** · 2019/10/13(日) 21:07:01.46

>>755 C
http://ideone.com/qdx79j
一応Y = LLONG_MAXまでできる、あってるか知らんが
ただのスパゲッティになってしもた

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

>>744
Kotlin
https://paiza.io/projects/ci9PwSmxQWwMM4iWRolsyw

**デフォルトの名無しさん** · 2019/10/14(月) 02:00:45.97

>>762
Kotlin
まずは仕様通りのもの。

fun main() {
　val br = System.`in`.bufferedReader()
　br.readLine()
　val t0 = System.nanoTime()
　br.readLine()
　val t1 = System.nanoTime()
　val t = t1 - t0
　println("%d.%09d".format(t / 1000000000L, t % 1000000000))
}

しかしこれでは途中経過が出てこなくてつまらない。ということでこれ。

fun main() {
　val br = System.`in`.bufferedReader()
　br.readLine()
　val t0 = System.nanoTime()
　while (true) {
　　if (br.ready()) {
　　　val c = br.read()
　　　if (c == '\n'.toInt())
　　　　break
　　}
　　val t1 = System.nanoTime()
　　val t = t1 - t0
　　print("%d.%09d\r".format(t / 1000000000L, t % 1000000000))
　}
　println()
}

**デフォルトの名無しさん** · 2019/10/14(月) 07:53:19.70

お題
2^511-1の真約数をひとつ求める
https://mainichi.jp/articles/20191013/k00/00m/040/245000c

**デフォルトの名無しさん** · 2019/10/14(月) 08:39:26.54

>>768
そのニュース関係なくね？

**デフォルトの名無しさん** · 2019/10/14(月) 08:53:29.04

実は素数でした
とかいう形？

**デフォルトの名無しさん** · 2019/10/14(月) 09:34:48.23

>>770
511 = 7 * 73 だから 2^511 - 1 は素数ではない

**デフォルトの名無しさん** · 2019/10/14(月) 09:38:05.24

というか2^73-1で割り切れる

◆QZaw55cn4c · 2019/10/14(月) 15:57:50.03

>>771-772
それは 2^511-1 は 2^7-1 でも割り切れることを主張しているのですか？

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

>>773
それ以外にどう読めるんだよアホか

**デフォルトの名無しさん** · 2019/10/14(月) 20:26:24.40

>>773
2^511-1 = 2進数で1が511個 = 2進数で1111111が73個並んだ形
2^511-1を2^7-1で割ったら2進数で0000001が73個並んだ形
ってことじゃろ

**蟻人間** ◆T6xkBnTXz7B0 · 2019/10/14(月) 20:53:54.75

プログラミングから一気に整数論へダイブ

◆QZaw55cn4c · 2019/10/14(月) 21:23:44.39

>>774-775
2^{ab}-1 = (2^a-1)(1 + 2a + 2^2a + 2^3a + ... + 2^(b-1)a)
と因数分解できるんですね…
thx a lot.

**デフォルトの名無しさん** · 2019/10/14(月) 22:14:18.19

必死に5時間検索しまくったのか・・・

**675** · 2019/10/15(火) 01:03:22.38

もう何処かのチャレンジ問題を議論するスレでも良いのでは？

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

お題: お題スレの過去スレからお題をランダムに選択し出力するプログラムを作成せよ

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

QZの醜態を全部晒すプログラムを作成せよ

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

>>781
w3m https://mevius.5ch.net/test/read.cgi/tech/1564310397/ | ~/bin/select_word_and_ancher.pl QZaw55cn4c
https://pastebin.com/MPWNXYG5
https://i.imgur.com/fJi3S6W.png

**デフォルトの名無しさん** · 2019/10/15(火) 16:06:38.33

>>782
くそわろた

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

>>755 python
http://ideone.com/caxm7I

ほぼ典型っぽいので、桁DPで解く。

遊びで（X,Y)＝(0, 10^100）を実行してみる

**デフォルトの名無しさん** · 2019/10/16(水) 01:58:29.60

あらら仕事にかまけてほったらかしていたら
先こされちゃったな感

**デフォルトの名無しさん** · 2019/10/16(水) 02:04:49.25

QZは自分がキチガイということは全然自覚してないんだろうな

**デフォルトの名無しさん** · 2019/10/16(水) 08:36:01.98

>>786 自覚はあるらしいよ。

**デフォルトの名無しさん** · 2019/10/16(水) 16:11:48.25

ＱＺが自身をキチガイだと認識しているのならば、ＱＺはキチガイという言葉の正しい意味を理解していない

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

誰が見てもQZは頭がおかしいよ

◆QZaw55cn4c · 2019/10/16(水) 20:10:11.38

>>789
どういうところが「頭がおかしい」と思ったのですか？

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

>>790
周囲が迷惑している行為や的外れで頓珍漢な言動をした際にそれを指摘しても、分からないから具体的に言えという。普通の人からすれば明らかな場合であろうと。
そして具体的に説明しても、自分はそう感じないから理解しない、納得しないと言い、言動を改めない。

本人の中では論理的整合性がとれた言動なのかも知れないが、周囲からすれば会話ができない困った奴に見える。

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

朝鮮人に特有な行為だね

**デフォルトの名無しさん** · 2019/10/17(木) 02:18:55.29

他人の迷惑考えずこんなの貼っちゃう奴だしな

848 ◆QZaw55cn4c sage 2019/07/20(土) 08:18:17.29 ID:jbjCUWIF
お題と回答
5 : 6 10 32 36 44
9 : 15 34 35 79

まんま>>791に該当するわ

**デフォルトの名無しさん** · 2019/10/17(木) 09:29:19.87

複素数の多価関数を何度説明しても理解してなかったし脳に欠陥があるのだろう

**デフォルトの名無しさん** · 2019/10/17(木) 12:35:29.92

多価関数を理解できなかったのかｗｗｗ
じゃあリーマン面も分からないだろうな
そんな状態で一丁前に「留数定理」とのたまうから頭おかしい

**デフォルトの名無しさん** · 2019/10/17(木) 16:53:38.74

>>744
Kotlin
>>766をほんのちょっと改造
https://paiza.io/projects/K_ZOTIieO38ysksk8P8-sw

◆QZaw55cn4c · 2019/10/17(木) 19:46:20.65

>>795
＞そんな状態で一丁前に「留数定理」とのたまう
多分、それは「留数定理は忘れた」という文脈以外ではいったことがないと思いますよ

>>794
「何度も」説明を受けた覚えはありませんよ、むしろ意図的に答えを隠されたような隔靴掻痒的なほのめかししかなかったと記憶しています

>>793
問題を明確に指摘された後は、その貼り付けは実施していないのですが

>>794
今はすべてを実数に限定した線形微分方程式ですらとても苦しんでいるので、複素解析／ｊ関数論とかは当分無理だと思います、関数論のいい教科書があれば教えてください

**デフォルトの名無しさん** · 2019/10/17(木) 20:10:25.04

>>797
あれだけ明瞭な説明を受けて理解できないどころかはぐらかされたと感じるならばお前は脳の病気だな

**デフォルトの名無しさん** · 2019/10/17(木) 22:10:55.40

５ｃｈなんて無駄にマウント取るやつばっかりだから、コテつけてごちゃごちゃ言っても時間の無駄だぞ
袋叩きにあうだけ

**デフォルトの名無しさん** · 2019/10/18(金) 01:24:53.30

自演擁護乙。

**蟻人間** ◆T6xkBnTXz7B0 · 2019/10/18(金) 23:48:51.61

気を取り直していくぞ。

お題: 現在時刻のアナログ時計のSVG画像を出力せよ。丸い外枠と短針と長針だけでいいが、可能なら秒針と文字盤も表示せよ。

**デフォルトの名無しさん** · 2019/10/19(土) 02:49:07.69

暇な人向けのお題：なるべく公正な多数決システムを考案せよ。
サンプル：https://ideone.com/Ayr1Az

上記は多数決して、3人サンプルして、じゃんけんする。というプロセスで導き出される。

**デフォルトの名無しさん** · 2019/10/19(土) 18:44:38.13

暇な人向けのお題II！
9x9のセルが与えられる。そのセルは磁石である。
真空状態での磁気シミュレーションをして量子コンピュータに近似せよ。

一つの万能ではない方針。
1パス目で相互作用を足し込む。
2パス目で相互作用の蓄積を作用素数で割る。

ライフゲームがヒントになるかもしれない。

**デフォルトの名無しさん** · 2019/10/19(土) 18:45:19.24

>>803
なお、自分は物理学も数学も素人である。。。Orz

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

お題
入力された正整数を漢数字表記にして出力せよ
10の何乗まで対応するかは任せる

514 -> 五百十四
131072 -> 十三万千七十二
90010 -> 九万十

**デフォルトの名無しさん** · 2019/10/21(月) 09:41:08.94

>>805 python

%pip install kanjize
from kanjize import int2kanji, kanji2int
print(int2kanji(123456789))
# 一億二千三百四十五万六千七百八十九

**デフォルトの名無しさん** · 2019/10/21(月) 09:45:18.93

>>806
そんなのあるのか…

**デフォルトの名無しさん** · 2019/10/21(月) 13:26:32.49

perlの時代には既に存在した

**デフォルトの名無しさん** · 2019/10/21(月) 13:31:36.37

じゃあunicodeにシュメル文字が収録されたので、それで。
フフフ、ライブラリなんてあるまい

**デフォルトの名無しさん** · 2019/10/21(月) 13:35:10.39

>>809 Python

%pip install sumerianize
from fumerianize import int2sumerian, sumerian2int
print(int2sumerian(123456789))
# ????????????????????????

**デフォルトの名無しさん** · 2019/10/21(月) 13:39:33.90

あんのかよワロタｗ

**デフォルトの名無しさん** · 2019/10/21(月) 13:45:48.07

逆も欲しいな
漢数字を入れるとアラビア数字に変換するプログラム

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

表示できてなくて笑う

**デフォルトの名無しさん** · 2019/10/21(月) 13:50:52.74

>>805
それと同じお題を以前出した覚えがある。
まあいいか。スレ見に来てる人も変わってるだろうし。

**デフォルトの名無しさん** · 2019/10/21(月) 16:23:33.20

>>813 表示できていないのは見る人がフォントを入れていないからだろ。　不思議でも何でもない。

**デフォルトの名無しさん** · 2019/10/21(月) 16:37:23.10

>>812
それと同じお題も過去にあったような。双方向で変換ってやつかな。

まだやったことない人なら頭の体操(またはボケ防止)にはなるからやってみると良いと思う。

**デフォルトの名無しさん** · 2019/10/21(月) 17:22:20.45

>>812
漢数字変換 - Perl表技集
http://www2u.biglobe.ne.jp/~MAS/perl/waza/kansuji.html

これですな

**デフォルトの名無しさん** · 2019/10/21(月) 20:27:05.91

実はcpanからお題を決めてるんじゃないかなというのがしばらく続いてたと思う

**デフォルトの名無しさん** · 2019/10/21(月) 22:35:38.51

ローマ数字との変換、は簡単か

**デフォルトの名無しさん** · 2019/10/21(月) 22:41:08.96

何回か出てる。

**デフォルトの名無しさん** · 2019/10/21(月) 23:57:16.86

適当な整数を入力してそれが円周率の何桁目で出てくるか出力せよ。

何桁まで対応するかは任せる。

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

perl だと m/digit/p からの $^{prematch} とかだな

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

>>821 Perl5、小数点以下10000桁まで一番最初に見つかった桁を出力

$d = 893; # 適当な整数
use Math::BigFloat try => 'GMP,Pari';
$pi = Math::BigFloat->bpi(10000);
#print "$pi\n";
$pi =~ s/\.//; # 小数点「.」を除去
$i = index $pi, $d;
print $i < 0 ? "無し\n" : "小数点以下 $i 桁目\n";

実行結果
~ $ perl 15_821.pl
小数点以下 999 桁目

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

あきらかにNP問題だから解く気がしねえ

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

じゃあNP問題だと証明しろよ

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

>>823
一度にある桁まで求めておいてから検索するよりも、
ガウス=ルジャンドルのアルゴリズムまたはラマヌジャンの式を使うなどして
下の桁まで収束を進めながら検索してゆく方が面白かったかな

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

>>825
キチガイすぎて草

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

ぬるぽ問題

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

じゃあそれにしよう。

適当な文章を入力して縦横斜めにぬるぽの3文字が入っていればガッと出力する。
ひらがなだけにするかそれ以上の対応をするかは任せる。

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

>>829 Python

%pip install nurupo
from nurupo import nurupofield
if nurupofield("ぬるぽ")
print("ｶﾞｯ")
# ｶﾞｯ

**デフォルトの名無しさん** · 2019/10/23(水) 00:32:58.65

pythonなんでも揃ってんな・・・

**デフォルトの名無しさん** · 2019/10/23(水) 20:25:56.13

お題：整数配列の奇数要素のみをソートした配列を返す処理を書いてください

入力例：[6, 5, 4, 3, 2, 1]
出力例：[6, 1, 4, 3, 2, 5]

**デフォルトの名無しさん** · 2019/10/23(水) 20:53:09.53

>>832 octave
https://ideone.com/W2Q4NP

**デフォルトの名無しさん** · 2019/10/23(水) 20:53:23.91

奇数だけ抜き出した配列作成→ソート→元の配列の奇数の位置にソートした配列の要素を入れてくだけで良さそう

**デフォルトの名無しさん** · 2019/10/23(水) 20:54:52.29

あ、ダメだこれｗ
失礼しました

**833** · 2019/10/23(水) 21:05:23.34

>>832 octave
https://ideone.com/F0JmMT

**デフォルトの名無しさん** · 2019/10/23(水) 22:37:14.26

>>832 Perl5

@s = (6, 5, 4, 3, 2, 1);
@ix = grep{$s[$_] & 1} keys @s;
@iy = sort{$s[$a] <=> $s[$b]} @ix;
@s[@ix] = @s[@iy];
use Data::Dump 'dump';
print dump @s;

実行結果
~ $ perl 15_832_sort_odd_elem.pl
(6, 1, 4, 3, 2, 5)

**デフォルトの名無しさん** · 2019/10/24(木) 08:28:31.82

>>832 J
f =: 3 : 0
a =. I. 2 | y
b =. /:~ a { y
b (a) } y
)

f 6 5 4 3 2 1
6 1 4 3 2 5

**デフォルトの名無しさん** · 2019/10/24(木) 09:51:33.40

>>832
p [6, 5, 4, 3, 2, 1].partition.with_index{|_, i| i.even?}.then{|e, o| e.zip(o.sort).flatten}
# => [6, 1, 4, 3, 2, 5]

**デフォルトの名無しさん** · 2019/10/24(木) 09:51:53.30

>>839 Ruby 2.6.0

**デフォルトの名無しさん** · 2019/10/24(木) 12:04:34.69

>>839
[6, 5, 3, 2, 1] とかだと結果が間違っている上、nilとか足されてひどいことになるyo？

p [6, 5, 3, 2, 1].partition.with_index{|_, i| i.even?}.then{|e, o| e.zip(o.sort).flatten}
# => [6, 2, 3, 5, 1, nil]

正しくは => [6, 1, 3, 2, 5]

**デフォルトの名無しさん** · 2019/10/24(木) 15:41:34.92

>>832
Kotlin
https://paiza.io/projects/RXWCx9-WsZvakBKGgIo1UA

やり方は >>834 に書かれている通り。

しかし、もっとスマートな方法はないものか？
ありそうだが思い浮かばない。

**デフォルトの名無しさん** · 2019/10/24(木) 16:54:57.81

>>842
配列コピーしない場合奇数が出たらその後の要素を見て一番小さい奇数と要素の交換でもどう？
配列のコピー不要や。

**デフォルトの名無しさん** · 2019/10/24(木) 21:24:20.41

>>832 ruby
https://ideone.com/EUWgwy

>>832 ocaml
https://ideone.com/6SktpO

**デフォルトの名無しさん** · 2019/10/24(木) 23:20:25.74

>>838
さすがJﾆｷ、さっぱりわからん…

**デフォルトの名無しさん** · 2019/10/25(金) 00:26:52.21

アプリ作成したいのですが、素人なのでどなたか相談に乗ってください。

飲み物が入ったコップを定期的に重量を量り、
そのデータを無線で受信してサーバーで記録し
プロットするアプリを作りたいです。

またRaspiなどのPCはなしで作りたいのですが
組み込みPC？を使わないとできませんか？

またこういったアプリに適した言語などありますでしょうか？

**デフォルトの名無しさん** · 2019/10/25(金) 00:32:12.57

プログラム部分はたいしたことがないとおもうのだが
装置、ハードのほうが大事だろ
そもそもプログラムもハード依存するかもしれないし
特に既成品なら

**デフォルトの名無しさん** · 2019/10/25(金) 00:48:27.50

ありがとうございます。
ハードウェアの知識が全く無いため困っています。
飼い猫のために水の量を管理してあげたいんです。

下記のような組み合わせで出来そうでしょうか？

ADコンバータ
KKHMF HX711モジュール秤量センサー 24位精度ADモジュール圧力センサーモジュール

重量センサー
uxcell 計量ロードセルアルミ合金材質 500g計量電子天秤有線計量センサー

**デフォルトの名無しさん** · 2019/10/25(金) 03:57:48.67

やり方わからないんだけど、カメラで撮影して映像解析して量が分かるのであればスマホやタブレット用のアプリでできそうだよね。
(PCに小さいカメラ付けても良いが)。

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

>>848
適切なスレに移動した方がいいぞ