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

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

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

803(1): ◆QZaw55cn4c 2019/07/13(土)19:58 ID:KfP9prYE(4/4) AAS
>>802
ご意見ありがとうございます、参考にいたします

804: 2019/07/13(土)20:04 ID:azuEfQ5t(1) AAS
>>803
前に何度も不要だ、邪魔だと指摘されたはずだが一向に改めなかったのはなぜ？

805: 2019/07/13(土)22:03 ID:+XrRzYc0(1) AAS
コテハンだからだろ

806: 2019/07/13(土)22:53 ID:0DH1k/wL(1) AAS
本当にクズだよな。出す問題もゴミばかり。まるで使用済みティッシュ

807(9): 2019/07/14(日)08:46 ID:7ouziBbN(1) AAS
お題
ミニミニなパスカルの三角形を表示する

1
11
121
1331
14641

808: 2019/07/14(日)08:56 ID:hrWXJ2sa(1) AAS
11^0
11^1
11^2
11^3

809: 2019/07/14(日)10:31 ID:I+Q1ZQVX(1/2) AAS
>>807 Ruby

pascal = -> n {n > 0 ? [0, *pascal(n-1), 0].each_cons(2).map(&:sum) : [1]}

(0..9).map{|i| puts pascal[i].join(?\ )} # =>
1
1 1
1 2 1
1 3 3 1
1 4 6 4 1
1 5 10 10 5 1
1 6 15 20 15 6 1
省3

810: 2019/07/14(日)10:33 ID:I+Q1ZQVX(2/2) AAS
typo

pascal = -> n {n > 0 ? [0, *pascal[n - 1], 0].each_cons(2).map(&:sum) : [1]}

811: 2019/07/14(日)22:14 ID:xwqPe1DN(1/2) AAS
>>807 Perl5

