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

[過去ﾛｸﾞ] プログラミングのお題スレ Part15 (1002ﾚｽ)
上下前次 1-新

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索歴削→次ｽﾚ栞削→次ｽﾚ過去ﾛｸﾞﾒﾆｭｰ

754(1): 2019/10/12(土)13:09 ID:Nq/Z/R6A(1/2) AAS
>>744 perl

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

755(2): 2019/10/12(土)13:25 ID:VvSWBOR5(1) AAS
>>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
省2

756: 2019/10/12(土)17:47 ID:Nq/Z/R6A(2/2) AAS
頻度の階差を取った
0~9999だと三角数
0~99999だと三角錐数
になる

757(1): 2019/10/12(土)18:44 ID:I5ZWyiFj(1) AAS
>>740
>>741じゃねーけど総当りもどきで解いてみた
外部ﾘﾝｸ:ideone.com
画像ﾘﾝｸ[jpg]:i.imgur.com
さすがにフルに総当りするととても終わりそうにないのでちょっとズルして各マスに入る文字を正規表現に使われている"ABCDEFGHMNORXYZ"に限定した
(ソースの217行目）
Celeron 1005M 1.9GHzのしょぼいノートPCで1,386秒（23分）程度だった

758: 2019/10/12(土)19:36 ID:vBnCHMzu(1) AAS
>>757
すんごい
実行時間もすんごい…

759(1): 2019/10/12(土)19:59 ID:hTj/2FIT(1/2) AAS
>>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
省3

760: 2019/10/12(土)20:06 ID:hTj/2FIT(2/2) AAS
>>759
アンカーしくった、>>744 だった…ｺﾞﾒﾝね

761: 744 2019/10/12(土)20:24 ID:1DgZSjUc(1) AAS
白状すると単にrubyで書きたいだけのお題だったんだけど
（Array#repeated_permutationを使いたいだけ）
みんな色々面白いこと考えるもんだね

762(2): 蟻人間 ◆T6xkBnTXz7B0 2019/10/13(日)14:56 ID:w8oKE2gz(1) AAS
お題: ストップウォッチを作れ。

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

763: 675 2019/10/13(日)15:28 ID:XFDKT5kN(1) AAS
>>744 Python
外部ﾘﾝｸ:ideone.com
―――-

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)

764: 2019/10/13(日)17:38 ID:qg/TNtNV(1) AAS
>>762
外部ﾘﾝｸ:ideone.com
C++。ストップウオッチ自体は大分前にC#をパクって作ってあったありあわせだ。

765: 2019/10/13(日)21:07 ID:w512EwKm(1) AAS
>>755 C
外部ﾘﾝｸ:ideone.com
一応Y = LLONG_MAXまでできる、あってるか知らんが
ただのスパゲッティになってしもた

766(1): 2019/10/14(月)01:02 ID:Ws6GlsT+(1/2) AAS
>>744
Kotlin
外部ﾘﾝｸ:paiza.io

767: 2019/10/14(月)02:00 ID:Ws6GlsT+(2/2) AAS
AA省

768(1): 2019/10/14(月)07:53 ID:kizbcx2j(1) AAS
お題
2^511-1の真約数をひとつ求める
外部ﾘﾝｸ:mainichi.jp

769: 2019/10/14(月)08:39 ID:6P2fe30E(1/3) AAS
>>768
そのニュース関係なくね？

770(1): 2019/10/14(月)08:53 ID:z/6QW2Tk(1) AAS
実は素数でした
とかいう形？

771(1): 2019/10/14(月)09:34 ID:6P2fe30E(2/3) AAS
>>770
511 = 7 * 73 だから 2^511 - 1 は素数ではない

772(1): 2019/10/14(月)09:38 ID:6P2fe30E(3/3) AAS
というか2^73-1で割り切れる

773(2): ◆QZaw55cn4c 2019/10/14(月)15:57 ID:eo8SsHS2(1/2) AAS
>>771-772
それは 2^511-1 は 2^7-1 でも割り切れることを主張しているのですか？

774(1): 2019/10/14(月)16:21 ID:CCU+9UFO(1) AAS
>>773
それ以外にどう読めるんだよアホか

775(1): 2019/10/14(月)20:26 ID:ead7I0ur(1) AAS
>>773
2^511-1 = 2進数で1が511個 = 2進数で1111111が73個並んだ形
2^511-1を2^7-1で割ったら2進数で0000001が73個並んだ形
ってことじゃろ

