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

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

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

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だろうな

853: 2019/10/25(金)11:49 ID:C/odSq3f(2/2) AAS
>>832
Ruby で、

input_ary = [ 6, 5, 4, 3, 2, 1 ]
odd_ary = [ ]; index_ary = [ ]

input_ary.each_with_index do |num, idx|
if num.odd?
odd_ary.push num
index_ary.push idx
end
end
省4

854: 2019/10/25(金)12:30 ID:GgLEjF73(3/3) AAS
>> 849 , 850, 851, 852
情報ありがとうございます。

スレチだったみたいで申し訳ないです。
センサーありきなので、Raspiは使わないと思うのですが
板覗いてみます。

855: 2019/10/25(金)14:59 ID:ylwTeYJx(1) AAS
>>832
外部ﾘﾝｸ:ideone.com
C++。クイックソート書けないので謎のソートでお茶を濁す。

856(2): 2019/10/26(土)01:38 ID:o5w2ifn2(1) AAS
お題: 端末上で(´・ω・`)を端から端まで移動し、往復させよ
ただし、端についたら(´・ω・`)は増幅し(´・ω・`)(´・ω・`)になる
同様に再び端についたら(´・ω・`)(´・ω・`)は増幅し(´・ω・`)(´・ω・`)(´・ω・`)になる
左右に移動できなくなる又ははみ出す場合は逆に(´・ω・`)を減らしていき、最終的に(´・ω・`)を消滅させよ

857: 2019/10/26(土)06:24 ID:2eoY+VbT(1) AAS
お題: Unicode 1 文字を与えると East Asian Width に従った属性値を返す関数を作成し、その関数に対して任意の文字を与えてテストするプログラムを作れ。
返す属性値の F, H, W, Na, A, N は文字列でも良いし対応する数値でも良いし enum のような(またはCなら #define されている)名前でも良い。
East Asian Width の一覧は下記URLのテキストの内容を使用する。これを最初に読んで初期化するように作っても良いし、最初からプログラムに適した形式で埋め込まれていても良い。
外部ﾘﾝｸ[txt]:www.unicode.org
参考: 東アジアの文字幅
外部ﾘﾝｸ:ja.wikipedia.org

858(12): 2019/10/26(土)07:11 ID:I0XoRu/q(1/2) AAS
お題：>>832 に「偶数要素は2で割って降順ソート」という要件を追加してください
すでに回答済みの場合は最少限の変更でのご対応で腕（もしくは言語のポテンシャル）を見せてください

859(5): 2019/10/26(土)07:27 ID:I0XoRu/q(2/2) AAS
>>858
入力例：[0, 9, 8, 4, 6, 5, 1, 2, 7, 3]
出力例：[4, 1, 3, 2, 1, 3, 5, 0, 7, 9]

861: 2019/10/26(土)11:03 ID:/Rj6VhaF(2/2) AAS
>>860
×835 → ○>>858

862: 2019/10/26(土)11:45 ID:4aRwI3hq(1) AAS
>>859 Perl5、最小限でか…

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

実行結果
省2

863: 2019/10/26(土)12:12 ID:Zgyrlv2c(1) AAS
>>832,858
@Mathematica

外部ﾘﾝｸ:ideone.com

864: 2019/10/26(土)12:22 ID:GFiKSQ9h(1) AAS
AA省

865: 2019/10/26(土)13:49 ID:f6JeNzn+(1) AAS
Mathematica12

定義
f1[a_]:=SubsetMap[Sort,a,Position[a,_?OddQ,1]]
f2[a_]:=SubsetMap[ReverseSort[#]/2&,f1[a],Position[a,_?EvenQ,1]]

実行結果
f1[{6,5,4,3,2,1}]
{6,1,4,3,2,5}

f2[{0,9,8,4,6,5,1,2,7,3}]
{4,1,3,2,1,3,5,0,7,9}

866: 2019/10/26(土)17:08 ID:kYj2w42l(1) AAS
>>832 >>858 Ruby

f = -> ary {
　　e, o = ary.partition(&:even?).map(&:sort)
　　ary.map{|v| v.even? ? v : o.shift}
}
g = -> ary {
　　e, o = ary.partition(&:even?).map(&:sort)
　　ary.map{|v| v.even? ? e.pop >> 1 : o.shift}
}

p f[[6, 5, 4, 3, 2, 1]] # => [6, 1, 4, 3, 2, 5]
省1

867: 2019/10/26(土)20:25 ID:XXeS+kK0(1) AAS
>>858 c
外部ﾘﾝｸ:ideone.com

868: 2019/10/26(土)22:02 ID:+YWUVQNg(1/2) AAS
>>856
外部ﾘﾝｸ:ideone.com
C++。なんか表示位置ずれるなーと思ったら、「()」これ半角じゃねーか。
そのせいで、プログラムが持ってる長さと表示の長さが合わなかった。

しかし、汚くなった無し、思ったより時間がかかってしまった。

869: 2019/10/26(土)22:16 ID:FFSD3o8O(1) AAS
>>858 octave
外部ﾘﾝｸ:ideone.com

>>858 ruby
外部ﾘﾝｸ:ideone.com

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

870: 2019/10/26(土)22:21 ID:+YWUVQNg(2/2) AAS
>>858
外部ﾘﾝｸ:ideone.com
C++。前のヤツに関数足した。
オーダーが倍になったが改修だとこんなもんだ。

871(1): 蟻人間 ◆T6xkBnTXz7B0 [age] 2019/10/26(土)22:38 ID:Q5f3+aYX(1) AAS
お題: あるフォルダ(例えばC:\Windows)についてフォルダの階層構造を木構造(tree)を表すテキストとして出力せよ。

インデントでもいい。罫線を使ってもいい。

872: 2019/10/26(土)22:38 ID:T/HAOzs9(1) AAS
tree

873: 2019/10/26(土)22:46 ID:a/Ne+y1n(1) AAS
完

874: 蟻人間 ◆T6xkBnTXz7B0 [age] 2019/10/26(土)23:33 ID:0HLEEd3+(1) AAS
熟

875: 2019/10/26(土)23:36 ID:Up+ppHZL(1) AAS
ト

876: 2019/10/26(土)23:56 ID:mT+r0MIT(1) AAS
マ

877: 2019/10/27(日)01:42 ID:98GTxTrH(1) AAS
ホ

878: 2019/10/27(日)01:48 ID:hTxWtEZY(1) AAS
ー

879: 2019/10/27(日)02:14 ID:qZK0Jir5(1) AAS
ク

880: 2019/10/27(日)12:00 ID:czi1K5eV(1) AAS
>>858-859
PowerShell

$a = 0, 9, 8, 4, 6, 5, 1, 2, 7, 3
$b = 0, 0
$i = 0, 0
$odd = {$_ % 2}
$b[0] = @($a |? {!(&$odd)} |% {$_ / 2} | sort -descending)
$b[1] = @($a |? {&$odd} | sort)
$c = $a |% {$b[(&$odd)][$i[(&$odd)]++]}

"入力: [" + ($a -join ", ") + "]"
省1

881: 2019/10/27(日)21:46 ID:JAeIkS65(1) AAS
>>858 c
外部ﾘﾝｸ:ideone.com

882: 2019/10/28(月)14:33 ID:kjzN6NI8(1) AAS
>>858-859
Haxe で、

外部ﾘﾝｸ:try.haxe.org

883: 2019/10/28(月)21:54 ID:UPe4TNxT(1) AAS
AA省

884(1): 蟻人間 ◆T6xkBnTXz7B0 2019/10/28(月)22:20 ID:9dus/Ppg(1) AAS
Linuxにこんなコマンドあんのかよお？

外部ﾘﾝｸ[html]:www.adminweb.jp

885: 2019/10/28(月)22:33 ID:cHOU2eIF(1) AAS
AA省

886: [age] 2019/10/28(月)23:08 ID:F/Wh8ChL(1) AAS
>>884
100年前からあるよ

887: 2019/10/28(月)23:13 ID:uBs49FGp(1) AAS
色わけもされているのが良くあり、たいへん見やすい

888: 蟻人間 ◆T6xkBnTXz7B0 2019/10/29(火)01:01 ID:CdNgVa0z(1) AAS
お題: 平面(0, 0)-(100,100)上に点を100個、配置する。k-means法を用いて点の集合を3つのグループに分け、それらを図示せよ。

889: 2019/10/29(火)08:42 ID:CowX2GWO(1) AAS
>>858-859
Ruby で、

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

even_ary, odd_ary = input_ary.partition( &:even? ) # 偶数・奇数配列

odd_ary.sort! # 奇数要素をソート

# 偶数要素は、2で割って降順ソート
even_ary.map! { |num| num / 2 }
even_ary.sort!
even_ary.reverse!
省1

890: 2019/10/29(火)11:11 ID:8fHMSau6(1) AAS
やっぱり初心者にはまず黒い画面のCUIからやらせたほうがいいな

891: 2019/10/29(火)18:19 ID:BWleRN1J(1) AAS
設定で白い画面にすると心が和らぐかも知れない

892: 2019/10/29(火)18:42 ID:plxF2L4V(1) AAS
目がクラッシュ

893(2): 2019/10/29(火)21:04 ID:OodB9NB8(1) AAS
日本標準時2100に起動し、Web上から文字列「惣流・アスカ・ラングレー」を含む.jpgファイルもしくは.jpegあるいは.pingファイルをC:秘蔵に1GB分保存するコードを教えてください

894: 2019/10/29(火)21:19 ID:zdS42c06(1) AAS
式波だろオッサン

895: 2019/10/29(火)22:05 ID:xXVEd4hK(1) AAS
>>893
0 21 * * * sudo less BigWeb | grep アスラン・ザラ > home/C/H_file limit 1GB

896: 2019/10/29(火)22:18 ID:VtVeF5OO(1) AAS
>>893
firebird -t0:21:0:0 --everyday --query 惣流・アスカ・ラングレー --suffix "jpg|jpeg|ping" --dst "C:\secret" --limit 1GB

897: 2019/10/30(水)00:58 ID:VQ6oDJg7(1) AAS
pingファイルわらた

898: 2019/10/30(水)04:42 ID:LML0ucqT(1) AAS
アイが隠っている

899(5): 2019/11/01(金)22:31 ID:5BPqTvCN(1) AAS
お題: 3^3^3^... のような反復指数を10の反復指数に近似するプログラムを作成しなさい。
入力されるそれぞれの指数は1より大きい実数とします。
計算後の最も右の指数xは 1<x≦10 としてください。

例:
3^3^3^3^3^3 = 10^10^10^10^10^1.099
2.718^2.718^2.718^2.718^7.705 = 10^10^10^10^2.983
(5.0e+50)^(6.0e+60)^(7.0e+70)^(8.0e+80)^(9.0e+90) = 10^10^10^10^10^10^1.968
1.1^1.1^1.1^1.1^1.1 = 1.112

900: 2019/11/01(金)23:58 ID:Yq8XY12s(1) AAS
a^n = b^x を解く問題でいいじゃん

901(1): 蟻人間 ◆T6xkBnTXz7B0 2019/11/02(土)13:25 ID:OyXmLdGY(1) AAS
>>899
演算子^は、左結合、それとも右結合？

902: 2019/11/02(土)14:21 ID:ZDjpW1U6(1) AAS
>>901
右結合です
a^b^c => a^(b^c)
無論 ^はべき乗の演算子です。

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

あと 100 ﾚｽあります
ｽﾚ情報赤ﾚｽ抽出画像ﾚｽ抽出歴の未読ｽﾚ AAｻﾑﾈｲﾙ

ぬこの手ぬこTOP 0.038s