for (1..5) {
　@a = (1, map{$a[$_] + $a[$_+1]} 0..$#a);
　print @a,"\n";
}

実行結果
$ perl 14_807.pl
1
11
121
省2

812: 2019/07/14(日)22:28 ID:niuQOGKU(1/2) AAS
>>807 python3
#!/usr/bin/python3
fractal_width = 19

xs = [1]
for i in range(1, fractal_width +1):
　　for x in xs:
　　　　print(x, "", end="") #xs sequence
　　print("")

　　xs.insert(0, 0)
　　xs.append(0)
省1

813: 2019/07/14(日)22:30 ID:niuQOGKU(2/2) AAS
1
1 1
1 2 1
1 3 3 1
1 4 6 4 1
1 5 10 10 5 1
1 6 15 20 15 6 1

結果はいいけどコードのほうが酷い
print(x, "", end... あたりが最悪

814: 2019/07/14(日)23:26 ID:xwqPe1DN(2/2) AAS
>>807 Perl5, 無名関数のtail recursion版

use feature qw'say current_sub';
sub {
　say @_;
　__SUB__->(1, (map{$_[$_-1] + $_[$_]} 1..$#_), 1) if 5 > @_;
}->(1);

実行結果
$ perl 14_807.pl
1
11
省4

815: 2019/07/14(日)23:34 ID:K5rloPX/(1) AAS
>>807 Squeak Smalltalk

| pascal grow |
pascal := OrderedCollection with: #(1).
grow := [pascal add: {1}, (pascal last overlappingPairsCollect: #+), {1}].
7 timesRepeat: grow.
(pascal collect: [:each | each joinSeparatedBy: ' ']) asStringWithCr

"=>'1
1 1
1 2 1
1 3 3 1
省4

816: 2019/07/15(月)00:44 ID:ZsG0DnWy(1) AAS
>>807
Java
外部ﾘﾝｸ:paiza.io

817: 2019/07/15(月)02:14 ID:C2jHumZF(1) AAS
時事通信は中立的でもっとも正確。朝日新聞は若干、旧民主党寄りの予想を出した。産経新聞は若干、自民党寄りの予想を出した。

それでもこの3つの分析には大差がない。東京選挙区はほぼ確定した。

当選者は自民党現職の丸川(台本がないと何を言うかわからないぶっとび女)、

自民党現職の武見(いつものハゲじじいもう5回シコシコ)、

公明党現職の山口公明党代表(誰もやりたがらない創価学会内の仕事を押し付けられているかわいそうな人)、
省6

818(1): 2019/07/15(月)09:18 ID:lV5+33Om(1/2) AAS
お題
年金AI化をする

設計を考えよ

どの部分を人間にしてどの部分を機械にするか
っていうだけだと思うけど

すごい初級プログラマーでも作れちゃうほど簡単じゃねと気になった
あまりにかんたんで民間年金ですでにありそうだが

819: 2019/07/15(月)10:34 ID:m4zcTbyh(1) AAS
>>818 Ruby
nenkin = 'A PENSION'
puts nenkin.split.tap{|o| o.last.replace(o.last[x.size >> o.first.size])}.join
# => AI

820: 2019/07/15(月)10:43 ID:lV5+33Om(2/2) AAS
入金
銀行データ紹介
入金人数と金額確認　←入力　新規入力者の確認　人力目視

↓

出金人数と出勤額

みたいなかんじ

821: 2019/07/16(火)02:32 ID:awioItM7(1) AAS
>>807
Kotlin
外部ﾘﾝｸ:paiza.io
うっかり普通にフォーマットして3角に出るようにしてしまった。もっと簡単に出しても良かったんだな。

822: 2019/07/17(水)18:49 ID:rBzTe21k(1) AAS
>>807 R
cat(11^(0:4),sep="\n")

823: 2019/07/17(水)19:12 ID:O6R1hJD8(1) AAS
>>807 Pharo Smalltalk

(11 ** (0 to: 4)) rounded asStringWithCr

"=> '1
11
121
1331
14641' "

824(4): 蟻人間 ◆T6xkBnTXz7B0 2019/07/17(水)21:08 ID:zgAvRboO(1/2) AAS
お題：y=(1-x)(1+x)のx=-1〜1の区間を数値積分せよ。

825(1): 蟻人間 ◆T6xkBnTXz7B0 2019/07/17(水)21:47 ID:zgAvRboO(2/2) AAS
ε＝0.01くらいの台形公式でいいや。

826(1): 2019/07/17(水)21:48 ID:RL7WDafS(1) AAS
>>824
Integrate[(1-x)(1+x), {x, -1, 1}]
4/3

wolframcloud
ちょっと感動

827(1): 2019/07/17(水)22:23 ID:FVhP9md/(1/2) AAS
>>824 Ruby

require 'polynomial'
require 'polynomial/calculus'

expr = Polynomial.new(1, -1) * Polynomial(1, 1)
puts expr.integrate(-1..1)
# => (4/3)

828(1): 2019/07/17(水)23:18 ID:FVhP9md/(2/2) AAS
typo

> expr = Polynomial.new(1, -1) * Polynomial.new(1, 1)

829(1): 2019/07/17(水)23:37 ID:t/SxdWuN(1) AAS
>>824 Squeak Smalltalk

(#(1 -1) collect: [:x | {0. 1. 0. -1/3} polynomialEval: x]) reduce: #-

"=> (4/3) "

830(1): 2019/07/18(木)00:59 ID:A0LALR8k(1) AAS
>>829
small talkは何でもあんのな
毎回驚かされるわ　ありがとな

831: 2019/07/18(木)01:42 ID:4Fot9DWw(1) AAS
>>824 >>825 Perl5

#(x-1)(x+1)⇒1-x^2
#∫(1-x^2)⇒x-(x^3/3)
# [x-(x^3/3)] {-1, 1} ⇒ -1-(-1/3) + 1-(1/3)
# ⇒1 -1/3 - (-1+1/3) ⇒ 2 - 2/3 ⇒ 4/3
# 暗算でも定積分値を求めることはできるが、代わりに
# 幅0.01の台形法による数値計算で解を計算すると…
use List::Util sum;
$s = sum map{.01*(1-($_/100)**2)} -99..99;
print "$s\n";
省3

832: 2019/07/18(木)07:25 ID:r8faaY2+(1) AAS
>>830
せっかく驚いてくれているのに水を差すようで恐縮なのだけど
誤解があるといけないので念のため補足しておきますと
これは>>826-828みたいに数式処理をしているわけではなく
定積分の筆算を式にしただけ（つまり 1-x^2 の積分である
x-(1/3)x^3 に 1 を代入したときの値から -1 を代入した値を引いただけ）です

もとより #(a b c d) polynomialEval: x "=> a*x^0 + b*x^1 + c*x^2 + ..." みたいな機能が
組み込みで用意されている点では、
こういうとき式を書かずに済んで便利ではありますが^^;

833(1): 蟻人間 ◆T6xkBnTXz7B0 2019/07/18(木)12:47 ID:OgRfjymX(1/2) AAS
AA省

834(1): 蟻人間 ◆T6xkBnTXz7B0 2019/07/18(木)12:58 ID:OgRfjymX(2/2) AAS
(出力例)
プレーヤー１が先攻です。
プレーヤー１は何番に置きますか？ 1
プレーヤー２は何番に置きますか？ 5
...
プレーヤー２の勝ち。

Ｏ｜２｜３
ー＋ー＋ー
４｜Ｘ｜６
ー＋ー＋ー
省1

835(1): 2019/07/18(木)22:59 ID:e7HmHit7(1) AAS
マルバツゲームに便乗して…

お題：
3×3のマルバツゲームで両者がランダムな手を打つとき
先手の勝率、後手の勝率をそれぞれ求めよ。

836(13): 2019/07/18(木)23:07 ID:xdHI+pcE(1) AAS
今、こういうお題を考えています

Ruby などの遅い言語でも解けるように、
盤面の大きさを、9*9 〜 13*13 ぐらいで考えていますが、どうでしょうか？

1. 開始点S(座標、0行0列)から終了点E までの、最小コストを求める。
2. S, E 双方から、E, S へ目指す場合に、最小コストで出会う座標と、その時のコストを求める

1ターンで、縦横1つ隣へ移動できる。
同じマスは、1回しか通らない。
数字が各マスへの移動コストで、_ は、単なる目印で無関係です

S2953_9413
71546_7988
省3

837: 2019/07/19(金)00:02 ID:52u6jutr(1) AAS
問題側が手加減してあげないと解けないポンコツ言語なんて放っとけば？

838(2): 836 2019/07/19(金)00:20 ID:hngv4enD(1) AAS
>>836
ルールを修正

1. 開始点S(座標、0行0列)から終了点E までの、最小コストを求める。
2. S, E 双方から、双方が出会うように移動する時、最小コストで出会う座標と、その時のコストを求める。
この時の最小コストは、双方のコストを足したものです

1ターンで、縦横1つ隣のマスへ、必ず移動する。
自分が通ったマスは、1回しか通らないが、相手が通ったマスは、通れます

数字が各マスへの移動コストで、_ は、単なる目印で無関係です

この2は、かなり難しいのかな？
最小コストが求まるのかな？
省1

839: 2019/07/19(金)00:31 ID:uE+iP71G(1) AAS
>>838
迷惑だからちゃんと整理して解ける問題か確認してから書き込め。説明も下手すぎるからちゃんと推敲しろ。

840: 2019/07/19(金)00:57 ID:KQ8wFSu5(1) AAS
だから自分で一度書いて動くのを確認してから出題しろと何度言えば…

841(1): 2019/07/19(金)02:15 ID:ApXEphk2(1/4) AAS
>>834
common lisp
外部ﾘﾝｸ:pastebin.com

> (OX-game)
123/456/789 to write OX
|789|
|456|
|123|

| |
| |
省17

842: 2019/07/19(金)02:16 ID:ApXEphk2(2/4) AAS
続き

player-2 writing X to ...
2
|X O|
|OOX|
|XXO|
player-1 writing O to ...
8
it's draw! finish a game without either one winning

843: 2019/07/19(金)02:19 ID:ApXEphk2(3/4) AAS
2chのレイアウト変更を忘れてた
こうなる
画像ﾘﾝｸ[jpg]:i.imgur.com

844: 2019/07/19(金)02:28 ID:ApXEphk2(4/4) AAS
深夜だからか貼り付けミスってた
>>841
外部ﾘﾝｸ:pastebin.com

845: 2019/07/19(金)08:59 ID:MqWaI42B(1) AAS
「忘れてた」
「ミスってた」
「深夜だから」

846: 2019/07/20(土)00:17 ID:fiB1nngo(1/3) AAS
>>836
最小重み経路問題かな？
軽く書いてみたけど、最短経路問題の3倍位難しい。
出直してくるわ。

847: 2019/07/20(土)02:47 ID:fiB1nngo(2/3) AAS
>>836
外部ﾘﾝｸ:ideone.com
C++。出直してきたよ。
2パスになってる。
一回目は適当に上限値を取りに行って、二回目で本気探索する感じ。

851: ◆QZaw55cn4c 2019/07/20(土)08:19 ID:jbjCUWIF(4/5) AAS
>>833 : 841
>>835 :
>>836 : 847

852(1): 2019/07/20(土)10:54 ID:ilSI1heG(1) AAS
迷惑だからやめろ
やるなら言語別集計とか少しでも付加価値を入れろ

853(1): 2019/07/20(土)11:03 ID:eNhk7IpQ(1) AAS
留数定理も知らないくせにしゃしゃりでてんじゃねえぞクソコテ白痴クロッチロット野郎が

854(2): ◆QZaw55cn4c 2019/07/20(土)14:28 ID:jbjCUWIF(5/5) AAS
>>852
＞言語別集計
次スレで採用しようと思います、このスレでよく使われる言語とその程度を棒グラフ的に認識したくなりました

855: 2019/07/20(土)14:50 ID:OIy5RkDH(1/2) AAS
>>854
本当に申し訳ないんですがここに貼るないでもらっていいですか

856: 2019/07/20(土)14:51 ID:OIy5RkDH(2/2) AAS
認識したいのならご自由にでも迷惑だからここには貼らないで

858: 2019/07/20(土)15:23 ID:QHhW8HGw(1) AAS
>>854
自分のPC上で好きなだけやれよ

859(2): 2019/07/20(土)18:06 ID:k4+mr7b7(1/2) AAS
お題：　できるだけ少ない回数で1から1000の数を判定しろ
例
入力：　775
出力　n==755

入力：　2,4, ...., 1000
出力　n%2

入力：　3,4,5,6, 10
出力：　n-3<=3 ||n==10

860: 2019/07/20(土)18:27 ID:fiB1nngo(3/3) AAS
あっ。あっ。頭が！爆発！！しちゃうーーーーーーーー！！！

861(1): 2019/07/20(土)19:19 ID:eeWyC8j7(1) AAS
>>859
> 入力：　2,4, ...., 1000
> 出力　n%2
これ間違えてね？

862: 2019/07/20(土)19:25 ID:c0ewdrdO(1) AAS
桃白白改めミスターポポ改めピラフ改めピッコロさんは毎回適当に出題してるからね

863: 2019/07/20(土)19:58 ID:k4+mr7b7(2/2) AAS
>>861
うん

864: 2019/07/20(土)21:47 ID:riEgRod9(1/2) AAS
>>859
xy座標で y = xのn-1次以下の式が
n個の点があたえられると導けるから
その出力の一意性に疑問がある

865(2): 2019/07/20(土)23:23 ID:ge7gFbNK(1) AAS
お題
正の整数nと、正の整数のリスト2つ
a_1, ..., a_k
b_1, ..., b_k
が与えられる。
これに対して以下の操作を繰り返す。

操作: n*a_i/b_iが整数になる最初のa_i/b_iをnに掛ける

この操作ができなくなる時が来るかどうか判定してください。

866(1): 2019/07/20(土)23:44 ID:riEgRod9(2/2) AAS
>>865
lisp
(loop for a in '(1 4 3 4 5 6) for b in '(7 8 9 10 11 12) with n = 14 when (integerp (* (/ a b) n)) do (return (format t "a:~a b:~a" a b)) finally (princ "not found"))
a:1 b:7

(loop for a in '(1 4 3 4 5 6) for b in '(7 8 9 10 11 12) with n = 13 when (integerp (* (/ a b) n)) do (return (format t "a:~a b:~a" a b)) finally (princ "not found"))
not found

867(1): 2019/07/21(日)00:23 ID:Bd+iRrer(1) AAS
>>853
頭のおかしいガイジのくせに数学を語ってんじゃねぇよ
ぶっ殺すぞガイジ
実関数もわかってねぇくせに複素関数を語ってんじゃねぇよ
おめえの腸を掘り出して排水溝に捨てるぞ

868(1): 2019/07/21(日)00:27 ID:RHDfdbdw(1) AAS
>>866
説明が足りなかった
iを見つけたら
n = n*a_i/b_i
として同じことを繰り返す

869: 2019/07/21(日)02:19 ID:m/GaQUZU(1/2) AAS
>>868
外部ﾘﾝｸ:pastebin.com
a:1 b:7 n:14
a:4 b:8 n:2
n finally 1

871: 2019/07/21(日)08:20 ID:o8Rw7GgG(1) AAS
◆QZaw55cn4c のまとめ（と称した自己満足）は本当に迷惑だからやめてほしい

872: 2019/07/21(日)09:52 ID:z5eK/QET(1) AAS
>>867
コテハン付け忘れてんぞｗ

874: 2019/07/21(日)12:22 ID:JSHlhL4U(1) AAS
とにかく迷惑だからやめろ

878: 2019/07/21(日)14:00 ID:LwmwcwKU(1) AAS
なんで手間暇かけて他人の嫌がる余計なことするのかね
ろくな回答書けないなら黙ってROMってろって思うわ

879: 2019/07/21(日)14:03 ID:DBsZJ8x+(1) AAS
これだから朝鮮人は嫌われるんだよ

880: 2019/07/21(日)14:51 ID:5KK3hTpc(1/3) AAS
外部ﾘﾝｸ:ideone.com
質問だけど、>>836 のループ展開版書いてたんだけど、
終了条件わからないんだけど、どうしたらいいと思う？

881: 2019/07/21(日)15:57 ID:5KK3hTpc(2/3) AAS
外部ﾘﾝｸ:ideone.com
>>836
C++。できた。終了位置がレンジ外だったりした。
ただ、いじりすぎてロックインしてないか心配だ。

概要としては、最小重み経路問題の非再帰関数バージョン。のはず。

882: 2019/07/21(日)16:07 ID:5KK3hTpc(3/3) AAS
なんか降ってきたわ。ありがたやー。

883: 2019/07/21(日)21:50 ID:WILkXhL9(1) AAS
>>865
問題かよくわからない。a_i/b_iをnに掛けた結果をどうするのか？何かに代入するのか？

884: 2019/07/21(日)22:55 ID:tHXql6vE(1) AAS
n*a_i/b_iが整数になったらnにそれを代入して、もう一度頭から繰り返すんじゃろ
で、無限にその操作を繰り返せるのか途中で終わるのかを判定する

887: 2019/07/22(月)05:57 ID:R4+31Tcv(1) AAS
QZとか言う馬鹿は自分がやっている事がことごとく嫌がらせになっているというのにも
全く気づいてないんだろうなあ

888: 2019/07/22(月)10:03 ID:xuhhP9lh(1) AAS
おまけにこの糞コテは数学もまともにできない低能

889(2): [age] 2019/07/22(月)11:18 ID:wZJ8iqbX(1) AAS
良かれと思ってやったのに迷惑だと言われる
千羽づるみたいだなって思いました

890: 2019/07/22(月)11:35 ID:sp7+c3NQ(1) AAS
>>889
千羽鶴なら日本の文化だからまだいいよ
QZのは明らかに異国の匂いがする

891: 2019/07/22(月)11:38 ID:RNJMLfCg(1) AAS
>>889
千羽鶴なら独善ではあっても善意のつもりだというのは分かるが、QZのは他人のためでなく自分がそうしたいというだけの理由だから、より嫌われる

892(2): 836 2019/07/22(月)14:11 ID:GAEqWBnq(1) AAS
お題・ルールは、
>>838
のままで良いです

マスは、11 * 11 で、やってみましょう！

空行・_ は、単に見やすくしただけなので、無視してください

S2953_94137_3
71546_79881_4
83411_29465_2
23716_54268_4
47385_73638_9
省6

893: 2019/07/22(月)17:05 ID:mrS8zraI(1/4) AAS
>>892
外部ﾘﾝｸ:ideone.com
C++。あってるかはしらねーが、初期値を与えなおしてみたよ。

894: 2019/07/22(月)17:08 ID:mrS8zraI(2/4) AAS
>>892
問い２は道順取れてるので頭と尻尾から配列なめてけば一応、かち合う場所が取れるよ。

895: 2019/07/22(月)17:53 ID:mrS8zraI(3/4) AAS
外部ﾘﾝｸ:ideone.com
C++。バグがあったので直した。
最初の数値が固定値だったので、マスの値に変更した。

896(2): 2019/07/22(月)19:52 ID:27NBQOQ4(1) AAS
S66
996
19E

超単純化した↑の場合
問1の場合はコスト18
問2の場合は座標(0,2) コスト19
で良いんだよな？

897(1): 2019/07/22(月)20:21 ID:mrS8zraI(4/4) AAS
ホンダがらったフンだがらったヘンだがらった！フンフン！！

いでよ、主催者！！！

898(1): 2019/07/22(月)20:27 ID:vmYUDJ0J(1) AAS
>>897
ここには特に主催している人は居ないし、そもそも組織になっていない。各個人か勝手にお題を出して解きたい人が解いてるだけ。
おそらく常連は居るだろうが基本的に匿名で誰が誰だかよくわからず、人か入れ替わっていてもわからない。

899(1): 2019/07/22(月)22:09 ID:zz8dj3fo(1) AAS
問１ってダイクストラ法まんまでいいの？

900: 836 2019/07/23(火)09:29 ID:5GIBUFQK(1/4) AAS
問2 について考えてみた

最短ターンでは、10ターンで、双方が出会うけど、
その時の双方を足したコストが、最小とは限らない！

だから迂回路の場合、つまり、11ターン以上で出会うマスも、すべて考慮して、
その中から最小コストを選ぶ必要がある

例えば、あるマスが、S・E 双方から12ターンなど

その際、双方からのターン数が異なる場合は、関係ない。
例えば、あるマスが、Sから11ターンで、Eから13ターンなど
省3

901(1): 836 2019/07/23(火)09:37 ID:5GIBUFQK(2/4) AAS
>>896
問1 は、6 + 6 + 6 = 18

問2 は、左下の1 の所で出会うのなら、
S から、9 + 1 = 10
E から、9 + 1 = 10
で、合計20

出会うマスのコストを2回足しているけど、これで良いか

902: 2019/07/23(火)13:22 ID:QB0eaOex(1) AAS
>>898
あ、それはわかってるよ。
問題の主催者(>>836)を呼びたかった。
やってきたので召喚成功だ。

ふふ。

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

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

ぬこの手ぬこTOP 0.083s