776: 蟻人間 ◆T6xkBnTXz7B0 2019/10/14(月)20:53 ID:O0QR+doO(1) AAS
プログラミングから一気に整数論へダイブ

777: ◆QZaw55cn4c 2019/10/14(月)21:23 ID:eo8SsHS2(2/2) AAS
>>774-775
2^{ab}-1 = (2^a-1)(1 + 2a + 2^2a + 2^3a + ... + 2^(b-1)a)
と因数分解できるんですね…
thx a lot.

778: 2019/10/14(月)22:14 ID:hXRtCJE+(1) AAS
必死に5時間検索しまくったのか・・・

779: 675 2019/10/15(火)01:03 ID:LXkkA+L3(1) AAS
もう何処かのチャレンジ問題を議論するスレでも良いのでは？

780: 2019/10/15(火)01:28 ID:4KtvCQDg(1) AAS
お題: お題スレの過去スレからお題をランダムに選択し出力するプログラムを作成せよ

781(1): 2019/10/15(火)15:09 ID:WmSwVXlW(1) AAS
QZの醜態を全部晒すプログラムを作成せよ

782(1): 2019/10/15(火)15:25 ID:YTs2ZIZB(1) AAS
>>781
w3m 2chｽﾚ:tech | ~/bin/select_word_and_ancher.pl QZaw55cn4c
外部ﾘﾝｸ:pastebin.com
画像ﾘﾝｸ[png]:i.imgur.com

783: 2019/10/15(火)16:06 ID:Ogt2CAsV(1) AAS
>>782
くそわろた

784: 2019/10/16(水)01:16 ID:bAHdrVWX(1) AAS
>>755 python
外部ﾘﾝｸ:ideone.com

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

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

785: 2019/10/16(水)01:58 ID:OEkTBx4G(1) AAS
あらら仕事にかまけてほったらかしていたら
先こされちゃったな感

786(1): 2019/10/16(水)02:04 ID:5tDJE0Z9(1) AAS
QZは自分がキチガイということは全然自覚してないんだろうな

787: 2019/10/16(水)08:36 ID:Mi1dGaVf(1) AAS
>>786 自覚はあるらしいよ。

788: 2019/10/16(水)16:11 ID:EcYqpM5S(1) AAS
ＱＺが自身をキチガイだと認識しているのならば、ＱＺはキチガイという言葉の正しい意味を理解していない

789(1): 2019/10/16(水)16:58 ID:NsS1/fO1(1) AAS
誰が見てもQZは頭がおかしいよ

790(1): ◆QZaw55cn4c 2019/10/16(水)20:10 ID:JF94p0Fe(1) AAS
>>789
どういうところが「頭がおかしい」と思ったのですか？

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

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

792: 2019/10/17(木)02:01 ID:Wp46MCu9(1) AAS
朝鮮人に特有な行為だね

793(1): 2019/10/17(木)02:18 ID:E+5qu981(1) AAS
他人の迷惑考えずこんなの貼っちゃう奴だしな

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

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

794(1): 2019/10/17(木)09:29 ID:yTQXhZUg(1) AAS
複素数の多価関数を何度説明しても理解してなかったし脳に欠陥があるのだろう

795(1): 2019/10/17(木)12:35 ID:MLKesy/P(1) AAS
多価関数を理解できなかったのかｗｗｗ
じゃあリーマン面も分からないだろうな
そんな状態で一丁前に「留数定理」とのたまうから頭おかしい

796: 2019/10/17(木)16:53 ID:H8l94EK2(1) AAS
>>744
Kotlin
>>766をほんのちょっと改造
外部ﾘﾝｸ:paiza.io

797(1): ◆QZaw55cn4c 2019/10/17(木)19:46 ID:LNHzPSkK(1) AAS
>>795
＞そんな状態で一丁前に「留数定理」とのたまう
多分、それは「留数定理は忘れた」という文脈以外ではいったことがないと思いますよ

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

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

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

798: 2019/10/17(木)20:10 ID:Fo0iAhjp(1) AAS
>>797
あれだけ明瞭な説明を受けて理解できないどころかはぐらかされたと感じるならばお前は脳の病気だな

799: 2019/10/17(木)22:10 ID:lFPJOlZz(1) AAS
５ｃｈなんて無駄にマウント取るやつばっかりだから、コテつけてごちゃごちゃ言っても時間の無駄だぞ
袋叩きにあうだけ

800: 2019/10/18(金)01:24 ID:RRRrLQ0r(1) AAS
自演擁護乙。

801: 蟻人間 ◆T6xkBnTXz7B0 2019/10/18(金)23:48 ID:981JMrNY(1) AAS
気を取り直していくぞ。

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

802: 2019/10/19(土)02:49 ID:PZMkyc4n(1/3) AAS
暇な人向けのお題：なるべく公正な多数決システムを考案せよ。
サンプル：外部ﾘﾝｸ:ideone.com

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

803(1): 2019/10/19(土)18:44 ID:PZMkyc4n(2/3) AAS
暇な人向けのお題II！
9x9のセルが与えられる。そのセルは磁石である。
真空状態での磁気シミュレーションをして量子コンピュータに近似せよ。

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

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

804: 2019/10/19(土)18:45 ID:PZMkyc4n(3/3) AAS
>>803
なお、自分は物理学も数学も素人である。。。Orz

805(2): 2019/10/21(月)08:37 ID:HKPBZHRe(1/2) AAS
お題
入力された正整数を漢数字表記にして出力せよ
10の何乗まで対応するかは任せる

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

806(1): 2019/10/21(月)09:41 ID:5iZNWaQ2(1/2) AAS
>>805 python

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

807: 2019/10/21(月)09:45 ID:HKPBZHRe(2/2) AAS
>>806
そんなのあるのか…

808: 2019/10/21(月)13:26 ID:Yxovtd3S(1/2) AAS
perlの時代には既に存在した

809(1): 2019/10/21(月)13:31 ID:W7vxtZcq(1) AAS
じゃあunicodeにシュメル文字が収録されたので、それで。
フフフ、ライブラリなんてあるまい

810: 2019/10/21(月)13:35 ID:ZDMJHUdn(1) AAS
>>809 Python

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

811: 2019/10/21(月)13:39 ID:n9VxwF2L(1) AAS
あんのかよワロタｗ

812(2): 2019/10/21(月)13:45 ID:qqa/WroJ(1) AAS
逆も欲しいな
漢数字を入れるとアラビア数字に変換するプログラム

813(1): 2019/10/21(月)13:49 ID:BDK5iYLM(1) AAS
表示できてなくて笑う

814: 2019/10/21(月)13:50 ID:hy8thByE(1) AAS
>>805
それと同じお題を以前出した覚えがある。
まあいいか。スレ見に来てる人も変わってるだろうし。

815: 2019/10/21(月)16:23 ID:5iZNWaQ2(2/2) AAS
>>813 表示できていないのは見る人がフォントを入れていないからだろ。　不思議でも何でもない。

816: 2019/10/21(月)16:37 ID:lI38JOob(1) AAS
>>812
それと同じお題も過去にあったような。双方向で変換ってやつかな。

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

817: 2019/10/21(月)17:22 ID:Yxovtd3S(2/2) AAS
>>812
漢数字変換 - Perl表技集
外部ﾘﾝｸ[html]:www2u.biglobe.ne.jp

これですな

818: 2019/10/21(月)20:27 ID:niRnsl0k(1) AAS
実はcpanからお題を決めてるんじゃないかなというのがしばらく続いてたと思う

819: 2019/10/21(月)22:35 ID:9OcWZn69(1) AAS
ローマ数字との変換、は簡単か

820: 2019/10/21(月)22:41 ID:tcnN+Hr+(1) AAS
何回か出てる。

821(1): 2019/10/21(月)23:57 ID:PlH6WJHg(1) AAS
適当な整数を入力してそれが円周率の何桁目で出てくるか出力せよ。

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

822: 2019/10/22(火)00:08 ID:TSqT/b7n(1) AAS
perl だと m/digit/p からの $^{prematch} とかだな

823(1): 2019/10/22(火)12:07 ID:rZX4V0+4(1/2) AAS
>>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
省1

824: 2019/10/22(火)12:11 ID:wZUXcjF6(1) AAS
あきらかにNP問題だから解く気がしねえ

825(1): 2019/10/22(火)12:40 ID:E1qN728j(1) AAS
じゃあNP問題だと証明しろよ

826: 2019/10/22(火)13:54 ID:rZX4V0+4(2/2) AAS
>>823
一度にある桁まで求めておいてから検索するよりも、
ガウス=ルジャンドルのアルゴリズムまたはラマヌジャンの式を使うなどして
下の桁まで収束を進めながら検索してゆく方が面白かったかな

827: 2019/10/22(火)16:09 ID:0ZM3PvBa(1/2) AAS
>>825
キチガイすぎて草

828: 2019/10/22(火)19:15 ID:/ue0mcGS(1) AAS
ぬるぽ問題

829(1): 2019/10/22(火)19:35 ID:JpCkwFny(1) AAS
じゃあそれにしよう。

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

830: 2019/10/22(火)23:37 ID:0ZM3PvBa(2/2) AAS
>>829 Python

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

831: 2019/10/23(水)00:32 ID:65oBAktI(1/2) AAS
pythonなんでも揃ってんな・・・

832(14): 2019/10/23(水)20:25 ID:LcbXQT4h(1) AAS
お題：整数配列の奇数要素のみをソートした配列を返す処理を書いてください

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

833(1): 2019/10/23(水)20:53 ID:oBmkNBH8(1/3) AAS
>>832 octave
外部ﾘﾝｸ:ideone.com

834(1): 2019/10/23(水)20:53 ID:65oBAktI(2/2) AAS
奇数だけ抜き出した配列作成→ソート→元の配列の奇数の位置にソートした配列の要素を入れてくだけで良さそう

835(1): [833] 2019/10/23(水)20:54 ID:oBmkNBH8(2/3) AAS
あ、ダメだこれｗ
失礼しました

836: 833 2019/10/23(水)21:05 ID:oBmkNBH8(3/3) AAS
>>832 octave
外部ﾘﾝｸ:ideone.com

837: 2019/10/23(水)22:37 ID:PSSarBFK(1) AAS
>>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)

838(1): 2019/10/24(木)08:28 ID:5RTZY+Zo(1) AAS
>>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

839(2): 2019/10/24(木)09:51 ID:76TAYxNw(1/2) AAS
>>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]

840: 2019/10/24(木)09:51 ID:76TAYxNw(2/2) AAS
>>839 Ruby 2.6.0

841: 2019/10/24(木)12:04 ID:yRKIAYVV(1) AAS
>>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]

842(1): 2019/10/24(木)15:41 ID:gElHX+jG(1) AAS
>>832
Kotlin
外部ﾘﾝｸ:paiza.io

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

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

843: 2019/10/24(木)16:54 ID:ZpMPcQ0n(1) AAS
>>842
配列コピーしない場合奇数が出たらその後の要素を見て一番小さい奇数と要素の交換でもどう？
配列のコピー不要や。

844: 2019/10/24(木)21:24 ID:YtgvOVKx(1) AAS
>>832 ruby
外部ﾘﾝｸ:ideone.com

>>832 ocaml
外部ﾘﾝｸ:ideone.com

845: 2019/10/24(木)23:20 ID:33G0+sWg(1) AAS
>>838
さすがJﾆｷ、さっぱりわからん…

846: 2019/10/25(金)00:26 ID:GgLEjF73(1/3) AAS
アプリ作成したいのですが、素人なのでどなたか相談に乗ってください。

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

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

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

847: 2019/10/25(金)00:32 ID:D+sRag4r(1) AAS
プログラム部分はたいしたことがないとおもうのだが
装置、ハードのほうが大事だろ
そもそもプログラムもハード依存するかもしれないし
特に既成品なら

848(2): 2019/10/25(金)00:48 ID:GgLEjF73(2/3) AAS
ありがとうございます。
ハードウェアの知識が全く無いため困っています。
飼い猫のために水の量を管理してあげたいんです。

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

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

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

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

850: 2019/10/25(金)04:08 ID:rztx2iSz(1) AAS
>>848
適切なスレに移動した方がいいぞ

851: 2019/10/25(金)09:43 ID:C/odSq3f(1/2) AAS
センサーの話題などは、Linux 板のラズパイのスレで聞けば？

852: 2019/10/25(金)09:56 ID:VVjeWd6A(1) AAS
>>848
適当なIoTの計り買えば解決
実装はCだろうな

上下前次 1-新書関写板覧索設栞歴

あと 150 ﾚｽあります
ｽﾚ情報赤ﾚｽ抽出画像ﾚｽ抽出歴の未読ｽﾚ AAｻﾑﾈｲﾙｱﾎﾞﾝOFF

ぬこの手ぬこTOP 0.039s