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

**デフォルトの名無しさん** · 2019/05/18(土) 17:33:29.45

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

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

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

※前スレ
https://mevius.5ch.net/test/read.cgi/tech/1549160513/

**デフォルトの名無しさん** · 2019/07/09(火) 09:28:56.09

>>772
完全にアホ

**デフォルトの名無しさん** · 2019/07/09(火) 11:02:44.61

>>781
和なんだから最適化利かすならyは406からx引けよｗ

**デフォルトの名無しさん** · 2019/07/09(火) 11:18:51.73

>>783
たしかに
全然見えてなかったｗ

◆QZaw55cn4c · 2019/07/09(火) 18:57:01.98

>>782
煽るだけではねえ…時間や長さを J に統一するために自然単位系がどう使えるのか書けるのですか？

**デフォルトの名無しさん** · 2019/07/09(火) 19:43:25.84

壮大な話やなぁ。
その時間系に所属する人の仕事量を全部計算するんかいな？？
アホだからこんなこと思うわ。

**デフォルトの名無しさん** · 2019/07/09(火) 21:57:24.41

私は頭は良いのだが知識がないため君らが何を言っているのかがよくわからない。

**778** · 2019/07/12(金) 14:53:22.97

>>778
Ruby で、

require 'prime'

sum = 406 # 和
lcm = 2_660 # 最小公倍数。least common multiple

# 最大公約数。greatest common divisor
gcd = sum.gcd( lcm ) # 14

# 最大公約数で割ったもの
sum_2 = sum / gcd # 29
lcm_2 = lcm / gcd # 190

# 半分(1～15)まで、ループする。ary は、10
ary = ( 1..( sum_2 + 1 ) / 2 ).each.select {
|num| num * ( sum_2 - num ) == lcm_2 }

# 14 * 10 = 140, 14 * 19 = 266
p gcd * ary.first, gcd * ( sum_2 - ary.first )

**デフォルトの名無しさん** · 2019/07/12(金) 17:09:23.04

お題、聖光学院中学校入試問題

1～10 の10枚のカードの内、4枚を取り出して、a～d に入れて、
下の式を満たす置き方は、何通りあるか？

( a + b ) * ( c + d ) = 100

答え、48通り

**デフォルトの名無しさん** · 2019/07/12(金) 17:26:31.50

>>789
C++.
総当たりでも解けるくらいの分量だわ～～。

https://ideone.com/bXhZp3

**デフォルトの名無しさん** · 2019/07/12(金) 17:31:38.31

やってから気づいたけど、forで回したほうが早いな。
それと、ネクストコンビネーションがほしいのじゃー。

**デフォルトの名無しさん** · 2019/07/12(金) 17:38:32.51

>>778
sum := 406, lcm := 2660
c := gcd(sum, lcm)

(c * t_-, c * t_+) = (140, 266) where t_± = (sum ± √(sum^2 -4c * lcm)) / 2c = (29 ± 9) / 2

**デフォルトの名無しさん** · 2019/07/12(金) 17:45:09.77

>>789
n := 10
(n / 2 - 1)_P_2 * 2^2 = 4_P_2 * 4 = 48

**デフォルトの名無しさん** · 2019/07/12(金) 17:56:38.95

>>778

http://coliru.stacked-crooked.com/a/b219d162366f5cd8
ワンドボックス先生がシェアを許してくれないので、適当に見繕ってきた

**デフォルトの名無しさん** · 2019/07/12(金) 19:41:17.85

>>793
なるほど

**デフォルトの名無しさん** · 2019/07/12(金) 20:06:13.56

>>789
4P4 = 12 がなかったので暗算埋め込みしてしまった
(loop with i = 0 for a from 1 to 10 do (loop for b from (1+ a) to 10 do (loop for c from (1+ b) to 10 do (loop for d from (1+ c) to 10 when (eq 100 (+ (* a b) (* c d))) do (incf i)))) finally (print (* 12 i)))
48

