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

**デフォルトの名無しさん** · 2018/09/28(金) 10:09:07.13

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

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

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

前スレ
プログラミングのお題スレ Part10
https://mevius.5ch.net/test/read.cgi/tech/1514772904/

プログラミングのお題スレ Part11
https://mevius.5ch.net/test/read.cgi/tech/1524570314/

**デフォルトの名無しさん** · 2018/10/21(日) 04:53:27.38

>>151
Perl の1行プログラム

perl -ne 'BEGIN{$s=0;%x=("sleep"=>0,"wake up"=>1);%r=(0=>"zzz...",1=>"hello")}print ">> $_";chomp;\
if(defined($x{$_})){$s=$x{$_}}elsif($_ eq "hi"){print"$r{$s}\n"}else{print "ERROR\n"}'

仕様は>>162と同じ。
1行が長くなったので1行目の行末に \ を入れて2行に分けて書いてある。

**デフォルトの名無しさん** · 2018/10/21(日) 09:26:11.61

>>151 java
https://ideone.com/fpKVdM

**デフォルトの名無しさん** · 2018/10/21(日) 09:40:05.59

>>151 GNU Smalltalk
入力は、数値ではなくメッセージで
状態推移は、クラスチェンジで（つまりインスタンス変数なし＆条件分岐なし）
…な感じで、他言語では思いつきにくい実装で遊んでみました

Object subclass: Machine [
wakeUp [ ^self ]
sleep [ ^self ]
hi [ self subclassResponsibility ]
state [ ^self class displayNl ]
Other := nil.
]
Machine class extend [ new [ ^WakeUp basicNew ] ]
Machine subclass: WakeUp [ hi [ 'hello' displayNl ] ]
Machine subclass: Sleep [ hi [ 'zzz...' displayNl ] ]
Machine extend [ Other := Sleep basicNew ]
WakeUp extend [ sleep [ ^self become: Other ] ]
Sleep extend [ wakeUp [ ^self become: Other ] ]

| machine |
machine := Machine new.
machine state. "=> WakeUp "
machine hi. "=> hello "
machine sleep; state. "=> Sleep "
machine hi. "=> zzz... "
machine wakeUp; state. "=> WakeUp "
machine wakeUp; state. "=> WakeUp "
machine sleep; state. "=> Sleep "
machine sleep; state. "=> Sleep "

https://ideone.com/vyCRfq

**デフォルトの名無しさん** · 2018/10/21(日) 11:09:36.22

>>151
PowerShell、初期状態は 'Sleep'

function StateMachine {
　param([parameter(ValueFromPipeline=$true)][string]$Event)
　begin { $InSleep = $true }
　process {
　　switch($Event){
　　'hi'{ Write-Host "$(if($InSleep){'zzz...'}else{'hellow'})"}
　　'wake up'{$InSleep=$false}
　　'sleep'{$InSleep=$true}
　　}
　}
}
'hi','sleep','hi','wake up','hi' | StateMachine

**デフォルトの名無しさん** · 2018/10/21(日) 18:51:44.61

>>160
Python3
https://ideone.com/BBteSk
infは対応してないので1億とか適当な大きい値で代用

**デフォルトの名無しさん** · 2018/10/21(日) 22:29:32.21

>>141 Lua
io.write(io.read("*a"))

**デフォルトの名無しさん** · 2018/10/22(月) 01:45:31.26

>>2
これおかしくね？

**デフォルトの名無しさん** · 2018/10/23(火) 19:00:32.44

>>116-117
返答遅れてすみません
数値はあってるようです
私の稚拙なコードでよければ参考までに

Haskell
https://www.ideone.com/9Z0xOX

**デフォルトの名無しさん** · 2018/10/23(火) 21:37:05.53

お題
Excel列番号の数字表記とアルファベット表記を相互変換せよ

A => 1
AA => 27
ABC => ?
26 => Z
266379 => ?

**デフォルトの名無しさん** · 2018/10/23(火) 22:19:55.60

>>171
Part6の754ですでに通った道だった
https://peace.5ch.net/test/read.cgi/tech/1418278634/754

そしてその時の俺の回答はこれだ
http://ideone.com/SM0HXt

**デフォルトの名無しさん** · 2018/10/23(火) 22:19:56.82

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

**デフォルトの名無しさん** · 2018/10/23(火) 22:31:11.04

iか何かが無かったような？

**デフォルトの名無しさん** · 2018/10/23(火) 23:51:06.93

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がゼロ的な物なのか１的な物なのかこんがらがる…

**デフォルトの名無しさん** · 2018/10/24(水) 00:17:51.17

>>175
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) が答え.

**デフォルトの名無しさん** · 2018/10/24(水) 00:19:21.73

マジカルインクリメント！マジカルインクリメントじゃないか！！

**デフォルトの名無しさん** · 2018/10/25(木) 11:51:35.92

>>171 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' "

**デフォルトの名無しさん** · 2018/10/25(木) 12:50:39.12

>>175
それ Z の時に失敗しない？

他の言語でやってみて失敗したので足したり引いたりする数を色々ひねったらうまく行ったけどね。

**デフォルトの名無しさん** · 2018/10/25(木) 16:24:37.58

>>171 python3
https://ideone.com/zOajDg
ここにソースを書いたらブロックされたからideoneで

**デフォルトの名無しさん** · 2018/10/25(木) 16:39:59.02

>>176
＞Aは0扱いでよい。
＞与えられた文字列を str にとして x = str[A-Zの26進数] に対して

それだと "A" も "AAAAAA" も x = 0 になるから g がダメだな

**デフォルトの名無しさん** · 2018/10/25(木) 16:46:00.18

やっぱり36進数[0-9a-z]使った横着は出来ないのか…

**デフォルトの名無しさん** · 2018/10/25(木) 17:18:04.60

perlのbasecalcだとマジカルなことができる

**デフォルトの名無しさん** · 2018/10/25(木) 17:29:09.19

>>181
文字列にするときは適当な10*n[26進数]を足してやればよいからやはり基本は26進数でよい

**デフォルトの名無しさん** · 2018/10/25(木) 17:46:06.11

デコードは A-Z を 1 から 26 とする 0 を持たない変則 26 進数として数値化すりゃあいいんだよ
以下J

26 #. _64 + a. i. 'ABC'
==> 731

26 #. _64 + a. i. 'ODAI'
==> 266379

エンコードはちょっと1行では説明しにくい

**デフォルトの名無しさん** · 2018/10/25(木) 17:52:55.69

27進だろ…

**デフォルトの名無しさん** · 2018/10/25(木) 17:53:10.85

>>182
もう一捻り必要なんだよ。
考えてくと何れわかる。

**デフォルトの名無しさん** · 2018/10/25(木) 18:17:57.30

>>186
下から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

**デフォルトの名無しさん** · 2018/10/25(木) 19:37:38.82

>>171
この問題を思い出した
http://riverplus.net/codeiq/DigitalTaboo.pdf

**デフォルトの名無しさん** · 2018/10/25(木) 20:05:21.59

全くの素人質問で申し訳ありませんが、お知恵拝借したくお願いします。

http://www.cjh.com.cn/
の画面左まんなか辺りの

三峡水? 25日 19?00分 174.64 -(入)　15200(出)

を自動で毎日夜21時に取得して

https://egg.5ch.net/test/read.cgi/river/1507607675/

に自動で書き込む方法はありますでしょうか？
長年誰かが手写しでしたが、死屍累々でございます、、、、なのです、、

**デフォルトの名無しさん** · 2018/10/25(木) 20:16:07.42

>>190

http://www.cjh.com.cn/

は

http://nweb.cjh.com.cn/sssqold.html

からでもOKです。

**デフォルトの名無しさん** · 2018/10/25(木) 20:33:47.72

sssqold.htmlのソース見たが読むほうは簡単そうだな
書き込む方はしらん

**デフォルトの名無しさん** · 2018/10/25(木) 20:33:50.34

スレタイ

**デフォルトの名無しさん** · 2018/10/25(木) 23:54:56.07

あらしのおもちゃになるソースを公開するのはさすがにちょっとなあ

**デフォルトの名無しさん** · 2018/10/25(木) 23:59:06.56

>>190
2chのcgiは仕様変更ちょいちょいあって追いかけるの面倒だから書き込みは自動保守ツールとか任せるとして、
powershellのスクリプトをタスクスケジューラで動かして出力をテキストファイルにリダイレクトして自動保守ツールに食わせりゃいいんじゃね
スクリプトはこんな感じかね

$html= Invoke-WebRequest -UseBasicParsing http://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]
}

**デフォルトの名無しさん** · 2018/10/26(金) 01:56:21.09

無駄に一行だな

**デフォルトの名無しさん** · 2018/10/26(金) 03:39:31.47

>>171
(fold + 0 (map-with-index (lambda (i c) (* (- (char->integer c) #x40) (expt 26 i))) (reverse (string->list "ABC"))))

**デフォルトの名無しさん** · 2018/10/26(金) 19:50:36.71

お題
ぷよぷよの連鎖数を求めよ。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

**デフォルトの名無しさん** · 2018/10/26(金) 20:45:47.09

>>195
おお、素晴らしいアドレスありがとうございます。後は何とか頑張ってみます！！

**デフォルトの名無しさん** · 2018/10/26(金) 20:51:49.05

>>198
2番目のパターンは実際のゲームではあり得ないものだとは思うが、とにかく何もない所があれば落ちてそれから何連鎖するかを求めればいいのかな？

**デフォルトの名無しさん** · 2018/10/29(月) 19:22:44.11

>>171
Kotlin
https://paiza.io/projects/1ZkMBpYcAWRTjh1ic8RIIQ

入力が A-Z なら数値に変換(小文字も可)、数字だけの文字列はいわゆるA1の形式に変換。それ以外は入力異常でエラー。

**デフォルトの名無しさん** · 2018/10/30(火) 17:20:53.74

>>198 python3
https://ideone.com/DIFmAW
最適もへったくれもないゴリ押しですわ…

**デフォルトの名無しさん** · 2018/10/30(火) 21:09:38.22

お題: ページャーを実装してください。標準入力から以下のデータが与えられます。不正な入力にはいい感じに対応してください。

　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]

**デフォルトの名無しさん** · 2018/10/30(火) 22:21:08.83

>>203 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);

**デフォルトの名無しさん** · 2018/10/30(火) 22:51:09.23

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

**デフォルトの名無しさん** · 2018/10/30(火) 22:54:52.47

うまく貼れなかった
https://ideone.com/2ch1r3

**デフォルトの名無しさん** · 2018/11/02(金) 11:25:03.96

>>203 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]') "

**デフォルトの名無しさん** · 2018/11/02(金) 23:41:59.56

三峡水? 02日 23?00分 174.53 -(入)14700(出)

**デフォルトの名無しさん** · 2018/11/03(土) 04:09:45.11

>>203
Kotlin
https://paiza.io/projects/Zb6Ey6FbQYsGjsi5GBK9lQ

折角日本語使えるんだからたまには使わないとな。

**デフォルトの名無しさん** · 2018/11/03(土) 08:08:00.00

>>171 rust
https://ideone.com/xaLIC6

>>203 rust
https://ideone.com/UxomHc

**デフォルトの名無しさん** · 2018/11/03(土) 23:34:36.36

>>171 c
https://ideone.com/W9eW0R

>>203 c
https://ideone.com/pL0QmX

**デフォルトの名無しさん** · 2018/11/04(日) 13:46:33.88

>>203
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"]

**デフォルトの名無しさん** · 2018/11/04(日) 13:47:27.44

結果が切れた。。。
改めて結果。

[[],[1],[2,3,4,5]]
[[3,4],[5],[6,7]]
[[6,7,8,9],[10],[]]

[executed "pager.hs"]

**デフォルトの名無しさん** · 2018/11/05(月) 17:57:48.99

お題
3つの自然数A,B,Cが与えられる。
初項A、第二項Bであるフィボナッチ数列に対してCがその数列に含まれるかを判定せよ。
含まれる場合は第何項であるかを返し、含まれない場合は偽を返すものとする。

**デフォルトの名無しさん** · 2018/11/05(月) 20:17:41.49

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

**デフォルトの名無しさん** · 2018/11/05(月) 20:25:58.31

同じもの
ttps://ideone.com/Dff2U9

**デフォルトの名無しさん** · 2018/11/05(月) 21:15:45.04

>>214 rust
https://ideone.com/8R5UmH

**デフォルトの名無しさん** · 2018/11/05(月) 23:33:04.48

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

**デフォルトの名無しさん** · 2018/11/06(火) 03:12:12.75

>>214
Kotlin
https://paiza.io/projects/aLPj37Gr548Ba0214az42Q

**デフォルトの名無しさん** · 2018/11/06(火) 07:54:03.24

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

**デフォルトの名無しさん** · 2018/11/06(火) 09:23:46.31

(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回出現することがあるが考慮した方が良いか？

**デフォルトの名無しさん** · 2018/11/06(火) 10:48:03.28

A,Bによっては無限ループになり得ないか？

**219** · 2018/11/06(火) 11:49:20.62

そういやa,bが0,0だと足しても0だからcも0じゃないと無限ループするかな。

**219** · 2018/11/06(火) 11:52:26.86

した。見事にした。
足してゼロなら特別扱いして終わらせる処理がないとダメだったということだな。
今さら直す気は起きんが。

**デフォルトの名無しさん** · 2018/11/06(火) 11:52:29.61

>>221
今まで投稿されてるコード見る限りは最初に見つけた時点で停止。

>>222
自然数って指示だから止まるはずだけど、関数の引数側でunsigned指定して(Javaとかだとuint)おいた方が良いかもね。

**デフォルトの名無しさん** · 2018/11/06(火) 12:34:42.11

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

**デフォルトの名無しさん** · 2018/11/06(火) 14:46:16.34

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

**デフォルトの名無しさん** · 2018/11/06(火) 18:51:28.38

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

**デフォルトの名無しさん** · 2018/11/06(火) 22:17:30.30

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

**デフォルトの名無しさん** · 2018/11/06(火) 23:24:52.38

【ラグランジュ補間】
Σ[i=1,n] )y[i]Π[k≠i](x-x[k])/ (x[i]-x[k])
この係数を計算するだけ。

こういう純数学的な処理は、お題としてはどうかな？
応用上、常に展開した係数を求めるのに意味がある
とも限らんし、精度評価が重要だったりとか

**デフォルトの名無しさん** · 2018/11/06(火) 23:43:20.04

>>229
線形代数は偉大

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

**デフォルトの名無しさん** · 2018/11/06(火) 23:51:57.59

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

を解かせたというわけか...

**デフォルトの名無しさん** · 2018/11/07(水) 00:03:06.07

また数学板から荒らしにきたのか

**デフォルトの名無しさん** · 2018/11/07(水) 00:56:30.16

お題: 四則演算の文字列を受け取って計算結果を返す
1+2+3+4
=> 10

4+5*6-2*3
=> 28

5+12*(2+9/3)/((2+3)*5-7*3)
=> 20

**デフォルトの名無しさん** · 2018/11/07(水) 00:58:06.61

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

**デフォルトの名無しさん** · 2018/11/07(水) 01:00:36.71

>>235　訂正尚複数解存在する時は最も次数の小さいものを出力
2
0 1
1 3
#=> 2 1

3
1 1
5 2
8 3
#=> -1/2 11/2 -4

**デフォルトの名無しさん** · 2018/11/07(水) 01:50:15.65

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

**デフォルトの名無しさん** · 2018/11/07(水) 02:11:40.28

>>235 訂正
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} * ' '

**デフォルトの名無しさん** · 2018/11/07(水) 12:58:28.67

>>229 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} "

