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

1 名前：デフォルトの名無しさん mailto:sage [2018/09/28(金) 10:09:07.13 ID:phwOkayR.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/ 宿題は宿題スレがあるのでそちらへ。 前スレ プログラミングのお題スレ Part10 https://mevius.5ch.net/test/read.cgi/tech/1514772904/ プログラミングのお題スレ Part11 https://mevius.5ch.net/test/read.cgi/tech/1524570314/ 175 名前：デフォルトの名無しさん [2018/10/21(日) 22:29:32.21 ID:4ZLg1Jin.net] >>142 Lua io.write(io.read("*a")) 176 名前：デフォルトの名無しさん [2018/10/22(月) 01:45:31.26 ID:mc31Kn/b.net] >>2 これおかしくね？ 177 名前：デフォルトの名無しさん mailto:sage [2018/10/23(火) 19:00:32.44 ID:eWhef4/P.net] >>117-118 返答遅れてすみません 数値はあってるようです 私の稚拙なコードでよければ参考までに Haskell https://www.ideone.com/9Z0xOX 178 名前：デフォルトの名無しさん mailto:sage [2018/10/23(火) 21:37:05.53 ID:HCMpmlk6.net] お題 Excel列番号の数字表記とアルファベット表記を相互変換せよ A => 1 AA => 27 ABC => ? 26 => Z 266379 => ? 179 名前：デフォルトの名無しさん mailto:sage [2018/10/23(火) 22:19:55.60 ID:kr01ah20.net] >>172 Part6の754ですでに通った道だった https://peace.5ch.net/test/read.cgi/tech/1418278634/754 そしてその時の俺の回答はこれだ ideone.com/SM0HXt 180 名前：デフォルトの名無しさん mailto:sage [2018/10/23(火) 22:19:56.82 ID:UJUp/CV/.net] >>172 Ruby f=->n{n.to_s(26).tr('0-9a-p',r='@-Y').sub(/(.)@/){$1.tr('A-Z',r)+?Z}.delete ?@} g=->s{s.tr('A-Z','0-9a-p').to_i(26)+(26**s.length-1)/25} puts '%s => %s'%[$_.chop!,~/\d/?f[$_.to_i]:g[$_]]while gets # => A => 1 AA => 27 ABC => 731 26 => Z 266379 => ODAI 181 名前：デフォルトの名無しさん mailto:sage [2018/10/23(火) 22:31:11.04 ID:fVBjYNqz.net] iか何かが無かったような？ 182 名前：デフォルトの名無しさん [2018/10/23(火) 23:51:06.93 ID:H259Ae8g.net] var trans = alpha => parseInt((parseInt(alpha, 36) - parseInt('9'.repeat(alpha.length), 36)).toString(36), 26) trans('A') //=> 1 trans('AA') //=> 27 trans('ABC') //=> 731 順変換だけやってみたけどすごい不安… Aがゼロ的な物なのか１的な物なのかこんがらがる… 183 名前：デフォルトの名無しさん mailto:sage [2018/10/24(水) 00:17:51.17 ID:n2SwZ/Io.net] >>176 Aは0扱いでよい。 与えられた文字列を str にとして x = str[A-Zの26進数] に対して 求める数 f(x) f N\{0} -> N\{0} は f(x) = x + (26**g(x) - 1)/25 (g(x) := x == 0 ? 1 : [log_26(x)] + 1). f は全単射なので逆写像f^(-1)が存在するので f と f^(-1) が答え. 184 名前：デフォルトの名無しさん mailto:sage [2018/10/24(水) 00:19:21.73 ID:kOQJNkO6.net] マジカルインクリメント！マジカルインクリメントじゃないか！！ 185 名前：デフォルトの名無しさん mailto:sage [2018/10/25(木) 11:51:35.92 ID:3ObU9lli.net] >>172 Pharo/Squeak Smalltalk | fromExcelColm toExcelColm | fromExcelColm := [:str | str asByteArray reversed - 64 polynomialEval: 26]. toExcelColm := [:n | | nn digits | nn := n. digits := OrderedCollection new. [(nn := nn - 1) >= 0] whileTrue: [digits addFirst: nn \\ 26. nn := nn // 26]. (digits asByteArray + 65) asString ]. fromExcelColm value: 'A'. "=> 1 " fromExcelColm value: 'AA'. "=> 27 " fromExcelColm value: 'ABC'. "=> 731 " toExcelColm value: 26. "=> 'Z' " toExcelColm value: 266379. "=> 'ODAI' " fromExcelColm value: 'EXCEL'. "=> 2708874 " toExcelColm value: 2788185942068. "=> 'MICROSOFT' " 186 名前：デフォルトの名無しさん [2018/10/25(木) 12:50:39.12 ID:hw/Q19JU.net] >>176 それ Z の時に失敗しない？ 他の言語でやってみて失敗したので足したり引いたりする数を色々ひねったらうまく行ったけどね。 187 名前：デフォルトの名無しさん mailto:sage [2018/10/25(木) 16:24:37.58 ID:aKbYC4uC.net] >>172 python3 https://ideone.com/zOajDg ここにソースを書いたらブロックされたからideoneで 188 名前：デフォルトの名無しさん mailto:sage [2018/10/25(木) 16:39:59.02 ID:wLNEFoo1.net] >>177 ＞Aは0扱いでよい。 ＞与えられた文字列を str にとして x = str[A-Zの26進数] に対して それだと "A" も "AAAAAA" も x = 0 になるから g がダメだな 189 名前：デフォルトの名無しさん [2018/10/25(木) 16:46:00.18 ID:9VVQwm/j.net] やっぱり36進数[0-9a-z]使った横着は出来ないのか… 190 名前：デフォルトの名無しさん mailto:sage [2018/10/25(木) 17:18:04.60 ID:BFrEhhQu.net] perlのbasecalcだとマジカルなことができる 191 名前：デフォルトの名無しさん mailto:sage [2018/10/25(木) 17:29:09.19 ID:/ssDOiD4.net] >>182 文字列にするときは適当な10*n[26進数]を足してやればよいからやはり基本は26進数でよい 192 名前：デフォルトの名無しさん mailto:sage [2018/10/25(木) 17:46:06.11 ID:wLNEFoo1.net] デコードは A-Z を 1 から 26 とする 0 を持たない変則 26 進数として数値化すりゃあいいんだよ 以下J 26 #. _64 + a. i. 'ABC' ==> 731 26 #. _64 + a. i. 'ODAI' ==> 266379 エンコードはちょっと1行では説明しにくい 193 名前：デフォルトの名無しさん mailto:sage [2018/10/25(木) 17:52:55.69 ID:Toapoewp.net] 27進だろ… 194 名前：デフォルトの名無しさん [2018/10/25(木) 17:53:10.85 ID:hw/Q19JU.net] >>183 もう一捻り必要なんだよ。 考えてくと何れわかる。 195 名前：デフォルトの名無しさん mailto:sage [2018/10/25(木) 18:17:57.30 ID:wLNEFoo1.net] >>187 下からn桁目の重み付けが 26^n で(1番下を0桁とする)、 各桁の数字が1〜26なんだよ これで0以外の数は表記できる AAA は 1*26*26 + 1 *26 + 1 ABC は 1*26*26 + 2 *26 + 3 YAZ は 25*26*26 + 1*26 + 26 196 名前：デフォルトの名無しさん [2018/10/25(木) 19:37:38.82 ID:gO/HWAcm.net] >>172 この問題を思い出した riverplus.net/codeiq/DigitalTaboo.pdf 197 名前：デフォルトの名無しさん mailto:sage [2018/10/25(木) 20:05:21.59 ID:na0fZQbz.net] 全くの素人質問で申し訳ありませんが、お知恵拝借したくお願いします。 www.cjh.com.cn/ の画面左まんなか辺りの 三峡水? 25日 19?00分 174.64 -(入)　15200(出) を自動で毎日夜21時に取得して https://egg.5ch.net/test/read.cgi/river/1507607675/ に自動で書き込む方法はありますでしょうか？ 長年誰かが手写しでしたが、死屍累々でございます、、、、なのです、、 198 名前：デフォルトの名無しさん mailto:sage [2018/10/25(木) 20:16:07.42 ID:na0fZQbz.net] >>191 www.cjh.com.cn/ は nweb.cjh.com.cn/sssqold.html からでもOKです。 199 名前：デフォルトの名無しさん mailto:sage [2018/10/25(木) 20:33:47.72 ID:TSZxWHJ/.net] sssqold.htmlのソース見たが読むほうは簡単そうだな 書き込む方はしらん 200 名前：デフォルトの名無しさん mailto:sage [2018/10/25(木) 20:33:50.34 ID:BSekExc/.net] スレタイ 201 名前：デフォルトの名無しさん mailto:sage [2018/10/25(木) 23:54:56.07 ID:Hzy8+5Se.net] あらしのおもちゃになるソースを公開するのはさすがにちょっとなあ 202 名前：デフォルトの名無しさん mailto:sage [2018/10/25(木) 23:59:06.56 ID:9OC64j5F.net] >>191 2chのcgiは仕様変更ちょいちょいあって追いかけるの面倒だから書き込みは自動保守ツールとか任せるとして、 powershellのスクリプトをタスクスケジューラで動かして出力をテキストファイルにリダイレクトして自動保守ツールに食わせりゃいいんじゃね スクリプトはこんな感じかね $html= Invoke-WebRequest -UseBasicParsing nweb.cjh.com.cn/sssqold.html $pattern = "`"oq`":`"(\d*)`",`"q`":`"(\d*)`"[^}]+`"三峡水库`",`"tm`":(\d+),[^}]+`"z`":`"([0-9\.]+)`"" if ($html.RawContent -match $pattern) { $time = (Get-Date "1970/1/1 0:0:0 GMT").AddMilliseconds($Matches[3]) "三峡水库 {2:dd}日 {3}m {1}(入) {0}(出)"-f $Matches[1],$Matches[2],$time,$Matches[4] } 203 名前：デフォルトの名無しさん mailto:sage [2018/10/26(金) 01:56:21.09 ID:zqmCYDLg.net] 無駄に一行だな 204 名前：デフォルトの名無しさん mailto:sage [2018/10/26(金) 03:39:31.47 ID:c84xrxY5.net] >>172 (fold + 0 (map-with-index (lambda (i c) (* (- (char->integer c) #x40) (expt 26 i))) (reverse (string->list "ABC")))) 205 名前：デフォルトの名無しさん mailto:sage [2018/10/26(金) 19:50:36.71 ID:/kG4owY9.net] お題 ぷよぷよの連鎖数を求めよ。0-9がぷよ、.が空きマスを表す。 0013 0123 122. 013. 0123 => 4 9.9.9.9.9.9 .9.9.9.9.9. => 1 0123 3012 2301 1230 => 0 206 名前：デフォルトの名無しさん mailto:sage [2018/10/26(金) 20:45:47.09 ID:yqPKU+uE.net] >>196 おお、素晴らしいアドレスありがとうございます。後は何とか頑張ってみます！！ 207 名前：デフォルトの名無しさん [2018/10/26(金) 20:51:49.05 ID:8JGFizba.net] >>199 2番目のパターンは実際のゲームではあり得ないものだとは思うが、とにかく何もない所があれば落ちてそれから何連鎖するかを求めればいいのかな？ 208 名前：デフォルトの名無しさん [2018/10/29(月) 19:22:44.11 ID:PHNS982/.net] >>172 Kotlin https://paiza.io/projects/1ZkMBpYcAWRTjh1ic8RIIQ 入力が A-Z なら数値に変換(小文字も可)、数字だけの文字列はいわゆるA1の形式に変換。それ以外は入力異常でエラー。 209 名前：デフォルトの名無しさん mailto:sage [2018/10/30(火) 17:20:53.74 ID:xBpFVgTt.net] >>199 python3 https://ideone.com/DIFmAW 最適もへったくれもないゴリ押しですわ… 210 名前：デフォルトの名無しさん mailto:sage [2018/10/30(火) 21:09:38.22 ID:RM3bKAov.net] お題: ページャーを実装してください。標準入力から以下のデータが与えられます。不正な入力にはいい感じに対応してください。 　1行目: 現在のページ番号 　2行目: 総ページ数 　3行目: 表示するリンク数 例1 入力: 1 10 5 出力: [1] 2 3 4 5 例2 入力: 5 10 5 出力: 3 4 [5] 6 7 例3 入力: 10 10 5 出力: 6 7 8 9 [10] 211 名前：デフォルトの名無しさん mailto:sage [2018/10/30(火) 22:21:08.83 ID:Mk80lxDb.net] >>204 perl $now = shift or die $! ; $all = shift or die $! ; $show = shift or die $! ; $x = 1 + int $show/2; $y = $all - $x + 1; if($now <= $x){ $start = 1; }elsif($y <= $now){ $start = $all - $show + 1; }else{ $start = $now - int $show/2; } $end = $start + $show - 1; print join " ", map{ $_ == $now ? "[$_]" : "$_" }($start..$end); 212 名前：デフォルトの名無しさん [2018/10/30(火) 22:51:09.23 ID:N8SwgYLQ.net] >>204 Python3 current = int(input()) total = int(input()) n_links = int(input()) ​ assert 1 <= current <= total and n_links <= total ​ if current <= n_links//2: seq = range(1, n_links+1) elif current >= total-n_links//2: seq = range(total-n_links+1, total+1) else: left = current - n_links//2 right = current + n_links//2 + (0 if n_links%2 == 0 else 1) seq = range(left, right) seq = ["[{}]".format(s) if s == current else str(s) for s in seq] print(" ".join(seq)) 213 名前：デフォルトの名無しさん [2018/10/30(火) 22:54:52.47 ID:N8SwgYLQ.net] うまく貼れなかった https://ideone.com/2ch1r3 214 名前：デフォルトの名無しさん mailto:sage [2018/11/02(金) 11:25:03.96 ID:b7bQuZgR.net] >>204 Squeak Smalltalk | fn | fn := [:pg :tot :wd | | start pages | start := pg - (wd // 2) min: tot - wd + 1 max: 1. pages := start to: start + wd - 1. (pages collect: [:x | (x = pg ifTrue: ['[{1}]'] ifFalse: ['{1}']) format: {x}]) joinSeparatedBy: ' ' ]. #((1 10 5) (5 10 5) (10 10 5)) collect: [:tri | fn valueWithArguments: tri] "=> #('[1] 2 3 4 5' '3 4 [5] 6 7' '6 7 8 9 [10]') " 215 名前：デフォルトの名無しさん mailto:sage [2018/11/02(金) 23:41:59.56 ID:8MYT0pgk.net] 三峡水? 02日 23?00分 174.53 -(入)14700(出) 216 名前：デフォルトの名無しさん [2018/11/03(土) 04:09:45.11 ID:vg8hCxXN.net] >>204 Kotlin https://paiza.io/projects/Zb6Ey6FbQYsGjsi5GBK9lQ 折角日本語使えるんだからたまには使わないとな。 217 名前：デフォルトの名無しさん mailto:sage [2018/11/03(土) 08:08:00.00 ID:BMDI0yEn.net] >>172 rust https://ideone.com/xaLIC6 >>204 rust https://ideone.com/UxomHc 218 名前：デフォルトの名無しさん mailto:sage [2018/11/03(土) 23:34:36.36 ID:BMDI0yEn.net] >>172 c https://ideone.com/W9eW0R >>204 c https://ideone.com/pL0QmX 219 名前：デフォルトの名無しさん [2018/11/04(日) 13:46:33.88 ID:pidkuN2F.net] >>204 Haskell main = mapM_ put [(1,10,5),(5,10,5),(10,10,5)] put (x,y,z) = return (pager x y z) >>= print pager a b c | a <= (c `div` 2) = mklist a $ take c [1..b] pager a b c | a > (b - c `div` 2) = mklist a $ drop (b - c) [1..b] pager a b c = mklist a $ take c $ drop (a - c `div` 2 -1) [1..b] mklist a xs = [small a xs , jst a xs , big a xs] small a = filter (< a) big a = filter (> a) jst a = filter (== a) 結果 [[],[1],[2,3,4,5]] [[3,4],[5],[6,7]] [[6,7,8,9],[10],[]] [executed "pager.hs"] 220 名前：デフォルトの名無しさん [2018/11/04(日) 13:47:27.44 ID:pidkuN2F.net] 結果が切れた。。。 改めて結果。 [[],[1],[2,3,4,5]] [[3,4],[5],[6,7]] [[6,7,8,9],[10],[]] [executed "pager.hs"] 221 名前：デフォルトの名無しさん mailto:sage [2018/11/05(月) 17:57:48.99 ID:GRwYYoWB.net] お題 3つの自然数A,B,Cが与えられる。 初項A、第二項Bであるフィボナッチ数列に対してCがその数列に含まれるかを判定せよ。 含まれる場合は第何項 222 名前：であるかを返し、含まれない場合は偽を返すものとする。 [] [ここ壊れてます] 223 名前：デフォルトの名無しさん mailto:sage [2018/11/05(月) 20:17:41.49 ID:0wNeh4D8.net] >>215 python def fibo(a, b): ＿yield a ＿yield b ＿while True: ＿＿yield a + b ＿＿a, b = b, a+b def func(fb, n): ＿count = 1; ＿while True: ＿＿num = fb.next() ＿＿print "{} th term = {}".format(count, num) ＿＿if num >= n: ＿＿＿if num == n: ＿＿＿＿return count ＿＿＿else: ＿＿＿＿return False ＿＿count = count + 1 ＿return False a, b, c = 1, 1, 100 print func(fibo(a, b), c) 224 名前：デフォルトの名無しさん mailto:sage [2018/11/05(月) 20:25:58.31 ID:0wNeh4D8.net] 同じもの ttps://ideone.com/Dff2U9 225 名前：デフォルトの名無しさん mailto:sage [2018/11/05(月) 21:15:45.04 ID:b01o/g5T.net] >>215 rust https://ideone.com/8R5UmH 226 名前：デフォルトの名無しさん mailto:sage [2018/11/05(月) 23:33:04.48 ID:6d8cBeMO.net] >>215 Ruby require 'matrix' def hoge(a, b, c) rm, fm, im = Matrix[[1, 1], [1, 0]], Matrix[[1, 0], [0, 1]], Matrix[[b], [a]] (0..Float::INFINITY).each do |n| m = fm * im return m[1, 0] > c ? false : n if m[1, 0] >= c fm *= rm end end p hoge(0,1,88) #=> false p hoge(0,1,89) #=> 11 p hoge(0,1,90) #=> false 227 名前：デフォルトの名無しさん [2018/11/06(火) 03:12:12.75 ID:BD76rR44.net] >>215 Kotlin https://paiza.io/projects/aLPj37Gr548Ba0214az42Q 228 名前：デフォルトの名無しさん [2018/11/06(火) 07:54:03.24 ID:GFB90oOd.net] C 初項の次第二項って書いてるのに、みんな何故0始まりなの。。。 #include <stdio.h> int fibin(int,int,int); int main(void) { for(int i = 0;i < 6;i++) printf("%d:%d\n",i,fibin(1,1,i)); return 0; } int fibin(int fst,int snd,int num) { int i = 2,fib = fst; if(fst == num) return 1; if(snd == num) return 2; while(fib != num) { fib = fst; fib += snd; if(fib <= num) i++; else return -1; fst = snd; snd = fib; } return i; } 229 名前：デフォルトの名無しさん mailto:sage [2018/11/06(火) 09:23:46.31 ID:jl2IXbjS.net] (A,B,C)が(0,0,0),(0,1,0),(0,1,1),(1,0,0),(1,0,1)の時はCが無限回、(1,1,1),(0,X,X),(X,0,X),(X,X,X)(2≦X)の時はCが2回出現することがあるが考慮した方が良いか？ 230 名前：デフォルトの名無しさん [2018/11/06(火) 10:48:03.28 ID:VF9SVEaj.net] A,Bによっては無限ループになり得ないか？ 231 名前：219 [2018/11/06(火) 11:49:20.62 ID:13CfGTjW.net] そういやa,bが0,0だと足しても0だからcも0じゃないと無限ループするかな。 232 名前：219 [2018/11/06(火) 11:52:26.86 ID:13CfGTjW.net] した。見事にした。 足してゼロなら特別扱いして終わらせる処理がないとダメだったということだな。 今さら直す気は起きんが。 233 名前：デフォルトの名無しさん [2018/11/06(火) 11:52:29.61 ID:GFB90oOd.net] >>222 今まで投稿されてるコード見る限りは最初に見つけた時点で停止。 >>223 自然数って指示だから止まるはずだけど、関数の引数側でunsigned指定して(Javaとかだとuint)おいた方が良いかもね。 234 名前：デフォルトの名無しさん mailto:sage [2018/11/06(火) 12:34:42.11 ID:jAy4xbYh.net] >>215 Squeak/Pharo Smalltalk | fibGen fn | fibGen := [:fst :snd | Generator on: [:g | | a b | a := fst. b := snd. g yield: a. [b := a+b. g yield: (a := b-a)] repeat ] ]. fn := [:A :B :C | | count fib last | count := 1. fib := fibGen value: A value: B. [(last := fib next) < C] whileTrue: [count := count + 1]. last = C ifTrue: [count] ifFalse: [false] ]. fn value: 1 value: 1 value: 89. "=> 11 " fn value: 1 value: 1 value: 90. "=> false " 235 名前：デフォルトの名無しさん [2018/11/06(火) 14:46:16.34 ID:GFB90oOd.net] Haskell main = mapM_ (\x -> putStr (show x ++ ":") >> print (fibin 0 1 x)) [0..6] fibin 0 0 c | c /= 0 = Nothing fibin a b c = lookup c $ zip (take (10 + c) fib) [1..] where fib = a:b:(zipWith (+) fib (tail fib)) 236 名前：デフォルトの名無しさん mailto:sage [2018/11/06(火) 18:51:28.38 ID:2YnZy0Ze.net] >>215 ruby https://ideone.com/Q6aVfo AとB足してゼロ問題に対しては fib = ->a, b {Enumerator.new {|y| loop {y << a; a, b = b, a + b; break if b == 0}}} 237 名前：デフォルトの名無しさん mailto:sage [2018/11/06(火) 22:17:30.30 ID:Nv8RqtnA.net] お題 xy平面上の点がn+1個与えられる(各点のx座標は互いに異なる) 与えられた点をすべて通る関数 y=a[i]x^n+...+a[1]x+a[0] の係数a[i]を求めよ [入力] 点の個数(n+1) x[0] y[0] ... x[n] y[n] [出力] a[n] ... a[0] 2 0 1 1 3 => 2 1 (y=2x+1) 1 100 100 => 100 5 0 1 -1 5 2 2 4 -1 1 0 => -2/15 4/15 49/30 -83/30 1 238 名前：デフォルトの名無しさん mailto:sage [2018/11/06(火) 23:24:52.38 ID:bpzsP6yI.net] 【ラグランジュ補間】 Σ[i=1,n] )y[i]Π[k≠i](x-x[k])/ (x[i]-x[k]) この係数を計算するだけ。 こういう純数学的な処理は、お題としてはどうかな？ 応用上、常に展開した係数を求めるのに意味がある とも限らんし、精度評価が重要だったりとか 239 名前：デフォルトの名無しさん [2018/11/06(火) 23:43:20.04 ID:iVEsbroy.net] >>230 線形代数は偉大 import numpy as np N = int(input()) x, y = [], [] for i in range(N): _x, _y = map(float, input().split()) x.append(_x) y.append(_y) x = np.array(x) y = np.array(y) px = np.array([x**k for k in range(N)]) a = np.dot(y, np.linalg.inv(px)) print(a[::-1]) 240 名前：デフォルトの名無しさん mailto:sage [2018/11/06(火) 23:51:57.59 ID:bpzsP6yI.net] [1 x[0] x[0]^2...x[0]^n] [a[n]] =[y[0]] [1 x[1] x[1]^2... x[1]^n] [a[n-1]]=[y[1] [1 x[2] x[2]^2...x[2]^n] [a[n-2]]=[y[2]] ... [1 x[n] x[n]^2 .... x[n]^n] [a[0] ]=[y[n]] を解かせたというわけか... 241 名前：デフォルトの名無しさん mailto:sage [2018/11/07(水) 00:03:06.07 ID:q3WQuIHF.net] また数学板から荒らしにきたのか 242 名前：デフォルトの名無しさん [2018/11/07(水) 00:56:30.16 ID:yYgCxC/p.net] お題: 四則演算の文字列を受け取って計算結果を返す 1+2+3+4 => 10 4+5*6-2*3 => 28 5+12*(2+9/3)/((2+3)*5-7*3) => 20 243 名前：デフォルトの名無しさん mailto:sage [2018/11/07(水) 00:58:06.61 ID:B66LtM9k.net] >>230 Ruby s = ->a, b{a.zip(b).map{|i, j| i - j}} t = ->a, k{a.map{|i| i * k}} n = gets.to_i - 1 m = $<.read.split($/).map{|e| f[n, *e.split.map(&:to_r)]} (1..n+1).each do |r| (nonzero = m[r- 1..-1].find_index{|e| e[r].nonzero?} + r - 1) && next m[r - 1], m[nonzero] = m[nonzero], m[r - 1] m[r - 1] = t[m[r - 1], 1/m[r - 1][r]] [*[*(0..n)] - [r - 1]].each{|i| m[i] = s[m[i], t[m[r - 1], m[i][r]/m[r - 1][r]]]} end puts m.transpose[0].map{|i| i.denominator == 1 ? i.to_i : i} * ' ' 2 0 1 1 3 #=> 2 1 (y=2x+1) 3 1 1 1 1 5 4 2 1 8 9 3 1 #=> -1/2 11/2 -4 244 名前：デフォルトの名無しさん mailto:sage [2018/11/07(水) 01:00:36.71 ID:B66LtM9k.net] >>236　訂正 尚複数解存在する時は最も次数の小さいものを出力 2 0 1 1 3 #=> 2 1 3 1 1 5 2 8 3 #=> -1/2 11/2 -4 245 名前：デフォルトの名無しさん mailto:sage [2018/11/07(水) 01:50:15.65 ID:B66LtM9k.net] >>235 ruby -nle'puts [$_,eval($_)]*" => "' 1+2+3+4 => 10 4+5*6-2*3 => 28 5+12*(2+9/3)/((2+3)*5-7*3) => 20 246 名前：デフォルトの名無しさん mailto:sage [2018/11/07(水) 02:11:40.28 ID:B66LtM9k.net] >>236 訂正 s = ->a, b{a.zip(b).map{|i, j| i - j}} t = ->a, k{a.map{|i| i * k}} n = gets.to_i m = $<.read.split($/).map{|e| f[n + 1, *e.split.map(&:to_r)]} n.times do |r| 　　(nonzero = m[r..-1].find_index{|e| e[r].nonzero?} + r) || next 　　m[r], m[nonzero] = t[m[nonzero], 1/m[nonzero][r + 1]], m[r] 　　[*[*(0..n + 1)] - [r]].each{|i| m[i] = s[m[i], t[m[r], m[i][r + 1]/m[r][r + 1]]]} end puts m.transpose[0].map{|i| i.denominator == 1 ? i.to_i : i} * ' ' 247 名前：デフォルトの名無しさん mailto:sage [2018/11/07(水) 12:58:28.67 ID:jk7t6Ngg.net] >>230 Squeak Smalltalk | fn | fn := [:points | | xs ys fi gi | xs := points collect: #x. ys := points collect: #y. fi := [:x :i | ((1 to: xs size) copyWithout: i) inject: 1 into: [:prod :k | prod * (x - (xs at: k))]]. gi := [:i | (0 to: xs size - 1) collect: [:n | n = 0 ifTrue: [1] ifFalse: [ (Array streamContents: [:ss | (xs copyWithoutIndex: i) combinations: n atATimeDo: [:comb | ss nextPut: (comb negated reduce: #*)] ] ) sum ]] ]. (ys * ((1 to: xs size) collect: gi) / (xs collectWithIndex: fi)) sum ]. fn value: {0@1. 1@3}. "=> #(2 1) " fn value: {100@100}. "=> #(100) " fn value: {0@1. -1@5. 2@2. 4@ -1. 1@0}. "=> {(-2/15) . (4/15) . (49/30) . (-83/30) . 1} " 248 名前：デフォルトの名無しさん mailto:sage [2018/11/07(水) 13:01:59.20 ID:jk7t6Ngg.net] >>230 Pharo Smalltalk w/PolyMath >>232っぽく "Metacello new repository: 'github://PolyMathOrg/PolyMath:master/src'; baseline: 'PolyMath'; load" | fn | fn := [:points | | xs ys xp | xs := points collect: #x. ys := points collect: #y. xp := (PMMatrix rows: ((xs size - 1 to: 0 by: -1) collect: [:m | xs raisedTo: m])) transpose. (xp inverse * ys asPMVector) asArray ]. fn value: {0@1. 1@3}. "=> #(2 1) " fn value: {100@100}. "=> #(100) " fn value: {0@1. -1@5. 2@2. 4@ -1. 1@0}. "=> {(-2/15) . (4/15) . (49/30) . (-83/30) . 1} " 249 名前：デフォルトの名無しさん mailto:sage [2018/11/07(水) 18:36:22.03 ID:LRSzKna1.net] お題 Windows bitmap画像(.bmp)は通常、下から上に向かって画像が記録されているが、 高さに負の値を指定することで、上から下へ向かって画像を記録することができる。 これを利用してbmp画像の上下を反転せよ。 250 名前：デフォルトの名無しさん mailto:sage [2018/11/07(水) 18:45:22.44 ID:oTVd6hn3.net] どこが問題なのｗ 仕様に沿った解決法言っちゃってるじゃんｗ 251 名前：219 [2018/11/07(水) 19:20:37.53 ID:bimd4khF.net] >>243 プログラムを作るのがお題だろう。 ここはプログラミングのお題スレなんだからこれでいいんだよ。 むしろ人がある程度プログラムの仕様を考えなければならないような数学問題みたいなやつがダメなお題。 252 名前：デフォルトの名無しさん [2018/11/07(水) 20:13:22.48 ID:Uevtgk2mh] 社会貢献のための生成とはどうあるべきかについて考えればいいじゃないか。 それを無くしては単なる社会主義的生産物として生きていく日々だよ。 253 名前：デフォルトの名無しさん [2018/11/07(水) 20:23:12.93 ID:Uevtgk2mh] それとも社会貢献はプログラミングのお題じゃないってか？ 頭良すぎるだろ。 254 名前：デフォルトの名無しさん [2018/11/07(水) 20:24:13.29 ID:Uevtgk2mh] 俺にも下品さの師匠を教えてくれよ。 お前らみたいに豊かになりてーわ笑。 255 名前：デフォルトの名無しさん mailto:sage [2018/11/07(水) 19:56:07.71 ID:5DjOPE5m.net] >>242 Ruby in_fname = 'hoge.bmp' out_fname = 'hoge_ud.bmp' File.binwrite(out_fname, File.binread(in_fname).tap{|b| b[22, 4] = [-b[22, 4].unpack(?l).pop].pack(?l)) 256 名前：デフォルトの名無しさん [2018/11/07(水) 20:06:47.46 ID:umLQTzF1.net] >>244 あなたがそういう問題しか好きじゃないか解けないだけでしょ スレ民の総意みたいな言い方しないで 257 名前：デフォルトの名無しさん mailto:sage [2018/11/07(水) 20:14:12.09 ID:Lazgvcn1.net] >>244 紙とえんぴつで解ける数学問題みたいなやつがプログラミングのお題としてダメなのは同意なんだけど>>242は例えば 画像の上下を反転せよ。入力はbmpとする。 とかのほうが良かったんじゃないかな。 愚直に配列いじる奴を尻目に仕様を利用して華麗に解くやつが現れる。 これがいいんじゃないか。 258 名前：219 [2018/11/07(水) 21:05:56.46 ID:bimd4khF.net] >>249 スレ民の総意がどうであろうともこのスレはプログラミングのお題スレなんだからプログラミングのお題になってないのはスレチであることには代わりがない。 適切なスレに書くかまたはなければ新たにそれ用のスレを作って書けば良い。 >>250 それでもいいかも知れないが問題が簡略化されているために自分で仕様を調べるというプログラミングとは少し違う作業が発生するな。 更に仕様の盲点に気付くかというクイズ的な要素もある。 259 名前：デフォルトの名無しさん mailto:sage [2018/11/07(水) 21:15:41.59 ID:wOCAlbJb.net] まあ式を実装するだけの数学問題と大差ないお題にしてしまうような要素は不要だったな 260 名前：デフォルトの名無しさん [2018/11/07(水) 21:15:43.65 ID:h4FWJh3K.net] >>249 >>248 じゃないけど、数学の問題は問題自体が分からないから手が出せない。 高卒でも分かるように噛み砕いて貰えれば書けるかもだが。 261 名前：デフォルトの名無しさん [2018/11/07(水) 21:17:30.61 ID:h4FWJh3K.net] そう考えると、プログラミングの能力って言語覚えるより問題を理解する能力だよな。。。 262 名前：デフォルトの名無しさん mailto:sage [2018/11/07(水) 22:05:04.79 ID:DuFCNJWg.net] 噛み砕くとこうだな ファイルの22バイトめから保存されている4バイト長の整数値の符号を反転せよ。 ただし数値は下位バイトから順に格納されており、負数は2の補数表現を用いるものとする。 263 名前：デフォルトの名無しさん mailto:sage [2018/11/07(水) 22:06:17.13 ID:DuFCNJWg.net] 出力は反転した数値以外は元のファイルと同じ内容のファイルとする も要るか 264 名前：デフォルトの名無しさん [2018/11/07(水) 22:14:53.17 ID:h4FWJh3K.net] >>255 ごめん >>230-231 の方が分からないんだ。。。 265 名前：デフォルトの名無しさん mailto:sage [2018/11/07(水) 22:28:14.93 ID:/kHK9X1+.net] それこそ数学の質問スレでやってくれない？ 266 名前：デフォルトの名無しさん [2018/11/08(木) 03:03:27.47 ID:yQlGi5bN.net] >>244 ＞ここはプログラミングのお題スレなんだからこれでいいんだよ。 ＞むしろ人がある程度プログラムの仕様を考えなければならないような数学問題みたいなやつがダメなお題。 スレタイ『プログラマーは何を勉強すべきか？』 プログラマーは何を勉強すべきかということだが、最新のトレンドに適応した勉強が必要だ。 俺は今までこれだけ沢山勉強してきたという人も、実は最新のトレンドに適応していない可能性もある。 ５、結論 　　以上の結果より導き出される京大英語で８割を超すための対策は、「ネイティブ英語とは何か」 を定義づけして学ぶことに尽きるだろう。 　　たとえば、「この料理はまずい」という英作文なら受験生に多いのが 　This dish tastes poor. しかし、これは評価されない。なぜなら、英語として正しくてもマナー違反。英検英語なら否定文にして、 This dish isn't good. これでマナーは改善された。 　　しかし、ネイティブなら　I don't like this dish. と言うだろう。本当に不味い場合は、 Yuck! と叫ぶ。そういう違いだ。 　問題は、 「受験英語の参考書や問題集で取り上げられている構文や表現が現実に使われている英語と違う」 　　という事実。それを指導している教師や講師も、外国生活がなく５０年前の表現を気づかずに指導して いること。そのために、校内テストや模試で高得点や上位の順位をとっても落ちてしまうこと。 https://storys.jp/story/18159 267 名前：デフォルトの名無しさん mailto:sage [2018/11/08(木) 03:57:11.05 ID:AySxWi85.net] 「この料理はまずい」の時点でマナー違反なんだからそのまま訳すのが正しい 料理がまずいときの一言を答えさせたいならそう出題すればいいことだ そういう出題側の質とか意識してんのかなこいつ 268 名前：デフォルトの名無しさん mailto:sage [2018/11/08(木) 04:48:49.11 ID:QHwNiY6E.net] 数学のように、頭の中で正しいかどうかを、証明するような問題は、面倒くさい。 このスレでは、頭を使わず、単純な総当たり問題が好まれる その方が、プログラミング的な問題 269 名前：デフォルトの名無しさん mailto:sage [2018/11/08(木) 05:18:56.02 ID:HOEn5tLb.net] お題: 自然数Nと、N個の「半角の小文字アルファベットと数字からなる1文字以上の文字列」が標準入力から順次与えられます。 文字列をNatural Sort*して標準出力から順次出力してください。 追加問題: お題1を正規表現を使わず実装してください。 *: "a120"と"a13"が与えられた場合、"a13","a120"の順番にソートするようにする。 また、今回は"a01"と"a1"が与えられた場合、連続する数字が少ない方を先にする、すなわち"a1","a01"の順になるようにするものとし、 "0"と"a"のどちらが先に来るかについては自由とします。 270 名前：デフォルトの名無しさん [2018/11/08(木) 05:51:13.63 ID:yQlGi5bN.net] >>261 ＞数学のように、頭の中で正しいかどうかを、証明するような問題は、面倒くさい。 ＞このスレでは、頭を使わず、単純な総当たり問題が好まれる ならば、「チンポがシコシコする」という日本語表現は、文法的に正しいのか？ チンポ「を」シコシコするのではなくて、チンポ「が」シコシコする。この場合、「チンポ」は主語となる。 オブジェクト指向で言う「集約」は２種類あって、全体（俺）と部分（チンポ）が繋がっている場合と、 全体（俺）と部分（チンボ）が別々になっている場合とが考えられる。けれども「チンボ」はそれ自体 が独立した生き物であり、所有者の意思とは無関係に、勃起して「シコシコする」。 例えば寝てる時にエロい夢みて朝起きてみたらチンコが勃起して射精してたとか。 違うか？ 「胸がドキドキする」は良いが、「チンポがシコシコする」はダメな理由を、５０字以内で述べろ！ 271 名前：デフォルトの名無しさん [2018/11/08(木) 07:42:34.26 ID:Tu3rCJEk.net] >>261 まあそうなんだけど、数学スレでガンガンプログラミング言語で答え出してる奴がいて正直羨ましい。 272 名前：デフォルトの名無しさん mailto:sage [2018/11/08(木) 09:21:24.69 ID:UCtqQ5sl.net] なぜそのスレで頑張らないのか。 二軍でヒーローになろうと思ってここで数学の問題出してるの？ 273 名前：デフォルトの名無しさん [2018/11/08(木) 09:28:43.02 ID:Tu3rCJEk.net] ？ 私は出題者じゃ無いよ。 274 名前：デフォルトの名無しさん [2018/11/08(木) 09:57:33.73 ID:2oWgTmr1.net] >>265 ＞なぜそのスレで頑張らないのか。 ＞二軍でヒーローになろうと思ってここで数学の問題出してるの？ 俺はただパソコンに向かって独り言ブツブツ言って、チンポがシコシコしてるだけだが？ 275 名前：デフォルトの名無しさん mailto:sage [2018/11/08(木) 09:57:41.43 ID:llemawmF.net] >>262 How do I do a natural sort on an array? ttps://www.perlmonks.org/?node_id=68185 これを実装すんの？

---

---

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

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