**デフォルトの名無しさん** · 2019/07/13(土) 02:35:29.76

>>569
遅レスだが

innerHTML はヤメロ
appendChild にしとけ…今回のケースでは問題にならないっちゃならないが…

◆QZaw55cn4c · 2019/07/13(土) 16:47:09.19

>>9 : 15 34 35 79
>>11=>>575 : 48 (78) 138-139 (140) 142 146 151 154
>>19 :
>>50, https://mevius.5ch.net/test/read.cgi/tech/1549160513/920 : 4 85 89
https://mevius.5ch.net/test/read.cgi/tech/1549160513/988 == >>164 : 59 61 167 169 189 192 201 202
>>90 : 95 96
>>99 :
>>200 : 214 219
>>215 : 227
>>220 : 232 240 248 256 268
>>235 : 236 237 238 239 247 249 259 342 353
>>320 : 321 323 327 330 340
>>322 : 325 328 329 331 332 339 341 358 359

◆QZaw55cn4c · 2019/07/13(土) 16:47:24.66

>>362 : 367 369 370 371 374 379 380 382 414
>>368 : 390
>>388 : 487 (488) 553 559
>>400 : 401
>>408 :
>>417 : 418 419 421 426 432 433 436 438 442 446 451 452 456 471 474 480 482 489 492 495 498 528 530 540
>>479 :
>>555 : 556 558 564 565
>>557 : 560 562 568 569
>>570 : 574 577
>>573 : 604 622
>>600 : 605 607 611 613 627 691
>>615,626 :
>>632 : 637 640 645 649 650 687 689-690

◆QZaw55cn4c · 2019/07/13(土) 16:47:39.98

>>651 : 654 657 662 679 682
>>655 :
>>661 :
>>683 : 685
>>695,704,716,721 : 696 697 701 703 711 713 714 715 718 722 723 724 727 740-741
>>708 : 714
>>717 :
>>752 :
>>753 : (760)
>>767 : 775
>>778 : 779 788 (792) 794
>>789 : 790 (793)

**デフォルトの名無しさん** · 2019/07/13(土) 17:08:18.94

まただよ(笑)

**デフォルトの名無しさん** · 2019/07/13(土) 18:59:07.37

回答は容易に手繰れるのではっきり言って無用だし迷惑です
どうしてもまとめたいなら
例えば、どんな言語でどのお題に回答しているか整理したものとか付加価値を付けるべきでしょう

◆QZaw55cn4c · 2019/07/13(土) 19:58:46.31

>>802
ご意見ありがとうございます、参考にいたします

**デフォルトの名無しさん** · 2019/07/13(土) 20:04:23.90

>>803
前に何度も不要だ、邪魔だと指摘されたはずだが一向に改めなかったのはなぜ？

**デフォルトの名無しさん** · 2019/07/13(土) 22:03:31.87

コテハンだからだろ

**デフォルトの名無しさん** · 2019/07/13(土) 22:53:32.95

本当にクズだよな。出す問題もゴミばかり。まるで使用済みティッシュ

**デフォルトの名無しさん** · 2019/07/14(日) 08:46:45.28

お題
ミニミニなパスカルの三角形を表示する

1
11
121
1331
14641

**デフォルトの名無しさん** · 2019/07/14(日) 08:56:51.66

11^0
11^1
11^2
11^3

**デフォルトの名無しさん** · 2019/07/14(日) 10:31:51.37

>>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
1 7 21 35 35 21 7 1
1 8 28 56 70 56 28 8 1
1 9 36 84 126 126 84 36 9 1

**デフォルトの名無しさん** · 2019/07/14(日) 10:33:20.18

typo

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

**デフォルトの名無しさん** · 2019/07/14(日) 22:14:12.29

>>807 Perl5

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

実行結果
$ perl 14_807.pl
1
11
121
1331
14641

**デフォルトの名無しさん** · 2019/07/14(日) 22:28:38.27

>>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)
　　xs = [ (xs[i] + xs[i +1]) for i in range(len(xs) -1)]

**デフォルトの名無しさん** · 2019/07/14(日) 22:30:14.85

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... あたりが最悪

**デフォルトの名無しさん** · 2019/07/14(日) 23:26:39.88

>>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
121
1331
14641

※ Y-combinator版はﾏﾝﾄﾞｸせーので(ry

**デフォルトの名無しさん** · 2019/07/14(日) 23:34:52.64

>>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
1 4 6 4 1
1 5 10 10 5 1
1 6 15 20 15 6 1
1 7 21 35 35 21 7 1' "

**デフォルトの名無しさん** · 2019/07/15(月) 00:44:46.16

>>807
Java
https://paiza.io/projects/PooJUjiQ-5HxS4mEC6lCEA

**デフォルトの名無しさん** · 2019/07/15(月) 02:14:22.17

時事通信は中立的でもっとも正確。朝日新聞は若干、旧民主党寄りの予想を出した。産経新聞は若干、自民党寄りの予想を出した。

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

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

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

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

立憲民主党の塩村(東京で人気のいまでもオカズになるヌける熟女)、

共産党の吉良(共産党の女性アイドル、もう年だがまだまだエロオヤジに人気)、

立憲民主党の山岸(元朝日新聞政治部のメガネ、前頭ハゲ進行中)。

与党側3人当選、野党側3人当選で東京選挙区は与野党引き分け。

落選者で得票数第1位は維新の会の音喜多(東京都北区の区長選で落ちたのは悪口が書かれたせいだとして裁判で争っている最中のクズ、小池百合子都知事の元小間づかい、寄生できそうな政党につく虫)。

以上

**デフォルトの名無しさん** · 2019/07/15(月) 09:18:43.09

お題
年金AI化をする

設計を考えよ

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

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

**デフォルトの名無しさん** · 2019/07/15(月) 10:34:42.46

>>818 Ruby
nenkin = 'A PENSION'
puts nenkin.split.tap{|o| o.last.replace(o.last[x.size >> o.first.size])}.join
# => AI

**デフォルトの名無しさん** · 2019/07/15(月) 10:43:37.19

入金
銀行データ紹介
入金人数と金額確認　←入力　新規入力者の確認　人力目視

↓

出金人数と出勤額

みたいなかんじ

**デフォルトの名無しさん** · 2019/07/16(火) 02:32:24.14

>>807
Kotlin
https://paiza.io/projects/ed7oOf_rIHOgekOlUxGYSQ
うっかり普通にフォーマットして3角に出るようにしてしまった。もっと簡単に出しても良かったんだな。

**デフォルトの名無しさん** · 2019/07/17(水) 18:49:01.14

>>807 R
cat(11^(0:4),sep="\n")

**デフォルトの名無しさん** · 2019/07/17(水) 19:12:50.17

>>807 Pharo Smalltalk

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

"=> '1
11
121
1331
14641' "

**蟻人間** ◆T6xkBnTXz7B0 · 2019/07/17(水) 21:08:34.80

お題：y=(1-x)(1+x)のx=-1～1の区間を数値積分せよ。

**蟻人間** ◆T6xkBnTXz7B0 · 2019/07/17(水) 21:47:30.35

ε＝0.01くらいの台形公式でいいや。

**デフォルトの名無しさん** · 2019/07/17(水) 21:48:18.54

>>824
Integrate[(1-x)(1+x), {x, -1, 1}]
4/3

wolframcloud
ちょっと感動

**デフォルトの名無しさん** · 2019/07/17(水) 22:23:45.10

>>824 Ruby

require 'polynomial'
require 'polynomial/calculus'

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

**デフォルトの名無しさん** · 2019/07/17(水) 23:18:48.71

typo

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

**デフォルトの名無しさん** · 2019/07/17(水) 23:37:40.20

>>824 Squeak Smalltalk

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

"=> (4/3) "

**デフォルトの名無しさん** · 2019/07/18(木) 00:59:06.64

>>829
small talkは何でもあんのな
毎回驚かされるわ　ありがとな

**デフォルトの名無しさん** · 2019/07/18(木) 01:42:36.36

>>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";

実行結果
$ perl 14_824.pl
1.3333

**デフォルトの名無しさん** · 2019/07/18(木) 07:25:42.17

>>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 + ..." みたいな機能が
組み込みで用意されている点では、
こういうとき式を書かずに済んで便利ではありますが^^;

**蟻人間** ◆T6xkBnTXz7B0 · 2019/07/18(木) 12:47:19.12

お題: マルバツゲームを作れ。

＿１＿２＿３
１Ｏ｜＿｜＿
＿ー＋ー＋ー
２＿｜Ｘ｜＿
＿ー＋ー＋ー
３＿｜＿｜＿

**蟻人間** ◆T6xkBnTXz7B0 · 2019/07/18(木) 12:58:43.13

(出力例)
プレーヤー１が先攻です。
プレーヤー１は何番に置きますか？ 1
プレーヤー２は何番に置きますか？ 5
...
プレーヤー２の勝ち。

Ｏ｜２｜３
ー＋ー＋ー
４｜Ｘ｜６
ー＋ー＋ー
７｜８｜９

**デフォルトの名無しさん** · 2019/07/18(木) 22:59:22.13

マルバツゲームに便乗して…

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

**デフォルトの名無しさん** · 2019/07/18(木) 23:07:20.49

今、こういうお題を考えています

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

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

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

S2953_9413
71546_7988
83411_2946
23716_5426
47385_736E

**デフォルトの名無しさん** · 2019/07/19(金) 00:02:13.17

問題側が手加減してあげないと解けないポンコツ言語なんて放っとけば？

**836** · 2019/07/19(金) 00:20:37.85

>>836
ルールを修正

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

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

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

この2は、かなり難しいのかな？
最小コストが求まるのかな？
漏れにも、わからない

**デフォルトの名無しさん** · 2019/07/19(金) 00:31:00.88

>>838
迷惑だからちゃんと整理して解ける問題か確認してから書き込め。説明も下手すぎるからちゃんと推敲しろ。

**デフォルトの名無しさん** · 2019/07/19(金) 00:57:57.34

だから自分で一度書いて動くのを確認してから出題しろと何度言えば…

**デフォルトの名無しさん** · 2019/07/19(金) 02:15:25.70

>>834
common lisp
https://pastebin.com/TjpFVgBk

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

| |
| |
| |
player-1 writing O to ...
1
| |
| |
|O |
player-2 writing X to ...
...
|XX |
| O |
|O |
player-1 writing O to ...
9
player-1 win
|XXO|
| O |
|O |

**デフォルトの名無しさん** · 2019/07/19(金) 02:16:34.42

続き

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

**デフォルトの名無しさん** · 2019/07/19(金) 02:19:09.79

2chのレイアウト変更を忘れてた
こうなる
https://i.imgur.com/h2VKHGc.jpg

**デフォルトの名無しさん** · 2019/07/19(金) 02:28:05.00

深夜だからか貼り付けミスってた
>>841
https://pastebin.com/6ZRajAGz

**デフォルトの名無しさん** · 2019/07/19(金) 08:59:52.92

「忘れてた」
「ミスってた」
「深夜だから」

**デフォルトの名無しさん** · 2019/07/20(土) 00:17:01.47

>>836
最小重み経路問題かな？
軽く書いてみたけど、最短経路問題の3倍位難しい。
出直してくるわ。

**デフォルトの名無しさん** · 2019/07/20(土) 02:47:49.06

>>836
https://ideone.com/PQwu2U
C++。出直してきたよ。
2パスになってる。
一回目は適当に上限値を取りに行って、二回目で本気探索する感じ。

◆QZaw55cn4c · 2019/07/20(土) 08:18:17.29

お題と回答
>>5 : 6 10 32 36 44
>>9 : 15 34 35 79
>>11=>>575 : 48 (78) 138-139 (140) 142 146 151 154
>>19 :
>>50, https://mevius.5ch.net/test/read.cgi/tech/1549160513/920 : 4 85 89
https://mevius.5ch.net/test/read.cgi/tech/1549160513/988 == >>164 : 59 61 167 169 189 192 201 202
>>90 : 95 96
>>99 :
>>200 : 214 219
>>215 : 227
>>220 : 232 240 248 256 268
>>235 : 236 237 238 239 247 249 259 342 353
>>320 : 321 323 327 330 340
>>322 : 325 328 329 331 332 339 341 358 359

◆QZaw55cn4c · 2019/07/20(土) 08:18:32.72

>>362 : 367 369 370 371 374 379 380 382 414
>>368 : 390
>>388 : 487 (488) 553 559
>>400 : 401
>>408 :
>>417 : 418 419 421 426 432 433 436 438 442 446 451 452 456 471 474 480 482 489 492 495 498 528 530 540
>>479 :
>>555 : 556 558 564 565
>>557 : 560 562 568 569
>>570 : 574 577
>>573 : 604 622
>>600 : 605 607 611 613 627 691
>>615,626 :
>>632 : 637 640 645 649 650 687 689-690

◆QZaw55cn4c · 2019/07/20(土) 08:18:48.37

>>651 : 654 657 662 679 682
>>655 :
>>661 :
>>683 : 685
>>695,704,716,721 : 696 697 701 703 711 713 714 715 718 722 723 724 727 740-741
>>708 : 714
>>717 :
>>752 :
>>753 : (760)
>>767 : 775
>>778 : 779 788 (792) 794
>>789 : 790 (793)
>>807 : 810 811 812 814 815 816 821 823
>>824 : 826 827-828 829 831

◆QZaw55cn4c · 2019/07/20(土) 08:19:03.91

>>833 : 841
>>835 :
>>836 : 847

**デフォルトの名無しさん** · 2019/07/20(土) 10:54:30.31

迷惑だからやめろ
やるなら言語別集計とか少しでも付加価値を入れろ

**デフォルトの名無しさん** · 2019/07/20(土) 11:03:01.50

留数定理も知らないくせにしゃしゃりでてんじゃねえぞクソコテ白痴クロッチロット野郎が

◆QZaw55cn4c · 2019/07/20(土) 14:28:34.17

>>852
＞言語別集計
次スレで採用しようと思います、このスレでよく使われる言語とその程度を棒グラフ的に認識したくなりました

**デフォルトの名無しさん** · 2019/07/20(土) 14:50:09.53

>>854
本当に申し訳ないんですがここに貼るないでもらっていいですか

**デフォルトの名無しさん** · 2019/07/20(土) 14:51:10.98

認識したいのならご自由にでも迷惑だからここには貼らないで

**デフォルトの名無しさん** · 2019/07/20(土) 15:04:46.84

>>848
本当に迷惑だからやめろ
工夫なんか一切しなくていいから金輪際やめろ

**デフォルトの名無しさん** · 2019/07/20(土) 15:23:47.14

>>854
自分のPC上で好きなだけやれよ

**デフォルトの名無しさん** · 2019/07/20(土) 18:06:54.10

お題：　できるだけ少ない回数で1から1000の数を判定しろ
例
入力：　775
出力　n==755

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

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

**デフォルトの名無しさん** · 2019/07/20(土) 18:27:26.16

あっ。あっ。頭が！爆発！！しちゃうーーーーーーーー！！！

**デフォルトの名無しさん** · 2019/07/20(土) 19:19:03.53

>>859
> 入力：　2,4, ...., 1000
> 出力　n%2
これ間違えてね？

**デフォルトの名無しさん** · 2019/07/20(土) 19:25:23.08

桃白白改めミスターポポ改めピラフ改めピッコロさんは毎回適当に出題してるからね

**デフォルトの名無しさん** · 2019/07/20(土) 19:58:58.98

>>861
うん

**デフォルトの名無しさん** · 2019/07/20(土) 21:47:04.48

>>859
xy座標で y = xのn-1次以下の式が
n個の点があたえられると導けるから
その出力の一意性に疑問がある

**デフォルトの名無しさん** · 2019/07/20(土) 23:23:39.84

お題
正の整数nと、正の整数のリスト2つ
a_1, ..., a_k
b_1, ..., b_k
が与えられる。
これに対して以下の操作を繰り返す。

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

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

**デフォルトの名無しさん** · 2019/07/20(土) 23:44:40.61

>>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

**デフォルトの名無しさん** · 2019/07/21(日) 00:23:35.41

>>853
頭のおかしいガイジのくせに数学を語ってんじゃねぇよ
ぶっ殺すぞガイジ
実関数もわかってねぇくせに複素関数を語ってんじゃねぇよ
おめえの腸を掘り出して排水溝に捨てるぞ

**デフォルトの名無しさん** · 2019/07/21(日) 00:27:00.70

>>866
説明が足りなかった
iを見つけたら
n = n*a_i/b_i
として同じことを繰り返す

**デフォルトの名無しさん** · 2019/07/21(日) 02:19:32.68

>>868
https://pastebin.com/QJzjZLWg
a:1 b:7 n:14
a:4 b:8 n:2
n finally 1

**デフォルトの名無しさん** · 2019/07/21(日) 03:17:35.19

>>848
そのまとめ、専ブラ(ChMate)使ったら何も加工せずにより良い結果を表示できる
ってか、あんたの投稿で出題に無関係なレスもピックアップされてしまう
百害あって一利なし、なのでヤメてくれ

**デフォルトの名無しさん** · 2019/07/21(日) 08:20:50.09

◆QZaw55cn4c のまとめ（と称した自己満足）は本当に迷惑だからやめてほしい

**デフォルトの名無しさん** · 2019/07/21(日) 09:52:12.84

>>867
コテハン付け忘れてんぞｗ

◆QZaw55cn4c · 2019/07/21(日) 12:17:22.63

>>870
その専用ブラウザはアンカーのほかにスレッドURLにも対応していますか？
https://mevius.5ch.net/test/read.cgi/tech/1558168409/833 : 841
https://mevius.5ch.net/test/read.cgi/tech/1558168409/835
https://mevius.5ch.net/test/read.cgi/tech/1558168409/836 : 847
こういう形式であってもピックアップする機能があるのですか？

**デフォルトの名無しさん** · 2019/07/21(日) 12:22:59.36

とにかく迷惑だからやめろ

**デフォルトの名無しさん** · 2019/07/21(日) 12:37:24.29

>>873
おまえも一応プログラマだろ
本当に自分でそれ書けないのか？

◆QZaw55cn4c · 2019/07/21(日) 13:08:23.15

>>875
>>873 は実害報告(>>870) に対する回避策への調査であり、プログラミング可能性とは関係ないでしょう

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

>>876
回避策も何も、お前が書き込みをやめればすむだけの話だ

**デフォルトの名無しさん** · 2019/07/21(日) 14:00:38.73

なんで手間暇かけて他人の嫌がる余計なことするのかね
ろくな回答書けないなら黙ってROMってろって思うわ

**デフォルトの名無しさん** · 2019/07/21(日) 14:03:18.32

これだから朝鮮人は嫌われるんだよ

**デフォルトの名無しさん** · 2019/07/21(日) 14:51:20.84

https://ideone.com/37oWvg
質問だけど、>>836 のループ展開版書いてたんだけど、
終了条件わからないんだけど、どうしたらいいと思う？

**デフォルトの名無しさん** · 2019/07/21(日) 15:57:20.08

https://ideone.com/lOmm7w
>>836
C++。できた。終了位置がレンジ外だったりした。
ただ、いじりすぎてロックインしてないか心配だ。

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