**デフォルトの名無しさん** · 2018/11/07(水) 13:01:59.20

>>229 Pharo Smalltalk w/PolyMath >>231っぽく

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

**デフォルトの名無しさん** · 2018/11/07(水) 18:36:22.03

お題
Windows bitmap画像(.bmp)は通常、下から上に向かって画像が記録されているが、
高さに負の値を指定することで、上から下へ向かって画像を記録することができる。
これを利用してbmp画像の上下を反転せよ。

**デフォルトの名無しさん** · 2018/11/07(水) 18:45:22.44

どこが問題なのｗ
仕様に沿った解決法言っちゃってるじゃんｗ

**219** · 2018/11/07(水) 19:20:37.53

>>242
プログラムを作るのがお題だろう。
ここはプログラミングのお題スレなんだからこれでいいんだよ。
むしろ人がある程度プログラムの仕様を考えなければならないような数学問題みたいなやつがダメなお題。

**デフォルトの名無しさん** · 2018/11/07(水) 19:56:07.71

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

**デフォルトの名無しさん** · 2018/11/07(水) 20:06:47.46

>>243
あなたがそういう問題しか好きじゃないか解けないだけでしょ
スレ民の総意みたいな言い方しないで

**デフォルトの名無しさん** · 2018/11/07(水) 20:14:12.09

>>243
紙とえんぴつで解ける数学問題みたいなやつがプログラミングのお題としてダメなのは同意なんだけど>>241は例えば
画像の上下を反転せよ。入力はbmpとする。
とかのほうが良かったんじゃないかな。
愚直に配列いじる奴を尻目に仕様を利用して華麗に解くやつが現れる。
これがいいんじゃないか。

**219** · 2018/11/07(水) 21:05:56.46

>>245
スレ民の総意がどうであろうともこのスレはプログラミングのお題スレなんだからプログラミングのお題になってないのはスレチであることには代わりがない。
適切なスレに書くかまたはなければ新たにそれ用のスレを作って書けば良い。

>>246
それでもいいかも知れないが問題が簡略化されているために自分で仕様を調べるというプログラミングとは少し違う作業が発生するな。
更に仕様の盲点に気付くかというクイズ的な要素もある。

**デフォルトの名無しさん** · 2018/11/07(水) 21:15:41.59

まあ式を実装するだけの数学問題と大差ないお題にしてしまうような要素は不要だったな

**デフォルトの名無しさん** · 2018/11/07(水) 21:15:43.65

>>245
>>244 じゃないけど、数学の問題は問題自体が分からないから手が出せない。
高卒でも分かるように噛み砕いて貰えれば書けるかもだが。

**デフォルトの名無しさん** · 2018/11/07(水) 21:17:30.61

そう考えると、プログラミングの能力って言語覚えるより問題を理解する能力だよな。。。

**デフォルトの名無しさん** · 2018/11/07(水) 22:05:04.79

噛み砕くとこうだな
ファイルの22バイトめから保存されている4バイト長の整数値の符号を反転せよ。
ただし数値は下位バイトから順に格納されており、負数は2の補数表現を用いるものとする。

**デフォルトの名無しさん** · 2018/11/07(水) 22:06:17.13

出力は反転した数値以外は元のファイルと同じ内容のファイルとする

も要るか

**デフォルトの名無しさん** · 2018/11/07(水) 22:14:53.17

>>251
ごめん
>>229-230 の方が分からないんだ。。。

**デフォルトの名無しさん** · 2018/11/07(水) 22:28:14.93

それこそ数学の質問スレでやってくれない？

**デフォルトの名無しさん** · 2018/11/08(木) 03:03:27.47

>>243
＞ここはプログラミングのお題スレなんだからこれでいいんだよ。
＞むしろ人がある程度プログラムの仕様を考えなければならないような数学問題みたいなやつがダメなお題。

スレタイ『プログラマーは何を勉強すべきか？』

プログラマーは何を勉強すべきかということだが、最新のトレンドに適応した勉強が必要だ。
俺は今までこれだけ沢山勉強してきたという人も、実は最新のトレンドに適応していない可能性もある。

５、結論
　　以上の結果より導き出される京大英語で８割を超すための対策は、「ネイティブ英語とは何か」
を定義づけして学ぶことに尽きるだろう。
　　たとえば、「この料理はまずい」という英作文なら受験生に多いのが
　This dish tastes poor.
しかし、これは評価されない。なぜなら、英語として正しくてもマナー違反。英検英語なら否定文にして、
This dish isn't good. これでマナーは改善された。
　　しかし、ネイティブなら　I don't like this dish. と言うだろう。本当に不味い場合は、
Yuck! と叫ぶ。そういう違いだ。
　問題は、
「受験英語の参考書や問題集で取り上げられている構文や表現が現実に使われている英語と違う」
　　という事実。それを指導している教師や講師も、外国生活がなく５０年前の表現を気づかずに指導して
いること。そのために、校内テストや模試で高得点や上位の順位をとっても落ちてしまうこと。
https://storys.jp/story/18159

**デフォルトの名無しさん** · 2018/11/08(木) 03:57:11.05

「この料理はまずい」の時点でマナー違反なんだからそのまま訳すのが正しい
料理がまずいときの一言を答えさせたいならそう出題すればいいことだ

そういう出題側の質とか意識してんのかなこいつ

**デフォルトの名無しさん** · 2018/11/08(木) 04:48:49.11

数学のように、頭の中で正しいかどうかを、証明するような問題は、面倒くさい。
このスレでは、頭を使わず、単純な総当たり問題が好まれる

その方が、プログラミング的な問題

**デフォルトの名無しさん** · 2018/11/08(木) 05:18:56.02

お題:
自然数Nと、N個の「半角の小文字アルファベットと数字からなる1文字以上の文字列」が標準入力から順次与えられます。
文字列をNatural Sort*して標準出力から順次出力してください。
追加問題:
お題1を正規表現を使わず実装してください。

*:
"a120"と"a13"が与えられた場合、"a13","a120"の順番にソートするようにする。
また、今回は"a01"と"a1"が与えられた場合、連続する数字が少ない方を先にする、すなわち"a1","a01"の順になるようにするものとし、
"0"と"a"のどちらが先に来るかについては自由とします。

**デフォルトの名無しさん** · 2018/11/08(木) 05:51:13.63

>>257
＞数学のように、頭の中で正しいかどうかを、証明するような問題は、面倒くさい。
＞このスレでは、頭を使わず、単純な総当たり問題が好まれる

ならば、「チンポがシコシコする」という日本語表現は、文法的に正しいのか？

チンポ「を」シコシコするのではなくて、チンポ「が」シコシコする。この場合、「チンポ」は主語となる。

オブジェクト指向で言う「集約」は２種類あって、全体（俺）と部分（チンポ）が繋がっている場合と、
全体（俺）と部分（チンボ）が別々になっている場合とが考えられる。けれども「チンボ」はそれ自体
が独立した生き物であり、所有者の意思とは無関係に、勃起して「シコシコする」。
例えば寝てる時にエロい夢みて朝起きてみたらチンコが勃起して射精してたとか。

違うか？

「胸がドキドキする」は良いが、「チンポがシコシコする」はダメな理由を、５０字以内で述べろ！

**デフォルトの名無しさん** · 2018/11/08(木) 07:42:34.26

>>257
まあそうなんだけど、数学スレでガンガンプログラミング言語で答え出してる奴がいて正直羨ましい。

**デフォルトの名無しさん** · 2018/11/08(木) 09:21:24.69

なぜそのスレで頑張らないのか。
二軍でヒーローになろうと思ってここで数学の問題出してるの？

**デフォルトの名無しさん** · 2018/11/08(木) 09:28:43.02

？
私は出題者じゃ無いよ。