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

1 名前：デフォルトの名無しさん mailto:sage [2019/07/28(日) 19:39:57.54 ID:832c/ukY.net] プログラミングのお題スレです。 【出題と回答例】 1 名前：デフォルトの名無しさん 　　お題：お題本文 2 名前：デフォルトの名無しさん 　　>>1 使用言語 　　回答本文 　　結果がある場合はそれも 【ソースコードが長くなったら】 (オンラインでコードを実行できる) https://ideone.com/ codepad.org/ compileonline.com/ rextester.com/runcode https://runnable.com/ https://code.hackerearth.com/ melpon.org/wandbox https://paiza.io/ 宿題は宿題スレがあるのでそちらへ。 ※前スレ プログラミングのお題スレ Part14 mevius.5ch.net/test/read.cgi/tech/1558168409/ 231 名前：デフォルトの名無しさん mailto:sage [2019/08/30(金) 01:22:20.46 ID:Knt08H1L.net] ちゃうやろJK edgeの終端が二股は有効グラフではNGやで 232 名前：デフォルトの名無しさん [2019/08/30(金) 06:09:58.43 ID:N+Bub+CM.net] お題 1億以下の同じ数字でできている数(1,22,777など)をすべて表示する 233 名前：デフォルトの名無しさん mailto:sage [2019/08/30(金) 06:52:02.20 ID:BnHn7wdj.net] >>228 perl5 ideone.com/KwFHjS 234 名前：デフォルトの名無しさん mailto:sage [2019/08/30(金) 06:53:07.28 ID:BnHn7wdj.net] 0抜けてた悔しい 235 名前：デフォルトの名無しさん [2019/08/30(金) 07:10:25.46 ID:N+Bub+CM.net] >>228 自然数を対象とします。なので0は対象外。 236 名前：デフォルトの名無しさん mailto:sage [2019/08/30(金) 10:00:13.13 ID:/ZgOmfmJ.net] >>228 Ruby p (1...9).flat_map{|i| (1..9).map{|j| j * (10**i - 1) / 9}} # => [1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 22, 33, 44, 55, 66, 77, 88, 99, 111, 222, 333, 444, 555, 666, 777, 888, 999, 1111, 2222, 3333, 4444, 5555, 6666, 7777, 8888, 9999, 11111, 22222, 33333, 44444, 55555, 66666, 77777, 88888, 99999, 111111, 222222, 333333, 444444, 555555, 666666, 777777, 888888, 999999, 1111111, 2222222, 3333333, 4444444, 5555555, 6666666, 7777777, 8888888, 9999999, 11111111, 22222222, 33333333, 44444444, 55555555, 66666666, 77777777, 88888888, 99999999] 237 名前：デフォルトの名無しさん mailto:sage [2019/08/30(金) 10:54:33.08 ID:TOyFnU58.net] >>228 Google Sheets =ARRAYFORMULA(REPT(ROW(1:9), COLUMN(A:H))) https://i.imgur.com/pKQgzAG.png 238 名前：デフォルトの名無しさん [2019/08/30(金) 11:37:28.31 ID:Kz4M8rdT.net] >>233 評価。 239 名前：デフォルトの名無しさん [2019/08/30(金) 12:26:06.17 ID:VkI78Ia/.net] >>228 同じ数字でできている数って？どういう意味？ 240 名前：デフォルトの名無しさん [2019/08/30(金) 12:27:00.95 ID:VkI78Ia/.net] あ、わかった。ごめん。 241 名前：デフォルトの名無しさん mailto:sage [2019/08/30(金) 13:32:59.48 ID:Tn7+4gKU.net] >>228 Pharo/Squeak Smalltalk (1 to: 8) gather: [:n | (1 to: 9) collect: [:m | (Array new: n withAll: m) polynomialEval: 10]] #(1 2 3 4 5 6 7 8 9 11 22 33 44 55 66 77 88 99 111 222 333 444 555 666 777 888 999 1111 2222 3333 4444 5555 6666 7777 8888 9999 11111 22222 33333 44444 55555 66666 77777 88888 99999 111111 222222 333333 444444 555555 666666 777777 888888 999999 1111111 2222222 3333333 4444444 5555555 6666666 7777777 8888888 9999999 11111111 22222222 33333333 44444444 55555555 66666666 77777777 88888888 99999999) 242 名前：デフォルトの名無しさん mailto:sage [2019/08/30(金) 16:39:32.33 ID:BnHn7wdj.net] 遅いけど perl5 for (1..100_000_000) { print if s{\A (.) \1* \z}{$& }x } 1 2 3 4 5 6 7 8 9 11 22 33 44 55 66 77 88 99 111 222 333 444 555 666 777 888 999 1111 2222 3333 4444 5555 6666 7777 8888 9999 11111 22222 33333 44444 55555 66666 77777 88888 99999 111111 222222 333333 444444 555555 666666 777777 888888 999999 1111111 2222222 3333333 4444444 5555555 6666666 7777777 8888888 9999999 11111111 22222222 33333333 44444444 55555555 66666666 77777777 88888888 99999999 243 名前：デフォルトの名無しさん [2019/08/30(金) 18:36:49.98 ID:9N6Bd3Tw.net] >>91 Haskell main = mapM_ (print.only) [ [1,1,1,1,2,2,2,3,3,4], [1,2,3,4,5,5,4,3,2,1], [3,1,4,1,5,9,2,6,5,3,5] ] only ns = f [xs | xs <- (group.sort) ns, length xs == 1] where f [] = -1 f ([x]:_) = x ワンライナーも出来るけど、何やってるか読み取り辛い。 only ns = if lst == [] then -1 else (head.head) lst where lst = [xs | xs <- (group.sort) ns, length xs == 1] 244 名前：デフォルトの名無しさん [2019/08/30(金) 19:34:06.70 ID:9dkB4daP.net] >>228 あほ 245 名前：デフォルトの名無しさん mailto:sage [2019/08/30(金) 23:12:37.99 ID:aECV+bPz.net] >>228　Perl5 @s = map{$a=$_; map{$_ x $a} 1..9} 1..8; print "@s"; 実行; ~ $ perl 15_228.pl 1 2 3 4 5 6 7 8 9 11 22 33 44 55 66 77 88 99 111 222 333 444 555 666 777 888 999 1111 2222 3333 4444 5555 6666 7777 8888 9999 11111 22222 33333 44444 55555 66666 77777 88888 99999 111111 222222 333333 444444 555555 666666 777777 888888 999999 1111111 2222222 3333333 4444444 5555555 6666666 7777777 8888888 9999999 11111111 22222222 33333333 44444444 55555555 66666666 77777777 88888888 99999999 246 名前：デフォルトの名無しさん [2019/08/30(金) 23:55:50.54 ID:olp7cGEF.net] >>228 Kotlin https://paiza.io/projects/AFbELIff7j3sUnxSndQLvg 247 名前：デフォルトの名無しさん [2019/08/31(土) 05:23:58.92 ID:aUqRNM/Y.net] a = 0 for i = 1, 8 do 　　a = a * 10 + 1 　　for j = a, a * 9, a do 　　　　print(j) 　　end end >>228 Lua 248 名前：デフォルトの名無しさん [2019/08/31(土) 08:18:15.37 ID:rAMLyuja.net] >>228 Haskell import Data.List main = (print.sort.concat) [[(sum.take a) [x * 10 ^ y | y <- [0..9]] | x <- [1..9]]| a <- [1..8]] 249 名前：デフォルトの名無しさん mailto:sage [2019/08/31(土) 08:45:29.92 ID:h26kuCJS.net] お題 >>228 を求めることができる 特に最適化を施さないナイーブな実装（例えば>>238 ）を書いて その実行にかかる時間（ミリ秒、秒等）を計測し出力してください なお遅い言語処理系で１億以下が無理な場合は１千万以下でも構いません 250 名前：デフォルトの名無しさん mailto:sage [2019/08/31(土) 10:03:16.75 ID:4OmVCRqb.net] time perl -e 'for (1..100_000_000) { print if s{\A (.) \1* \z}{$& }x }' 1 2 3 4 5 6 7 8 9 11 22 33 44 55 66 77 88 99 111 222 333 444 555 666 777 888 999 1111 2222 3333 4444 5555 6666 7777 8888 9999 11111 22222 33333 44444 55555 66666 77777 88888 99999 111111 222222 333333 444444 555555 666666 777777 888888 999999 1111111 2222222 3333333 4444444 5555555 6666666 7777777 8888888 9999999 11111111 22222222 33333333 44444444 55555555 66666666 77777777 88888888 99999999 real 1m30.031s user 1m29.046s sys 0m0.093s 251 名前：デフォルトの名無しさん mailto:sage [2019/08/31(土) 10:56:28.19 ID:Z8IDlpBx.net] >>245 Pharo/Squeak Smalltalk | time ans | time := [ans := (1 to: 100000000) select: [:n | n asString asSet size = 1]] timeToRun. ^{time. ans} "Core m3-8100Y => an Array(0:00:02:55.58 #(1 2 3 4 5 6 7 8 9 11 22 33 44 55 66 77 88 99 111 222 333 444 555 666 777 888 999 1111 2222 3333 4444 5555 6666 7777 8888 9999 11111 22222 33333 44444 55555 66666 77777 88888 99999 111111 222222 333333 444444 555555 666666 777777 888888 999999 1111111 2222222 3333333 4444444 5555555 6666666 7777777 8888888 9999999 11111111 22222222 33333333 44444444 55555555 66666666 77777777 88888888 99999999)) " 252 名前：デフォルトの名無しさん mailto:sage [2019/08/31(土) 10:58:35.47 ID:8/I1hpDH.net] >>245 Perl5、１千万以下、CPU: Core i5 M520@2.4GHz use Time::HiRes qw(gettimeofday tv_interval); $t0 = [gettimeofday]; for (1..1e8) { 　push @s, $_ if /^(.)\1*$/; } $elapse = tv_interval($t0, [gettimeofday]); printf "@s\n%.3f[s]\n", $elapse; 実行結果 ~ $ perl 15_245.pl 1 2 3 4 5 6 7 8 9 11 22 33 44 55 66 77 88 99 111 222 333 444 555 666 777 888 999 1111 2222 3333 4444 5555 6666 7777 8888 9999 11111 22222 33333 44444 55555 66666 77777 88888 99999 111111 222222 333333 444444 555555 666666 777777 888888 999999 1111111 2222222 3333333 4444444 5555555 6666666 7777777 8888888 9999999 49.732[s] 253 名前：デフォルトの名無しさん mailto:sage [2019/08/31(土) 11:35:18.32 ID:weQXwxl4.net] >>245 Java https://ideone.com/0ddTLO Pentium G6950@2.8GHz 整数演算: 1,073ms 正規表現: 46,450ms Ideone 整数演算: 495ms 正規表現: 2,592ms (これだけ1千万以下で計測) 254 名前：デフォルトの名無しさん [2019/08/31(土) 12:36:03.19 ID:E0AleLqQ.net] >>120 Haskell main = map (\n -> f n 0) [15,93,77,123] f n a | n < 10 = (n,a) f n a = f (product [read [x] | x <- show n]) (a + 1) 255 名前：デフォルトの名無しさん mailto:sage [2019/08/31(土) 12:47:22.94 ID:8/I1hpDH.net] >>245 c99、 Core i5 M520@2.4GHz #include <time.h> #include <math.h> #include <stdio.h> int main() { 　int b = 1, n = 1; 　clock_t s = clock(); 　for (int e = 1; e <= 9; e++) { 　　int j = pow(10, e) - pow(10, e - 1); 　　for (int i = 1; i <= j; i 256 名前：++) { 　　　if (n == (n / b) * b) 　　　　printf("%d ", n); 　　　n++; 　　} 　　b *= 10; b += 1; 　} 　clock_t e = clock(); 　printf("\n%.3f[s]\n", (double)(e - s)/1e6); } 実行結果 $ cc -std=c99 -O2 15_245.c -lm $ time ./a.out 1 2 3 4 5 6 7 8 9 11 22 33 44 55 66 77 88 99 111 222 333 444 555 666 777 888 999 1111 2222 3333 4444 5555 6666 7777 8888 9999 11111 22222 33333 44444 55555 66666 77777 88888 99999 111111 222222 333333 444444 555555 666666 777777 888888 999999 1111111 2222222 3333333 4444444 5555555 6666666 7777777 8888888 9999999 11111111 22222222 33333333 44444444 55555555 66666666　77777777 88888888 99999999 111111111 222222222 333333333 444444444 555555555 666666666 777777777 888888888 999999999 3.890[s] [] [ここ壊れてます] 257 名前：デフォルトの名無しさん mailto:sage [2019/08/31(土) 13:39:39.88 ID:u8Io5isX.net] >>228 https://ideone.com/0Hy6a6 C++。いつもなら数え上げで書くところだが、今回は趣向を変えてみた。 258 名前：デフォルトの名無しさん mailto:sage [2019/08/31(土) 13:43:00.43 ID:weQXwxl4.net] >>252 >>231 > 自然数を対象とします。なので0は対象外。 すぺしゃらいずいらねｗ 259 名前：デフォルトの名無しさん mailto:sage [2019/08/31(土) 13:44:48.13 ID:u8Io5isX.net] ぶー！！！ ・・・これが・・・！！！・・・これこそが・・・！！！ ・・・だ・・・！！！・・・だそく・・・！！！！ 260 名前：デフォルトの名無しさん mailto:sage [2019/08/31(土) 13:45:31.08 ID:u8Io5isX.net] 間に合った。　>>253　サンキュー。 261 名前：デフォルトの名無しさん [2019/08/31(土) 15:12:57.30 ID:RMcMP/J8.net] >>245 Haskell ﾅｲｰﾌﾞな方 Atomｺｱ(Celeron N3050@1.6GHz) 1億以下で約31秒 main = print [x | x <- [1..100000000], let (s:ss) = show x, all (== s) ss] time ./zorome real 0m31.426s user 0m31.123s sys 0m0.248s ﾅｲｰﾌﾞな方は探すｱﾙｺﾞﾘｽﾞﾑで、最適化の方(>>244)は数列を作るｱﾙｺﾞﾘｽﾞﾑ。 (1から99999999までの(1桁から8桁までの)ｿﾞﾛ目を作る) [ [[1],[1,10],[1,10,100]...], [[2],[2,20],[2,20,200]...], ..., [[9],[9,90],[9,90,900]...]] ] って言う数列を生成して、合計出してﾌﾗｯﾄにしてｿｰﾄしてるだけだよ。 (他の言語のも多少の手順の違い(フラット化とソートしないで「合計出した時点で表示」を縦方向に繰り返したり)はあるけど、基本のアルゴリズムとしては同じ) 262 名前：デフォルトの名無しさん mailto:sage [2019/09/01(日) 18:40:58.06 ID:lGQcNl0x.net] お題: nバイトのデータxをビット列にして出力しなさい 263 名前：デフォルトの名無しさん mailto:sage [2019/09/01(日) 19:01:25.42 ID:KcbCTlPY.net] >>257 Java https://ideone.com/4I2YQt 264 名前：デフォルトの名無しさん mailto:sage [2019/09/01(日) 19:32:51.46 ID:VqTK6sxa.net] >>257 Perl5 $n = 24; @a = map{int rand 255} 1..$n;; print "@a\n"; @b = map{sprintf'%08b', $_} @a; $" = ''; print "@b\n 実行例 ~ $ perl 15_257.pl 155 105 94 58 85 82 124 6 242 94 119 175 69 205 95 25 79 154 237 248 169 254 46 93 100110110110100101011110001110100101010101010010011111000000011011110010010111100111011110101111010001011100110101011111000110010100111110011010111011011111100010101001111111100010111001011101 265 名前：デフォルトの名無しさん [2019/09/01(日) 19:42:33.97 ID:931SdLmv.net] >>257 Common Lisp https://ideone.com/EmGPSF 266 名前：デフォルトの名無しさん mailto:sage [2019/09/01(日) 20:53:53.13 ID:kwhZ+eUh.net] >>259 rand 255 ⇒ 256 の方がﾖｶﾀ 267 名前：デフォルトの名無しさん mailto:sage [2019/09/01(日) 21:45:06.97 ID:CELgatxy.net] >>259 ｺﾋﾟﾍﾟミス print "@b\n ↓ print "@b\n"; 268 名前：デフォルトの名無しさん [2019/09/02(月) 02:56:48.97 ID:oioFkvSQ.net] >>120 >>125 みたいに、1桁になるまでの変化の様子もリストで渡すようにした。 Haskell main = mapM put [4,15,93,77,123,277777788888899] put x = (putStrLn.concat) [show x," -> ",show a, " loop and value is ",show n,". list = ",show l] where (l,a,n) = f [] 0 x f l a n| n < 10 = (reverse l,a,n) f l a n = f (m:l) (a + 1) m where m = product [read [x] | x <- show n] 269 名前：デフォルトの名無しさん [2019/09/02(月) 02:57:17.93 ID:oioFkvSQ.net] out: 4 -> 0 loop and value is 4. list = [] 15 -> 1 loop and value is 5. list = [5] 93 -> 3 loop and value is 4. list = [27,14,4] 77 -> 4 loop and value is 8. list = [49,36,18,8] 123 -> 1 loop and value is 6. list = [6] 277777788888899 -> 11 loop and value is 0. list = [4996238671872,438939648,4478976,338688,27648,2688,768,336,54,20,0] 270 名前：デフォルトの名無しさん mailto:sage [2019/09/02(月) 06:37:20.55 ID:6t6D41pn.net] >>257 Ruby n = 16 x = Array.new(n){rand(0x100)} b = n.times.reduce(0){|s, i| x[~i] * 0x100**i + s} puts "%p => %0#{n}b" % [x, b] # => [31, 95, 43, 108, 105, 54, 1, 122, 100, 48, 137, 121, 131, 188, 105, 244] => 11111010111110010101101101100011010010011011000000001011110100110010000110000100010010111100110000011101111000110100111110100 271 名前：デフォルトの名無しさん mailto:sage [2019/09/02(月) 06:39:28.02 ID:6t6D41pn.net] typo puts "%p => %0#{n * 8}b" % [x, b] # => [31, 95, 43, 108, 105, 54, 1, 122, 100, 48, 137, 121, 131, 188, 105, 244] => 00011111010111110010101101101100011010010011011000000001011110100110010000110000100010010111100110000011101111000110100111110 100 272 名前：デフォルトの名無しさん [2019/09/02(月) 12:10:04.08 ID:rT9Zixkt.net] >>233 勉強になりましたｗ 273 名前：デフォルトの名無しさん mailto:sage [2019/09/02(月) 12:49:28.87 ID:YYsNPCXj.net] >>257 https://ideone.com/L5lkiU C++。気が向いたのでstd::byte動かしてみたけど、ideonが対応してなくてグレードダウンした・・・。 274 名前：デフォルトの名無しさん [2019/09/02(月) 15:10:33.79 ID:rT9Zixkt.net] 全滅エンドか！？ 275 名前：デフォルトの名無しさん [2019/09/02(月) 21:31:28.92 ID:qij/0ceW.net] >>247 VB https://paiza.io/projects/ij82oWiswOxWM0VnAgVbWQ 276 名前：デフォルトの名無しさん [2019/09/03(火) 02:08:35.68 ID:FeqFVaAA.net] >>228 aa=$(echo ^{1..9}\\\{1,\\\}\$\\\| |sed -e "s/ //g; s/\\\|$//;"); seq 1 $((10**8)) |grep -e "$aa" 277 名前：デフォルトの名無しさん [2019/09/03(火) 03:13:14.41 ID:4SpqHsfM.net] 数学的な解き方わからず このx>=3の自然数解を見つける a>b、　(a^2 - b^2)^x + (2ab)^y = (a^2 + b^2)^z 278 名前：272 [2019/09/03(火) 05:28:10.06 ID:VYSmTHvF.net] a=2 b=1で　3^x + 4^y = 5^z は解無し 279 名前：デフォルトの名無しさん mailto:sage [2019/09/03(火) 08:27:27.03 ID:Sk67xQLY.net] a b は実数？ 正の整数？ 280 名前：デフォルトの名無しさん [2019/09/03(火) 08:38:58.69 ID:VYSmTHvF.net] 出てくる文字、a b x y z はすべて自然数、正の整数です 281 名前：デフォルトの名無しさん mailto:sage [2019/09/03(火) 08:39:49.44 ID:03sYx3ae.net] a > b > 0 なの？ 0 > a なら意味ないんだけど 出題者が問題をそもそも理解してなさそう 282 名前：デフォルトの名無しさん [2019/09/03(火) 08:44:26.60 ID:VYSmTHvF.net] すべて1以上の整数として、 x>=3、　　a>b、　　(a^2 - b^2)^x + (2ab)^y = (a^2 + b^2)^z を満たすものを見つける そこでa=2 b=1の場合は解無しがわかっていて 任意のa,bに対して、(a^2 - b^2)^2 + (2ab)^2 = (a^2 + b^2)^2　が成り立つことも判っています 283 名前：デフォルトの名無しさん [2019/09/03(火) 08:57:07.87 ID:VYSmTHvF.net] 指数2だと必ず成立するのはこれだからです 指数3以上で解けるのはどれか、あるかです ピタゴラス数は無数にある 中学校の数学で習う定理に、「三平方の定理」或いは「ピタゴラスの定理」と呼ばれるものがある。 a^2 + b^2 = c^2 を満たす正の整数の組 (a, b, c) のことを、ピタゴラス数と呼ぶ。 例えば、(3, 4, 5) や (5, 12, 13) などは有名なピタゴラス数である。 ピタゴラス数が無限個存在する 任意の原始的ピタゴラス数 が (|m^2 ? n^2|, 2mn, m^2 + n^2) の形で表せることを示す。 https://nue2004.info/knowledge/knowledge97.htm 284 名前：デフォルトの名無しさん [2019/09/03(火) 09:27:31.81 ID:fMS/rXUz.net] ＼　　　/　.::::::::::::::::::::::::;;:;;::,ｯ､:::::::::　　 )　 く 　 数 　す 　 ＼　l　 ,ｯｨrj,rｆ'"'"'"　　　 lﾐ:::::::　く　　 れ　 学　 ま 　　　　 Y　　　　　　　　　　 ,!ﾐ:::::::　ヽ　　な　 野　 な ｀ヽ､　　|　　　　　　　　　　 くミ::::::::　ﾉ 　 い　 郎　 い 　　　　 |､__　 ｬー--＿ニゞ　｀i::::,rく　　　か　 は ｀`''ｰ-　ゝ､'ｌ　 ￣ﾞ´彑,ヾ　　　}::;! ,ﾍ.）　　！　 帰 　　　　　 ﾞｿ　　　""""´｀　　　　　〉 L_　 　 　 っ 　　　　　 /　　　　　　　　　　i　　,　　/|　　　　て　　　　r ≡＝-　〈´　,,.._　　　　　　　 i　　't-'ﾞ　|　,へ　　　　　,r┘ ,､yx=''"　｀ｰ{ﾞ　＿, -､　　　　;　　l　　　ﾚ'　　ヽr､⌒ヽ' 　　　　　　　 ﾞ､`--─ﾞ　　　　　 /!　　　　　　　　 `､ 　　_,,､-　　 　 ﾞ､ ー''　　　　／　;　　　　　　　　　　 `､ -''"_,,､-''"　　　 ﾞ､　　　　／;;'　,'　　/　　　　　　　　 、＼ -''"　　　 ／　　　`ｰ─''ぐ;;;;' ,'　　ノ　　　　　　 　　 ／／　　　 /　　　　　ヾ_､=ﾆﾞ 285 名前：デフォルトの名無しさん mailto:sage [2019/09/03(火) 13:20:54.78 ID:SA/JpX4x.net] どう考えてもスレチだよなぁ 必要なのはプログラムじゃなく紙と鉛筆っぽいし 286 名前：デフォルトの名無しさん mailto:sage [2019/09/03(火) 13:43:33.95 ID:WMTa8Qij.net] このスレは数学嫌いな奴多いなぁ べつにちょっとぐらいいいじゃないか 287 名前：デフォルトの名無しさん mailto:sage [2019/09/03(火) 13:52:03.24 ID:/IQ7x87c.net] むしろこのスレは本当にコンピューター使わないと解けないような パズル問題とかの方が解答つかないことが多い 288 名前：デフォルトの名無しさん mailto:sage [2019/09/03(火) 14:53:42.89 ID:R1k47NOJ.net] 掛け算があるので加速的に左の解が増えるので追い付かなくなる予感。 289 名前：デフォルトの名無しさん mailto:sage [2019/09/03(火) 15:14:05.99 ID:R1k47NOJ.net] >>272 https://ideone.com/NIuUAj C++。コードが正しければ解ナシ。 290 名前：デフォルトの名無しさん mailto:sage [2019/09/03(火) 15:15:29.58 ID:R1k47NOJ.net] (a^2 - b^2)^x + (2ab)^y=0 (a^2 + b^2)^z=0 の連立方程式解くとよさそうに見えるが。 解くのむずくて俺は無理。 291 名前：デフォルトの名無しさん mailto:sage [2019/09/03(火) 15:28:15.62 ID:03sYx3ae.net] >>285 何かの冗談？ それじゃ明らかに解無しなんですが 292 名前：デフォルトの名無しさん mailto:sage [2019/09/03(火) 15:31:15.82 ID:FbgAnO5f.net] >>257 Ruby N = 10 X = Random.new.bytes(N) puts X.unpack('C*').map{|c| '%02X' % c}.join(' '), X.unpack('B*') 結果 82 30 D4 E1 07 32 27 3E A2 E5 10000010001100001101010011100001000001110011001000100111001111101010001011100101 293 名前：デフォルトの名無しさん mailto:sage [2019/09/03(火) 15:38:54.45 ID:R1k47NOJ.net] 自分で移項して解こうと思ったがキャパ超えててギブアップ。 >>286 解があることは証明されているのですか？数学ダメなんだよ。 294 名前：デフォルトの名無しさん mailto:sage [2019/09/03(火) 15:40:16.69 ID:03sYx3ae.net] >>288 (a^2 + b^2)^z=0 <=> a = 0 and b = 0 a > b はどこ行ったの？ てか勝手に両辺＝０にしちゃその時点で必要性満たしてないよね 295 名前：デフォルトの名無しさん mailto:sage [2019/09/03(火) 15:45:42.09 ID:R1k47NOJ.net] 数学ダメなのでセオリー知らないんだけど。マジ解らん。 正直すまんかった。 296 名前：デフォルトの名無しさん mailto:sage [2019/09/03(火) 15:47:50.03 ID:R1k47NOJ.net] あと、ちょっとだけ。 >>289 俺はaとbをゼロには規定してないよ。 297 名前：デフォルトの名無しさん mailto:sage [2019/09/03(火) 15:50:06.71 ID:gHL/qcPl.net] >>284 18行目の不等号逆じゃない？ x=y=z=2の時に出力出るはずだけど。 (元のお題ではxは3以上) 298 名前：デフォルトの名無しさん mailto:sage [2019/09/03(火) 15:52:04.84 ID:R1k47NOJ.net] >>292 https://ideone.com/ZNkEYb 弄ってみた。 299 名前：デフォルトの名無しさん mailto:sage [2019/09/03(火) 15:56:44.07 ID:gHL/qcPl.net] doubleの演算誤差出てるなｗｗｗｗ 300 名前：デフォルトの名無しさん mailto:sage [2019/09/03(火) 15:57:29.86 ID:R1k47NOJ.net] >>293　直しました。 大きな数で発見できているかな？ 301 名前：デフォルトの名無しさん mailto:sage [2019/09/03(火) 16:00:10.37 ID:R1k47NOJ.net] いや、精度飛んでて、うまく測れてないな。 302 名前：デフォルトの名無しさん mailto:sage [2019/09/03(火) 16:01:59.48 ID:gHL/qcPl.net] 演算誤差ではないか　誤差で=になるレベルじゃない AとB出力してみ？ 303 名前：デフォルトの名無しさん mailto:sage [2019/09/03(火) 16:02:55.16 ID:R1k47NOJ.net] 多倍長無いと証明には至らないな。 というわけで今回は抜けるわ。 乱文申し訳ない。 304 名前：デフォルトの名無しさん mailto:sage [2019/09/03(火) 16:03:35.69 ID:gHL/qcPl.net] あ、doubleからstd::size_tになってたｗ 305 名前：デフォルトの名無しさん mailto:sage [2019/09/03(火) 16:10:08.37 ID:R1k47NOJ.net] 色々弄ってみたけど、これで凍結しておくわ。 すまんかった。 306 名前：デフォルトの名無しさん mailto:sage [2019/09/03(火) 16:42:54.68 ID:03sYx3ae.net] >>291 規程してないよって言ってるけど 貴方が提示した条件は a=0 and b=0 と同値ですよって指摘してるんですけど難しいですか私が言ってる事 307 名前：デフォルトの名無しさん mailto:sage [2019/09/03(火) 16:46:54.03 ID:R1k47NOJ.net] >>301 正直言えば難しいね。手を出さなければよかったとちょっと思ってる。 すまんな。 308 名前：デフォルトの名無しさん [2019/09/03(火) 21:38:14.04 ID:MpIMqTuu.net] >>277 なんでxだけ3以上なの？ yとzは本当に1以上の整数として解いていいの？ aとbは定数として扱うの？ なんなの？ 309 名前：デフォルトの名無しさん [2019/09/03(火) 22:12:17.83 ID:VYSmTHvF.net] x=y=z=2以外の解があるか? すべて自然数、変数　a>b、 (a^2 - b^2)^x + (2ab)^y = (a^2 + b^2)^z　の解 答えしらず。 a=2 b=1だけはいまのところ他にないを証明可能 310 名前：デフォルトの名無しさん [2019/09/03(火) 22:33:37.84 ID:dCTs9gWx.net] >>257 VB https://paiza.io/projects/grWlkqU1Rb-dk-QNh69rRQ 311 名前：デフォルトの名無しさん [2019/09/03(火) 22:40:59.77 ID:MpIMqTuu.net] >>304 だからxだけ3以上でyとzは1以上の整数として計算していいか聞いてんだけど？ で、もしそうだったとしてなんでxだけ3以上に仮定してんのかも合わせて聞いてんだけど答えろよ 312 名前：デフォルトの名無しさん [2019/09/04(水) 00:41:31.51 ID:5HyNYB53.net] 304は3以上を仮定してない、すべて自然数 313 名前：デフォルトの名無しさん [2019/09/04(水) 02:57:47.93 ID:5U+WeLbN.net] あーこりゃ致命的に頭悪い奴か 数学も日本語も通じないとは 314 名前：デフォルトの名無しさん [2019/09/04(水) 07:57:08.75 ID:FC7xGJ7s.net] 定理を発見したら著作権で保護されるのかな。 315 名前：デフォルトの名無しさん mailto:sage [2019/09/04(水) 08:46:01.17 ID:HTJbgiFI.net] 日本数学会に提出する前に 大学の教授にみてもらわないと 316 名前：デフォルトの名無しさん mailto:sage [2019/09/04(水) 09:59:12.24 ID:bj6rvw0v.net] 次スレは数学禁止ってスレタイに入れないとな 317 名前：デフォルトの名無しさん mailto:sage [2019/09/04(水) 10:54:57.98 ID:wUnebE5/.net] >>310 そして手柄を横取りされる定期 318 名前：デフォルトの名無しさん mailto:sage [2019/09/04(水) 11:24:41.75 ID:P7o6e2y0.net] お題: 平面上にいくつかの円 (内部も含む円) がある それが重なったり重ならなかったりしていて、最も重なっている箇所ではN個の円が重なっているとする このとき、各円の座標と半径が与えられた場合にNを返すプログラムを書け 319 名前：デフォルトの名無しさん mailto:sage [2019/09/04(水) 13:52:37.01 ID:aB3hMBX/.net] 半年くらい前にそのお題あったが思いつかなかったんだよなー…モンテカルロなら作れるがｗ https://mevius.5ch.net/test/read.cgi/tech/1549160513/405 320 名前：デフォルトの名無しさん mailto:sage [2019/09/04(水) 14:06:48.93 ID:HTJbgiFI.net] それ円周率パイとネイピア数のe の積が N個の円の重なる唯一の x座標とy座標の円達を与えられて返すの辛くないか？ 321 名前：デフォルトの名無しさん [2019/09/04(水) 14:13:24.75 ID:yXyTPmQk.net] >>315 辛くねえよ どうやったら方程式解いて超越数が出てくんだよ ちょっとは考えてからレスしろ 322 名前：デフォルトの名無しさん mailto:sage [2019/09/04(水) 14:29:48.47 ID:HTJbgiFI.net] 例として313が N=4 で、それを与える円4つが (x-ePi-1)^2+(y-ePi)^2=1 (x-ePi+1)^2+(y-ePi)^2=1 (x-ePi )^2+(y-ePi-1)^2=1 (x-ePi )^2+(y-ePi+1)^2=1 だったら大変かもしれない？ 323 名前：デフォルトの名無しさん [2019/09/04(水) 17:19:01.11 ID:reYoOADS.net] >>273 これ解無しって言ってるけど自明じゃないよね ホントにあってんのか？ 324 名前：デフォルトの名無しさん mailto:sage [2019/09/04(水) 18:34:12.43 ID:6EOP5CCF.net] >>306 横レスだが 騒ぐ前に元の>>272の問題文を良く見なさい それで自分で判断できなければ数学的な問題に取り組むのは止めておいたほうが良い 325 名前：デフォルトの名無しさん [2019/09/04(水) 18:42:19.25 ID:8qjE+V3b.net] >>319 一連のやり取り見て出題者がそこら辺理解してなさそうだったから改めて確認しただけなんですけど >>272を見ただけでは>>306の全ての質問に答えられないことは明白なのに何いってんの？ 数学の論理もわからねえくせに見当違いのお説教してんじゃねえよ 326 名前：デフォルトの名無しさん mailto:sage [2019/09/04(水) 18:49:05.83 ID:A7beDSD/.net] 5chはペアプレイではなくマルチプレイということをお忘れなく。 327 名前：デフォルトの名無しさん [2019/09/04(水) 19:10:06.78 ID:5HyNYB53.net] >>318 省いててわかりずらいかもしれないがアウトライン。一般化はできないだろう解き方。 3^x + 4^y = 5^z　の自然数解は(2,2,2)唯一つ mod 3で1 ≡ (-1)^z、　z偶数が必要 z=2wとおくと　3^x = (5^w + 2^y) (5^w - 2^y) 簡単な考察で右辺の後項が3の倍数ならば前項は3の倍数になりえないので後項=1、前項=3^xが必要 w偶数とすると結果2式をmod 3で比較して不成立、w奇数が必要 y>=3ならばmod 8で5 ≡ 3^x、任意のxで不成立 y=1ならば解なし 328 名前：デフォルトの名無しさん [2019/09/04(水) 19:23:20.13 ID:5HyNYB53.net] かいてから考えたら間違ってるところがでてきた ここまではいいとして、これあってないな > y>=3ならばmod 8で5 ≡ 3^x、任意のxで不成立 329 名前：デフォルトの名無しさん [2019/09/04(水) 19:26:32.69 ID:5HyNYB53.net] いやあってた 5^2 ≡　1 (mod 8)になってしまうとおもったら w奇数だから、5^3 ≡　5 (mod 8)だった 5しかでない 330 名前：デフォルトの名無しさん mailto:sage [2019/09/04(水) 20:01:35.58 ID:P7o6e2y0.net] >>314 あら既出だったのか Twitterで見つけてきたんだけど、その人もこのスレ見てたのかな それとも問題自体が有名な問題なのかな？ 331 名前：デフォルトの名無しさん mailto:sage [2019/09/04(水) 22:19:56.37 ID:bGWgoiea.net] 少なくとも自分はAOJで見た記憶がある たしか高校生向けのコンテストの問題だったはず…

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef