18/10/25 20:33:50.34 BSekExc/.net
スレタイ
201:デフォルトの名無しさん
18/10/25 23:54:56.07 Hzy8+5Se.net
あらしのおもちゃになるソースを公開するのはさすがにちょっとなあ
202:デフォルトの名無しさん
18/10/25 23:59:06.56 9OC64j5F.net
>>191
2chのcgiは仕様変更ちょいちょいあって追いかけるの面倒だから書き込みは自動保守ツールとか任せるとして、
powershellのスクリプトをタスクスケジューラで動かして出力をテキストファイルにリダイレクトして自動保守ツールに食わせりゃいいんじゃね
スクリプトはこんな感じかね
$html= Invoke-WebRequest -UseBasicParsing URLﾘﾝｸ(nweb.cjh.com.cn)
$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:デフォルトの名無しさん
18/10/26 01:56:21.09 zqmCYDLg.net
無駄に一行だな
204:デフォルトの名無しさん
18/10/26 03:39:31.47 c84xrxY5.net
>>172
(fold + 0 (map-with-index (lambda (i c) (* (- (char->integer c) #x40) (expt 26 i))) (reverse (string->list "ABC"))))
205:デフォルトの名無しさん
18/10/26 19:50:36.71 /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:デフォルトの名無しさん
18/10/26 20:45:47.09 yqPKU+uE.net
>>196
おお、素晴らしいアドレスありがとうございます。後は何とか頑張ってみます！！
207:デフォルトの名無しさん
18/10/26 20:51:49.05 8JGFizba.net
>>199
2番目のパターンは実際のゲームではあり得ないものだとは思うが、とにかく何もない所があれば落ちてそれから何連鎖するかを求めればいいのかな？
208:デフォルトの名無しさん
18/10/29 19:22:44.11 PHNS982/.net
>>172
Kotlin
URLﾘﾝｸ(paiza.io)
入力が A-Z なら数値に変換(小文字も可)、数字だけの文字列はいわゆるA1の形式に変換。それ以外は入力異常でエラー。
209:デフォルトの名無しさん
18/10/30 17:20:53.74 xBpFVgTt.net
>>199 python3
URLﾘﾝｸ(ideone.com)
最適もへったくれもないゴリ押しですわ…
210:デフォルトの名無しさん
18/10/30 21:09:38.22 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:デフォルトの名無しさん
18/10/30 22:21:08.83 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:デフォルトの名無しさん
18/10/30 22:51:09.23 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:デフォルトの名無しさん
18/10/30 22:54:52.47 N8SwgYLQ.net
うまく貼れなかった
URLﾘﾝｸ(ideone.com)
214:デフォルトの名無しさん
18/11/02 11:25:03.96 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:デフォルトの名無しさん
18/11/02 23:41:59.56 8MYT0pgk.net
三峡水? 02日 23?00分 174.53 -(入)14700(出)
216:デフォルトの名無しさん
18/11/03 04:09:45.11 vg8hCxXN.net
>>204
Kotlin
URLﾘﾝｸ(paiza.io)
折角日本語使えるんだからたまには使わないとな。
217:デフォルトの名無しさん
18/11/03 08:08:00.00 BMDI0yEn.net
>>172 rust
URLﾘﾝｸ(ideone.com)
>>204 rust
URLﾘﾝｸ(ideone.com)
218:デフォルトの名無しさん
18/11/03 23:34:36.36 BMDI0yEn.net
>>172 c
URLﾘﾝｸ(ideone.com)
>>204 c
URLﾘﾝｸ(ideone.com)
219:デフォルトの名無しさん
18/11/04 13:46:33.88 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:デフォルトの名無しさん
18/11/04 13:47:27.44 pidkuN2F.net
結果が切れた。。。
改めて結果。
[[],[1],[2,3,4,5]]
[[3,4],[5],[6,7]]
[[6,7,8,9],[10],[]]
[executed "pager.hs"]
221:デフォルトの名無しさん
18/11/05 17:57:48.99 GRwYYoWB.net
お題
3つの自然数A,B,Cが与えられる。
初項A、第二項Bであるフィボナッチ数列に対してCがその数列に含まれるかを判定せよ。
含まれる場合は第何項
222:であるかを返し、含まれない場合は偽を返すものとする。
223:デフォルトの名無しさん
18/11/05 20:17:41.49 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:デフォルトの名無しさん
18/11/05 20:25:58.31 0wNeh4D8.net
同じもの
URLﾘﾝｸ(ideone.com)
225:デフォルトの名無しさん
18/11/05 21:15:45.04 b01o/g5T.net
>>215 rust
URLﾘﾝｸ(ideone.com)
226:デフォルトの名無しさん
18/11/05 23:33:04.48 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:デフォルトの名無しさん
18/11/06 03:12:12.75 BD76rR44.net
>>215
Kotlin
URLﾘﾝｸ(paiza.io)
228:デフォルトの名無しさん
18/11/06 07:54:03.24 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:デフォルトの名無しさん
18/11/06 09:23:46.31 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:デフォルトの名無しさん
18/11/06 10:48:03.28 VF9SVEaj.net
A,Bによっては無限ループになり得ないか？
231:219
18/11/06 11:49:20.62 13CfGTjW.net
そういやa,bが0,0だと足しても0だからcも0じゃないと無限ループするかな。
232:219
18/11/06 11:52:26.86 13CfGTjW.net
した。見事にした。
足してゼロなら特別扱いして終わらせる処理がないとダメだったということだな。
今さら直す気は起きんが。
233:デフォルトの名無しさん
18/11/06 11:52:29.61 GFB90oOd.net
>>222
今まで投稿されてるコード見る限りは最初に見つけた時点で停止。
>>223
自然数って指示だから止まるはずだけど、関数の引数側でunsigned指定して(Javaとかだとuint)おいた方が良いかもね。
234:デフォルトの名無しさん
18/11/06 12:34:42.11 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:デフォルトの名無しさん
18/11/06 14:46:16.34 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:デフォルトの名無しさん
18/11/06 18:51:28.38 2YnZy0Ze.net
>>215 ruby
URLﾘﾝｸ(ideone.com)
AとB足してゼロ問題に対しては
fib = ->a, b {Enumerator.new {|y| loop {y << a; a, b = b, a + b; break if b == 0}}}
237:デフォルトの名無しさん
18/11/06 22:17:30.30 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:デフォルトの名無しさん
18/11/06 23:24:52.38 bpzsP6yI.net
【ラグランジュ補間】
Σ[i=1,n] )y[i]Π[k≠i](x-x[k])/ (x[i]-x[k])
この係数を計算するだけ。
こういう純数学的な処理は、お題としてはどうかな？
応用上、常に展開した係数を求めるのに意味がある
とも限らんし、精度評価が重要だったりとか
239:デフォルトの名無しさん
18/11/06 23:43:20.04 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:デフォルトの名無しさん
18/11/06 23:51:57.59 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:デフォルトの名無しさん
18/11/07 00:03:06.07 q3WQuIHF.net
また数学板から荒らしにきたのか
242:デフォルトの名無しさん
18/11/07 00:56:30.16 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:デフォルトの名無しさん
18/11/07 00:58:06.61 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:デフォルトの名無しさん
18/11/07 01:00:36.71 B66LtM9k.net
>>236 訂正 尚複数解存在する時は最も次数の小さいものを出力
2
0 1
1 3
#=> 2 1
3
1 1
5 2
8 3
#=> -1/2 11/2 -4
245:デフォルトの名無しさん
18/11/07 01:50:15.65 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:デフォルトの名無しさん
18/11/07 02:11:40.28 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:デフォルトの名無しさん
18/11/07 12:58:28.67 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:デフォルトの名無しさん
18/11/07 13:01:59.20 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:デフォルトの名無しさん
18/11/07 18:36:22.03 LRSzKna1.net
お題
Windows bitmap画像(.bmp)は通常、下から上に向かって画像が記録されているが、
高さに負の値を指定することで、上から下へ向かって画像を記録することができる。
これを利用してbmp画像の上下を反転せよ。
250:デフォルトの名無しさん
18/11/07 18:45:22.44 oTVd6hn3.net
どこが問題なのｗ
仕様に沿った解決法言っちゃってるじゃんｗ
251:219
18/11/07 19:20:37.53 bimd4khF.net
>>243
プログラムを作るのがお題だろう。
ここはプログラミングのお題スレなんだからこれでいいんだよ。
むしろ人がある程度プログラムの仕様を考えなければならないような数学問題みたいなやつがダメなお題。
252:デフォルトの名無しさん
18/11/07 20:13:22.48 Uevtgk2mh
社会貢献のための生成とはどうあるべきかについて考えればいいじゃないか。
それを無くしては単なる社会主義的生産物として生きていく日々だよ。
253:デフォルトの名無しさん
18/11/07 20:23:12.93 Uevtgk2mh
それとも社会貢献はプログラミングのお題じゃないってか？
頭良すぎるだろ。
254:デフォルトの名無しさん
18/11/07 20:24:13.29 Uevtgk2mh
俺にも下品さの師匠を教えてくれよ。
お前らみたいに豊かになりてーわ笑。
255:デフォルトの名無しさん
18/11/07 19:56:07.71 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:デフォルトの名無しさん
18/11/07 20:06:47.46 umLQTzF1.net
>>244
あなたがそういう問題しか好きじゃないか解けないだけでしょ
スレ民の総意みたいな言い方しないで
257:デフォルトの名無しさん
18/11/07 20:14:12.09 Lazgvcn1.net
>>244
紙とえんぴつで解ける数学問題みたいなやつがプログラミングのお題としてダメなのは同意なんだけど>>242は例えば
画像の上下を反転せよ。入力はbmpとする。
とかのほうが良かったんじゃないかな。
愚直に配列いじる奴を尻目に仕様を利用して華麗に解くやつが現れる。
これがいいんじゃないか。
258:219
18/11/07 21:05:56.46 bimd4khF.net
>>249
スレ民の総意がどうであろうともこのスレはプログラミングのお題スレなんだからプログラミングのお題になってないのはスレチであることには代わりがない。
適切なスレに書くかまたはなければ新たにそれ用のスレを作って書けば良い。
>>250
それでもいいかも知れないが問題が簡略化されているために自分で仕様を調べるというプログラミングとは少し違う作業が発生するな。
更に仕様の盲点に気付くかというクイズ的な要素もある。
259:デフォルトの名無しさん
18/11/07 21:15:41.59 wOCAlbJb.net
まあ式を実装するだけの数学問題と大差ないお題にしてしまうような要素は不要だったな
260:デフォルトの名無しさん
18/11/07 21:15:43.65 h4FWJh3K.net
>>249
>>248 じゃないけど、数学の問題は問題自体が分からないから手が出せない。
高卒でも分かるように噛み砕いて貰えれば書けるかもだが。
261:デフォルトの名無しさん
18/11/07 21:17:30.61 h4FWJh3K.net
そう考えると、プログラミングの能力って言語覚えるより問題を理解する能力だよな。。。
262:デフォルトの名無しさん
18/11/07 22:05:04.79 DuFCNJWg.net
噛み砕くとこうだな
ファイルの22バイトめから保存されている4バイト長の整数値の符号を反転せよ。
ただし数値は下位バイトから順に格納されており、負数は2の補数表現を用いるものとする。
263:デフォルトの名無しさん
18/11/07 22:06:17.13 DuFCNJWg.net
出力は反転した数値以外は元のファイルと同じ内容のファイルとする
も要るか
264:デフォルトの名無しさん
18/11/07 22:14:53.17 h4FWJh3K.net
>>255
ごめん
>>230-231 の方が分からないんだ。。。
265:デフォルトの名無しさん
18/11/07 22:28:14.93 /kHK9X1+.net
それこそ数学の質問スレでやってくれない？
266:デフォルトの名無しさん
18/11/08 03:03:27.47 yQlGi5bN.net
>>244
＞ここはプログラミングのお題スレなんだからこれでいいんだよ。
＞むしろ人がある程度プログラムの仕様を考えなければならないような数学問題みたいなやつがダメなお題。
スレタイ『プログラマーは何を勉強すべきか？』
プログラマーは何を勉強すべきかということだが、最新のトレンドに適応した勉強が必要だ。
俺は今までこれだけ沢山勉強してきたという人も、実は最新のトレンドに適応していない可能性もある。
５、結論
以上の結果より導き出される京大英語で８割を超すための対策は、「ネイティブ英語とは何か」
を定義づけして学ぶことに尽きるだろう。
たとえば、「この料理はまずい」という英作文なら受験生に多いのが
This dish tastes poor.
しかし、これは評価されない。なぜなら、英語として正しくてもマナー違反。英検英語なら否定文にして、
This dish isn't good. これでマナーは改善された。
しかし、ネイティブなら I don't like this dish. と言うだろう。本当に不味い場合は、
Yuck! と叫ぶ。そういう違いだ。
問題は、
「受験英語の参考書や問題集で取り上げられている構文や表現が現実に使われている英語と違う」
という事実。それを指導している教師や講師も、外国生活がなく５０年前の表現を気づかずに指導して
いること。そのために、校内テストや模試で高得点や上位の順位をとっても落ちてしまうこと。
URLﾘﾝｸ(storys.jp)
267:デフォルトの名無しさん
18/11/08 03:57:11.05 AySxWi85.net
「この料理はまずい」の時点でマナー違反なんだからそのまま訳すのが正しい
料理がまずいときの一言を答えさせたいならそう出題すればいいことだ
そういう出題側の質とか意識してんのかなこいつ
268:デフォルトの名無しさん
18/11/08 04:48:49.11 QHwNiY6E.net
数学のように、頭の中で正しいかどうかを、証明するような問題は、面倒くさい。
このスレでは、頭を使わず、単純な総当たり問題が好まれる
その方が、プログラミング的な問題
269:デフォルトの名無しさん
18/11/08 05:18:56.02 HOEn5tLb.net
お題:
自然数Nと、N個の「半角の小文字アルファベットと数字からなる1文字以上の文字列」が標準入力から順次与えられます。
文字列をNatural Sort*して標準出力から順次出力してください。
追加問題:
お題1を正規表現を使わず実装してください。
*:
"a120"と"a13"が与えられた場合、"a13","a120"の順番にソートするようにする。
また、今回は"a01"と"a1"が与えられた場合、連続する数字が少ない方を先にする、すなわち"a1","a01"の順になるようにするものとし、
"0"と"a"のどちらが先に来るかについては自由とします。
270:デフォルトの名無しさん
18/11/08 05:51:13.63 yQlGi5bN.net
>>261
＞数学のように、頭の中で正しいかどうかを、証明するような問題は、面倒くさい。
＞このスレでは、頭を使わず、単純な総当たり問題が好まれる
ならば、「チンポがシコシコする」という日本語表現は、文法的に正しいのか？
チンポ「を」シコシコするのではなくて、チンポ「が」シコシコする。この場合、「チンポ」は主語となる。
オブジェクト指向で言う「集約」は２種類あって、全体（俺）と部分（チンポ）が繋がっている場合と、
全体（俺）と部分（チンボ）が別々になっている場合とが考えられる。けれども「チンボ」はそれ自体
が独立した生き物であり、所有者の意思とは無関係に、勃起して「シコシコする」。
例えば寝てる時にエロい夢みて朝起きてみたらチンコが勃起して射精してたとか。
違うか？
「胸がドキドキする」は良いが、「チンポがシコシコする」はダメな理由を、５０字以内で述べろ！
271:デフォルトの名無しさん
18/11/08 07:42:34.26 Tu3rCJEk.net
>>261
まあそうなんだけど、数学スレでガンガンプログラミング言語で答え出してる奴がいて正直羨ましい。
272:デフォルトの名無しさん
18/11/08 09:21:24.69 UCtqQ5sl.net
なぜそのスレで頑張らないのか。
二軍でヒーローになろうと思ってここで数学の問題出してるの？
273:デフォルトの名無しさん
18/11/08 09:28:43.02 Tu3rCJEk.net
？
私は出題者じゃ無いよ。
274:デフォルトの名無しさん
18/11/08 09:57:33.73 2oWgTmr1.net
>>265
＞なぜそのスレで頑張らないのか。
＞二軍でヒーローになろうと思ってここで数学の問題出してるの？
俺はただパソコンに向かって独り言ブツブツ言って、チンポがシコシコしてるだけだが？
275:デフォルトの名無しさん
18/11/08 09:57:41.43 llemawmF.net
>>262
How do I do a natural sort on an array?
URLﾘﾝｸ(www.perlmonks.org)
これを実装すんの？
276:デフォルトの名無しさん
18/11/08 10:23:04.41 Cbg63GbQ.net
>>263
君が何を言いたいのかよくわからない。
277:デフォルトの名無しさん
18/11/08 10:34:41.85 yQlGi5bN.net
>>269
『チンポ』についての生態学は、俺にもよくわからん。
278:デフォルトの名無しさん
18/11/08 11:03:16.65 WO5MlDuJ.net
>>262 Ruby
puts$<.readlines.sort_by{|a|[a.scan(/\d+|\D+/).map{|e|e.to_i(36)},a.size]}
279:デフォルトの名無しさん
18/11/08 14:52:40.11 9PdT3eEJ.net
>>271
>>262
＞また、今回は"a01"と"a1"が与えられた場合、連続する数字が少ない方を先にする、すなわち"a1","a01"の順になるようにするものとし、
280:デフォルトの名無しさん
18/11/08 15:03:35.30 5p9g1xrz.net
>>272
問題無い
# stdin
a130
a12
a001
a01
a1
1
# stdout
1
a1
a01
a001
a12
a130
281:デフォルトの名無しさん
18/11/08 15:08:17.09 9PdT3eEJ.net
>>273
a01b2
a1b0002
282:デフォルトの名無しさん
18/11/08 15:11:12.86 5p9g1xrz.net
>>274
うわー恥ずかしい
指摘ありがとう
283:デフォルトの名無しさん
18/11/08 15:11:38.15 rrpg0ZUw.net
>>273
a001
a12
これ逆にならんとあかんのとちゃう？
284:デフォルトの名無しさん
18/11/08 15:14:27.12 tjdDhH3P.net
>>215 python3
むりやり数式で解いてみた
URLﾘﾝｸ(ideone.com)
285:デフォルトの名無しさん
18/11/08 15:33:18.20 quzojjRV.net
ソートの問題、
連続する数字はその連を数値として比較しつつ同じ数値のときは桁数少を前としているわけだよな
つまり
a01a
a1b
a01b
をソートすると
a01a
a1b
a01b
286:デフォルトの名無しさん
18/11/08 16:29:56.18 Tu3rCJEk.net
>>262
Haskell
main = concat $ map qsort grop
grop = map filterlen [1..(maximum $ map length input)]
filterlen n = filter (\x -> n == length x) input
qsort [] = []
qsort (x:xs) = small ++ [x] ++ big
where small = qsort [a |a <- xs, a <= x]
big = qsort [a | a <- xs, a > x]
input = ["a130","a12","a001","a01","a1","1"]
287:デフォルトの名無しさん
18/11/08 16:31:19.84 Tu3rCJEk.net
input = ["a130","a12","a001","a01","a1","1"]
288:デフォルトの名無しさん
18/11/08 18:41:10.95 e5hl87sZ.net
>>278
＞連続する数字はその連を数値として比較しつつ同じ数値のときは桁数少を前としているわけだよな
同じ数値のときじゃなくて全体が等しいときか
289:デフォルトの名無しさん
18/11/08 18:52:29.20 B0s1LWLV.net
>>279
input = ["01m30s","1m45s","02m03s"]
結果
["1m45s","01m30s","02m03s"]
あんまりnatural じゃない感じ
290:デフォルトの名無しさん
18/11/08 19:15:05.42 85A5tG8V.net
お題
M行N列の領域をジグザグスキャンするときの順序を求めよ
3 3
=>
1 2 6
3 5 7
4 8 9
4 2
=>
1 2
3 5
4 6
7 8
3 5
=>
01 02 06 07 12
03 05 08 11 13
04 09 10 14 15
1 8
=>
1 2 3 4 5 6 7 8
291:デフォルトの名無しさん
18/11/08 22:07:15.82 k/fJXxDB.net
>>235 ruby
URLﾘﾝｸ(ideone.com)
292:デフォルトの名無しさん
18/11/08 22:11:37.46 Tu3rCJEk.net
>>282
そう？
ナチュラルソートっての知らんけど、その結果見ても仕様通りと思うんだが。
293:デフォルトの名無しさん
18/11/08 22:16:02.65 EeFetNer.net
>>271を訂正 Ruby
puts$<.readlines.sort_by{|a|a.scan(/(\D*)(\d+)/).map{|i,j|[i,j.to_i,j.size]}}
# stdin
a01b2
a1b0002
a130
a12
a001
a1
1
# stdout
1
a1
a1b0002
a01b2
a001
a12
a130
294:デフォルトの名無しさん
18/11/08 23:33:47.08 TLTEncZh.net
誰に何を文句言うわけでもないがナチュラルソートってのは一般に
"01.25" < "1.5"
"01m 25cm" < "1m 35cm" とか
"Chapter 001 section 5" < "Chapter 1 section 6"
となるような順序での整列
逆でもいいけど
問題の仕様はどうかしらんが単に用語の解説ね
295:デフォルトの名無しさん
18/11/08 23:49:40.65 I6IWEGdd.net
今回の問題の仕様とは微妙に違うから回答にはならないけど
echo -e "01m30s\n1m45s\n02m03s" | sort -V
01m30s
1m45s
02m03s
ナチュラルソートならこうなるべきだな
296:デフォルトの名無しさん
18/11/09 09:07:23.82 cVPfgm+I.net
>>287-288の仕様で Ruby
args = [
'01.25', '1.5', '01m 25cm', '1m 35cm',
'Chapter 001 section 5', 'Chapter 1 section 6',
'01m30s', '1m45s', '02m03s'
]
nsort = lambda do |args|
f = ->str{str.scan(/(?=.)(\D*)(\d+(\.\d+)?)/).flat_map{|a, b| b.empty? ? [a] : [a, b.to_r]}}
g = ->str{str.scan(/\d+/).map(&:size)}
args.sort do |str1, str2|
comparison = f[str1] <=> f[str2]
comparison.zero? ? g[str1] <=> g[str2] : comparison
end
end
p nsort[args]
#=>["01m30s",
"1m45s",
"01m 25cm",
"1m 35cm",
"01.25",
"1.5",
"02m03s",
"Chapter 001 section 5",
"Chapter 1 section 6"]
297:デフォルトの名無しさん
18/11/09 17:42:13.83 SNvr5Euv.net
>>269
『チンポ』については、自分でも良くわからない、何とも言えない不思議な生き物だ。
298:デフォルトの名無しさん
18/11/09 18:36:42.14 B4AEy6G3.net
お題
1以上N以下の奇数を並べた数の桁数を求めよ
3
=> 2 (13)
10
=> 5 (13579)
9999
=> 19445 (135...99979999)
123456789
=> ?
31415926535897
=> ?
299:デフォルトの名無しさん
18/11/09 18:45:16.11 DHGOZxva.net
>>291
桁数というか奇数が何個かって話やね。
わざわざ分かりにくい仕様とか、コミュ障かと。
300:デフォルトの名無しさん
18/11/09 18:47:33.93 DHGOZxva.net
ん、ああ。
10とか100とかになったら個数と桁数は違うか。
悪かった。
301:デフォルトの名無しさん
18/11/09 19:31:42.41 myvceSEv.net
お題
与えられた数を最小文字数で生成する。
302:デフォルトの名無しさん
18/11/09 19:36:37.28 b84kY48J.net
>>291 rust
URLﾘﾝｸ(ideone.com)
303:デフォルトの名無しさん
18/11/09 19:38:13.95 JsSTi+Gx.net
>>294
問題の意味がわからん。何か例を書いてくれ。
304:デフォルトの名無しさん
18/11/09 19:45:38.08 OW/zGENl.net
意味のわからない日本語を解析する
305:デフォルトの名無しさん
18/11/09 19:46:38.02 A6qAb8kp.net
134217728 が与えられたら 8^9 を返すとかそういう話かね？
306:デフォルトの名無しさん
18/11/09 19:46:54.75 EUp1VEAA.net
>>291
Haskell
main = mapM_ print $ zip3 lst fosl fos
oddstr [] = []
oddstr (x:xs) = show x:oddstr xs
fo = map (\x-> filter (odd) [1..x]) lst
foo f = map (f.concat.oddstr) fo
fos = foo id
fosl = foo length
lst = [3,10,999,123456789,31415926535897]
コードはすぐ出来たけど、計算が終わらないw
奇数が多すぎてバッファに残ってなさそうだから、ファイルにリダイレクトし直しかな。。。
307:デフォルトの名無しさん
18/11/09 20:06:34.46 JsSTi+Gx.net
>>291
スマホから直接一度も試さずに書くが、Kotlin だと理屈の上ではこれでできると思う。
nが最大値な。
println((1..n step 2).joinToString("").length)
かといってこんなのメモリ食うだけ。
308:デフォルトの名無しさん
18/11/09 20:38:18.97 Zs2FyImb.net
>>291 Ruby
args = [0, 1, 2, 3, 10, 9999, 123456789, 31415926535897]
floor_log10 = -> n {r = 1; (0..n).find{ r *= 10; r > n}}
kotae = ->n{
x = floor_log10[n + 1]
((9*x - 1)*10**x + 10)/18 + (n-10**x+1)/2 * (x
309: + 1) + (n < 8 ? n & 1 : 0) } args.each{|e| puts '%d => %d' % [e, kotae[e]]} # => 0 => 0 1 => 1 2 => 1 3 => 2 10 => 5 9999 => 19445 123456789 => 500000000 31415926535897 => 214355930195731
310:デフォルトの名無しさん
18/11/09 21:56:37.18 lMSYlD+9.net
>>301
なんで
311:デフォルトの名無しさん
18/11/09 21:58:02.15 lMSYlD+9.net
すまん。途中で誤爆した。
>>301
なんでこうなるの？？
あと最後のn < 8 ? n & 1 : 0も数式で表わせる？
312:デフォルトの名無しさん
18/11/09 22:05:09.74 gJrymgLI.net
>>291
Python3
print(len("".join(map(str, range(1, int(input())+1, 2)))))
を実行したらフリーズしたので
odd = range(1, int(input())+1, 2)
keta = 0
for i in odd:
keta += len(str(i))
print(keta)
#==============
123456789
=> 500000000
31415926535897
=> 終わらん
313:デフォルトの名無しさん
18/11/09 22:09:18.25 EUp1VEAA.net
>>299
123456789の桁数は500000000ってのは分かった。
314:デフォルトの名無しさん
18/11/09 22:23:23.31 PBoRuHnu.net
>>303
0からnまでの奇数を並べてできる数の桁数をf(n)とすると(n >= 0)
p := [log10(n+1)] として n >= 10の時
f(n) = Σ[k は 0～[(n-1)/2]]( (2k+1)の桁数 )
= 1*(0～9までの奇数の数) + 2*(10～99までの奇数の数) + ...
+ p*(10^(p-1)～10^p-1までの奇数の数) + (p+1)*(10^p～nまでの奇数の数)
= 1*5 + Σ[k は 2～p]45k*10^(k-2) + (p+1)*[(n - 10^p + 1)/2]
= 45/100*Σ[k は 1～p]k*10^k + 1/2 + (p+1)*[(n - 10^p + 1)/2]
= ((9p - 1)10^p + 1)/18 + 1/2 + (p+1)*[(n - 10^p + 1)/2]
= ((9p - 1)10^p + 10)/18 + (p+1)*[(n - 10^p + 1)/2] …… (*)
n = 0, 2, 4, 8, 9 の時はちょうど (*)
n = 1, 3, 5, 7 時は (*) + 1 なので
f(n) = ((9p - 1)10^p + 10)/18 + (p+1)*[(n - 10^p + 1)/2] + (n < 8 ? n & 1 : 0)
末尾の項を無理やり数式にしたいなら
[8/(n + 1)]((1 - (-1)^n)/2)(2^((5 - n)/2)([n/7] + 1))
とかにすればいいんじゃない意味ないけど
315:デフォルトの名無しさん
18/11/09 23:35:53.00 QKOvQ/Be.net
>>291 Squeak/Pharo Smalltalk
| fn |
fn := [:N |
| nDig |
nDig := N log truncated.
(1 to: nDig)
inject: (1 to: N by: 2) size * (nDig + 1)
into: [:tot :m | tot - ((10 raisedTo: m) / 2)]
].
#(3 10 9999 123456789 31415926535897) collect: fn
"=> #(2 5 19445 500000000 214355930195731) "
316:デフォルトの名無しさん
18/11/09 23:56:11.30 EzT7HP1o.net
>>306
訂正
((9p - 1)10^p + 10)/18 -> [((9p - 1)10^p + 10)/18]
あと (n < 8 ? n & 1 : 0) は (1 - (-1)^n)/2*[3/([√n] + 1)] の方がより簡単か
317:デフォルトの名無しさん
18/11/10 01:35:04.59 PYYpj2JU.net
>>291
Kotlin
URLﾘﾝｸ(paiza.io)
318:デフォルトの名無しさん
18/11/10 04:32:40.14 dp2CGyZQ.net
>>309
すごい😆
319:デフォルトの名無しさん
18/11/10 04:35:26.34 PYYpj2JU.net
>>262
Kotlin
URLﾘﾝｸ(paiza.io)
色々考えたが結局クラス作ってそこに数字列と文字列で切り分けて入れておいて比較時にそこ見るようにした。
入力の仕様は拡張されていて、最初に数字だけがあった場合はその後に続く単語がその個数あるとみなして
入力を行うが、最初に数字がない場合は無制限に読む。出力は入力した単語とソート後の単語を出す。
320:デフォルトの名無しさん
18/11/10 05:36:17.18 zQnB+SVr.net
提案
回答は言語別に別スレで
2スレ位になるかな？
評価価値基準で別れていくんじゃないかと
ここではコメントのみになるのかな。
321:デフォルトの名無しさん
18/11/10 05:52:45.45 5gG2FCqG.net
スレ過疎りそうだし誰もわざわざ別スレに回答見に行かなそう
322:デフォルトの名無しさん
18/11/10 06:43:43.85 zQnB+SVr.net
乱立して過疎ってる特定言語専用スレの活性化に寄与することを願いたいしコード例が増えることはそれぞれメリットあるんじゃないかと。
ここと相互リンクは必ず貼る。他の言語と比較しない
他を貶さないを基本ルールに。
323:デフォルトの名無しさん
18/11/10 07:08:4
324:9.40 ID:mapNUhJU.net
325:デフォルトの名無しさん
18/11/10 08:21:22.38 2tLivqWS.net
＞乱立して過疎ってる特定言語
具体的に何？
一番肝心のこと言ってないから説得力がまるで無い
326:デフォルトの名無しさん
18/11/10 09:22:59.55 dp2CGyZQ.net
お題：
A,B,Cの3人が1から5までの値が1つずつ書かれた5枚のカードを使ってインディアンポーカーを行う。
各々ランダムに1枚カードを引き、自分は値を見ず他の参加者に値が見えるように額にかざす。
この状態でA,B,Cの順に自分の値が今回引かれた3枚の中で最大(MAX)か,2番目に大きい(MID)か,最小(MIN)かを予想して答える。
AとBはパスしてもよいものとし、誰かが答えた時点で終了となる。
なお全員必ず正解するものとする。
各々の引いたカードの値を引数にとり、一回分のインディアンポーカーの結果を出力する関数indian_poker(a, b, c)を実装せよ。
期待動作例:
indian_poker(3, 2, 1) // 「A is MAX」
indian_poker(5, 2, 4) // 「B is MIN」
indian_poker(4, 2, 3) // 「C is MID」
327:デフォルトの名無しさん
18/11/10 09:43:13.06 9vqEahoA.net
そのスレの流れを無視してよそのスレで出されたお題の答えだけ書かれても、そのスレの住人には邪魔なだけだと思う。
328:デフォルトの名無しさん
18/11/10 09:56:28.53 X2YiMm/N.net
こういう指示語ばかり使うやつはだいたい頭悪い
329:デフォルトの名無しさん
18/11/10 10:03:50.52 0iGN/oEh.net
>>317
マ板で見かけた入社試験過去問か。
プログラマー脱落者として辞退します。
330:デフォルトの名無しさん
18/11/10 10:10:03.22 zQnB+SVr.net
乱立して過疎ってる (特定言語専用(スレッド))
形容詞句？の係りはこれな
(こういうものの表しかたにも流儀が色々あって混在するとややこしい)
331:デフォルトの名無しさん
18/11/10 10:19:13.79 2tLivqWS.net
係り受けなんてどーでもいいよ
「特定言語」って具体的に何なんだ、って聞いてるだけじゃん
返答が『形容詞句？の係りはこれな』って人の話をわざと聞かない人間だろ
かなりのサイコパスなんで『乱立して過疎ってるスレ』とやらに誘いこんでマウンティングしたいだけじゃねえの
なぜなら、特定言語の具体的な名前を５時間経っても未だに出さない、
口を開いたかと思えば「係り受けはこうだから」
もう頭がおかしいだろこいつ
332:デフォルトの名無しさん
18/11/10 10:34:20.29 zQnB+SVr.net
一つの言語を話題の軸に置いたスレッドは幾らでもあるだろ？この板には。
過疎ってるのも伸びてるのも全部特定言語専用スレな
333:デフォルトの名無しさん
18/11/10 10:36:44.35 zQnB+SVr.net
コマンドプロンプトとかSQLとかでワイルドカード使ったことないのかな？
334:デフォルトの名無しさん
18/11/10 11:08:46.45 1MT6N26R.net
そもそもここが過疎だし、他スレなんかにここのコード書いても荒らしにしかならんので当然ながら反対
やりたい奴だけ勝手にやってろ
335:デフォルトの名無しさん
18/11/10 11:14:10.79 16GnFLu/.net
>>317
一人が答えた時点で終了になるのに全員正解とは
336:デフォルトの名無しさん
18/11/10 11:20:45.22 zQnB+SVr.net
幾らなんでも既存スレ無許可で乗っ取るのはやめてほしい。
でも逆にそちらで希望された場合には別スレにしなくてもいいのでは？リンクさえあれば
337:デフォルトの名無しさん
18/11/10 11:31:50.87 T2pc5qWv.net
そもそも>>312の時点で日本語が怪しいですし
338:デフォルトの名無しさん
18/11/10 11:33:27.18 16GnFLu/.net
>>317
答えた者が必ず正解するならAが常にあてずっぽうで正解できることになるな
パスする
339:意味も無い 言わんとすることは推測できるが、問題文としては明らかにおかしい 各自、論理的に正解が絞りきれた場合のみ解答し、そうで無ければ必ずパスするものとする。又、その論理に誤りはないものとする。みたいな条件が必要
340:デフォルトの名無しさん
18/11/10 11:34:10.16 g5G2TnXq.net
>>317 Java
URLﾘﾝｸ(ideone.com)
これはひどいコードｗｗ
341:デフォルトの名無しさん
18/11/10 11:36:49.05 16GnFLu/.net
>>330
ごり押しで草
342:デフォルトの名無しさん
18/11/10 11:44:08.17 16GnFLu/.net
Aは常に正解する
Aは常に正しい
故にA is GOD
343:デフォルトの名無しさん
18/11/10 12:18:21.41 2tLivqWS.net
>>317は9月末あたりに話題になってた
URLﾘﾝｸ(qiita.com)
URLﾘﾝｸ(qiita-image-store.s3.amazonaws.com)
344:デフォルトの名無しさん
18/11/10 12:38:22.96 16GnFLu/.net
>>333
元ネタからして雑すぎて草
345:デフォルトの名無しさん
18/11/10 12:44:49.01 gks79eHH.net
前スレ951のやつか
346:デフォルトの名無しさん
18/11/10 12:44:51.58 xqriZsUd.net
>>317 Ruby
def indian_poker(a, b, c)
x = [Set[1, 2], Set[1, 5], Set[4, 5]]
winner, winners_num = case
when x.include?(Set[b, c]) then [?A, a]
when a == 3 || (b == 3 && Set[a, b, c] != Set[2, 3, 4]) || x.include?(Set[a, c]) ||
Set[b, c] == Set[2, 4] then [?B, b]
else [?C, c]
end
'%s is %s' % [winner, %w[MIN MID MAX].zip([a, b, c].sort).find{|e| e.last == winners_num}.first]
end
arr = [*(1..5)].permutation(3){|i| puts '%p -> %s' % [i, indian_poker(*i)]};
# =>
[1, 2, 3] -> C is MAX
[1, 2, 4] -> B is MID
[1, 2, 5] -> B is MID
...
以下>>330と同じ
347:デフォルトの名無しさん
18/11/10 13:25:37.16 hLxIIZfE.net
>>329
> 各自、論理的に正解が絞りきれた場合のみ解答し、そうで無ければ必ずパスするものとする。又、その論理に誤りはないものとする。みたいな条件が必要
流石にその程度は理解しようよ…
348:デフォルトの名無しさん
18/11/10 13:27:54.99 8cjk91S6.net
>>291 python3
URLﾘﾝｸ(ideone.com)
うーん… O(1)にできない
349:デフォルトの名無しさん
18/11/10 13:37:54.71 16GnFLu/.net
>>337
書いてないことは何でもあり
論理パズルにするならちゃんとルールは全て掲示しないと駄目
350:デフォルトの名無しさん
18/11/10 13:52:54.08 9b5VuL4P.net
お題
n^n^nの下2桁を求めよ(^はべき乗、nは1以上の整数)
1 => 1
2 => 16 (2^2^2 = 2^4 = 16)
3 => 87 (3^3^3 = 3^27 = 7625597484987)
4 => 96
11 => 11
13 => 53
100 => 0
777 => ??
351:デフォルトの名無しさん
18/11/10 14:00:49.74 hLxIIZfE.net
>>339
はいはい w
アスペかよ
352:デフォルトの名無しさん
18/11/10 15:46:45.95 16GnFLu/.net
>>340
777の出力は77になればいいのかな？
その入力でこうなるの面白いな
353:デフォルトの名無しさん
18/11/10 15:58:06.48 xqriZsUd.net
>>342
97じゃない？
354:デフォルトの名無しさん
18/11/10 16:06:41.30 16GnFLu/.net
>>343
すまんコード修正したら97になったわ
はやとちりだった
355:デフォルトの名無しさん
18/11/10 16:28:23.31 31tiZVqm.net
>>330-331
そういうのはそれよりマシなコードを出してから言わないと単なる口先番長にしか見えないぞw
356:デフォルトの名無しさん
18/11/10 17:09:13.33 xqriZsUd.net
>>340 Ruby
def powmod(n, e, m)
case e
when 0 then 1
when :even?.to_proc then powmod(n * n % m, e >> 1, m)
else n * powmod(n, e - 1, m) % m
end
end
def kotae(n, m)
index, cycle = (1..m).each_wit
357:h_object([1]) do |i, a| x = (a.last * n % m) ind = a.index(x) ind.nil? ? a.push(x) : (break([ind, i - ind])) end x = n.times.reduce(1){|r, i| r *= n; r < index ? r : break} y = x.nil? ? index + (powmod(n, n, cycle) - index) % cycle : x powmod(n, y, m) end [0, 1, 2, 3, 4, 5, 10, 11, 13, 100, 777].each{|i| puts '%d -> %06d' % [i, kotae(i, 10**6)]} # =>0 -> 000000 1 -> 000001 2 -> 000016 3 -> 484987 4 -> 084096 5 -> 203125 10 -> 000000 11 -> 906611 13 -> 549053 100 -> 000000 777 -> 977097
358:デフォルトの名無しさん
18/11/10 17:30:26.21 g5G2TnXq.net
>>345
自分で書いて自分でひどいコードと言うとるんやがｗｗ
359:デフォルトの名無しさん
18/11/10 17:52:39.10 AvCW4uHY.net
python
def ans(num):
_def calc(N):
__n = (N ** 2) % 100
__p = []
__while n not in p:
___p.append(n)
___n = (n * N) % 100
__return p
_loop = calc(num)
_step = num**num % len(loop)
_if len(loop) == 1:
__print(loop[0])
_else:
__print(loop[step-2])
for x in [0,1,2,3,4,5,10,11,13,777]:
_ans(x)
-> 0,1,16,87,96,25,0,11,53,97
360:デフォルトの名無しさん
18/11/10 17:55:30.82 hLxIIZfE.net
>>347
ああ、それはすまん
俺もパッと書けと言われたらこれしか思いつかんわ
361:デフォルトの名無しさん
18/11/10 19:50:00.93 nd1h6x9x.net
>>347
わかった上で愚直にごり押しコード書いただけだよな
引数順列の列挙もドストレートで素敵w
362:デフォルトの名無しさん
18/11/10 20:50:56.73 G7iMNc/F.net
>>317 Squeak/Pharo Smalltalk
| numOfCards indianPoker |
numOfCards := 5.
indianPoker := [:args |
| cards names infer |
cards := (1 to: numOfCards) asArray.
names := (Character alphabet asUppercase first: args size) asArray collect: #asSymbol.
infer := nil. (infer := [:dealts :limit |
| turn possibilities lastAns answers |
turn := 0. answers := OrderedCollection new.
possibilities := dealts collect: [:dealt | cards asSet removeAll: dealts; add: dealt; yourself].
lastAns := nil -> #?.
[lastAns value = #? and: [(turn := turn + 1) < limit]] whileTrue: [
| myCards others |
myCards := possibilities atWrap: turn.
turn > 1 ifTrue: [
(myCards copyWithout: (dealts atWrap: turn)) do: [:pCard |
(infer value: (dealts copy atWrap: turn put: pCard; yourself) value: turn) value ~= #?
ifTrue: [myCards remove: pCard]]].
others := dealts copyWithoutIndex: turn - 1 \\ 3 + 1.
lastAns := (names atWrap: turn) -> (true caseOf: {
[others min > myCards max] -> [#MIN].
[others max < myCards min] -> [#MAX].
[others max > myCards max and: [others min < myCards min]] -> [#MID]
} otherwise: [#?])
]. lastAns]) value: args value: Float infinity
].
indianPoker value: #(3 2 1). " #A->#MAX "
indianPoker value: #(5 2 4). " #B->#MIN "
indianPoker value: #(4 2 3). " #C->#MID "
363:デフォルトの名無しさん
18/11/11 03:24:01.44 HtKIrWnT.net
>>340 python3
URLﾘﾝｸ(ideone.com)
364:デフォルトの名無しさん
18/11/11 10:02:52.73 ZG9KPLpE.net
>>340
Rubyで。
URLﾘﾝｸ(ideone.com)
365:デフォルトの名無しさん
18/11/11 12:53:19.00 ILkwXRqJ.net
>>340 Squeak/Pharo Smalltalk
| fn |
fn := [:N |
(Array new: 3 withAll: N) reduce: [:mex :n |
mex \\ 100 = 0 ifTrue: [0] ifFalse: [n raisedTo: mex modulo: 100]
]
].
#(1 2 3 4 11 13
366:100 777) collect: fn "=> #(1 16 87 96 11 53 0 97) "
367:デフォルトの名無しさん
18/11/11 14:11:48.73 j7sl2u35.net
>>354
それだけでいけるのか
すげー
368:デフォルトの名無しさん
18/11/11 14:19:03.18 SClia95W.net
それでもJﾆｷなら何とかしてくれる
369:デフォルトの名無しさん
18/11/11 14:25:13.88 j7sl2u35.net
よく読んだら素直に実装してるだけか
370:デフォルトの名無しさん
18/11/11 14:34:26.37 ILkwXRqJ.net
>>357
ですね…^^;
371:デフォルトの名無しさん
18/11/11 16:24:01.50 xWJTm2Oc.net
お題
n次のヒルベルト曲線を描画せよ
n=1
■□■
■□■
■■■
n=3
■□■■■■■□■■■■■□■
■□■□□□■□■□□□■□■
■■■□■■■□■■■□■■■
□□□□■□□□□□■□□□□
■■■□■■■□■■■□■■■
■□■□□□■□■□□□■□■
■□■■■■■□■■■■■□■
■□□□□□□□□□□□□□■
■■■□■■■■■■■□■■■
□□■□■□□□□□■□■□□
■■■□■■■□■■■□■■■
■□□□□□■□■□□□□□■
■□■■■□■□■□■■■□■
■□■□■□■□■□■□■□■
■■■□■■■□■■■□■■■
372:デフォルトの名無しさん
18/11/11 17:11:10.50 Gv5Fmm22.net
>>340 Perl5
use bignum (l=>GMP);
for $i (1,2,3,4,11,13,100,777) {
$j = $i % 100;
$k = $j ** $j % 100;
$p = $j ** $k % 100;
printf "$i %02d\n", $p;
}
実行例
$ time perl 12_338.pl
1 01
2 16
3 87
4 96
11 11
13 53
100 00
777 97
0.562 secs
373:デフォルトの名無しさん
18/11/11 17:52:24.96 tvDFPkAv.net
>>359 Ruby
def hilbert_curve(n)
return [[1, 0, 1], [1, 0, 1], [1, 1, 1]] if n == 1
hc = hilbert_curve(n - 1)
[
*hc.transpose.reverse.zip(hc.reverse.transpose).map{|a, b| [*a, 0, *b]},
[1, *Array.new(2**(n + 1) - 3, 0), 1],
*hc.zip(hc).map.with_index{|(a, b), i| [*a, 1/(i + 1), *b]}
]
end
[1, 3].each{|e| puts "n = #{e}", hilbert_curve(e).map{|a| a.join.gsub(/\d/, ?0 => ?□, ?1 => ?■)}.join($/)}
# => n = 1
■□■
■□■
■■■
n = 3
■□■■■■■□■■■■■□■
■□■□□□■□■□□□■□■
■■■□■■■□■■■□■■■
□□□□■□□□□□■□□□□
■■■□■■■□■■■□■■■
■□■□□□■□■□□□■□■
■□■■■■■□■■■■■□■
■□□□□□□□□□□□□□■
■■■□■■■■■■■□■■■
□□■□■□□□□□■□■□□
■■■□■■■□■■■□■■■
■□□□□□■□■□□□□□■
■□■■■□■□■□■■■□■
■□■□■□■□■□■□■□■
■■■□■■■□■■■□■■■
374:デフォルトの名無しさん
18/11/11 22:01:36.28 B3f/927d.net
>>340
Haskell
素直に書いた版。
何やってるかは分かりやすい。
main = mapM_ put $ zip list $ map f list
put (x,y) = putStr (show x ++ ":") >> print y
f x = (x ^ x ^ x) `mod` 100
list = [1,2,3,4,5,6,7,8]
375:デフォルトの名無しさん
18/11/11 22:10:56.11 B3f/927d.net
Haskell
Perlの人のパクリ版(めちゃ速い)
main = mapM_ put $ zip list $ map f list
put (x,y) = putStr (show x ++ ":") >> print y
f x = p
where j = x `mod` 100
k = j ^ j `mod` 100
p = j ^ k `mod` 100
list = [1,2,3,4,11,13,100,777]
376:デフォルトの名無しさん
18/11/11 22:20:34.69 xWJTm2Oc.net
>>360
n=10のときどうなる?
377:デフォルトの名無しさん
18/11/11 23:54:52.39 VLVUrnJ+.net
指数を100の剰余取ってるのってどういう根拠なの？
378:デフォルトの名無しさん
18/11/11 23:59:16.36 lebYcZ/K.net
>>364
use bignum (l=>GMP);
for $i (10) {
$j = $i % 100;
$k = $j ** $j % 100;
$p = $j ** $k % 100;
printf "$i %02d\n", $p;
}
$i = 10;
print ($i**$i)**$i;
実行結果
$ perl 12_338_1.pl
10 01
10000000000
ﾀﾞﾒですね合いませんね。
単に左辺を%100すると一般性はありませんでした。サーせん。
ちゃんと循環性を見るとか、別の解法が要りますね
379:デフォルトの名無しさん
18/11/12 00:02:23.31 EX0FpiMD.net
ちなみに循環性を見るとこんな感じになってました
use bignum (l=>GMP);
use Tie::IxHash;
use feature 'say';
for $i (0,1,2,3,4,5,10,11,13,777) {
tie my %h,'Tie::IxHash';
$p = $i;
for (1..100) {
last if exists $h{$p} and $h{$p} > 10;
$h{sprintf "%02d", $p % 100} = $_;
$p = $p * $i % 100;
}
@a = keys %h;
say "$i: ", scalar @a, ": @a", ": $p";
}
実行結果
1: 1: 01: 1
2: 21: 02 04 08 16 32 64 28 56 12 24 48 96 92 84 68 36 72 44 88 76 52: 48
3: 20: 03 09 27 81 43 29 87 61 83 49 47 41 23 69 07 21 63 89 67 01: 47
4: 10: 04 16 64 56 24 96 84 36 44 76: 16
5: 2: 05 25: 25
10: 2: 10 00: 0
11: 10: 11 21 31 41 51 61 71 81 91 01: 11
13: 20: 13 69 97 61 93 09 17 21 73 49 37 81 53 89 57 41 33 29 77 01: 37
777: 20: 77 29 33 41 57 89 53 81 37 49 73 21 17 09 93 61 97 69 13 01: 73
380:デフォルトの名無しさん
18/11/12 00:03:57.97 EX0FpiMD.net
>>366
× 単に左辺を%100
○ 単に右辺(指数)を%100
381:デフォルトの名無しさん
18/11/12 00:05:03.96 JEwLf6Zk.net
>>366
それは0乗しちゃってるからじゃない？
382:デフォルトの名無しさん
18/11/12 00:10:02.50 EX0FpiMD.net
>>369
10については、そういわれてみればそうだね。
383:デフォルトの名無しさん
18/11/12 00:11:06.48 D6ILV7Jx.net
>>366
iが10で割り切れれば00って別で切り分ければ良いんじゃ無いかな。
384:デフォルトの名無しさん
18/11/12 00:18:43.46 EX0FpiMD.net
>>371
10については、そいうやり方も考えられるけど
上記の循環の例の11,13,777は指数を%100しても解は合うが
他の数値も単に指数を%100して解が合うか、一般性は疑わしいので、
>>360はちょっと勇み足だったかもしれないﾃﾍﾍﾟﾛ
385:デフォルトの名無しさん
18/11/12 00:19:14.52 JEwLf6Zk.net
>>367
0～99までとりあえず循環部分の周期は全て20の約数になるみたいだけど
数学雑魚の俺には理屈がわからなかった
とりあえず、ざっくり100の剰余取るだけだと循環開始より小さい指数になったときにおかしくなりそう
386:デフォルトの名無しさん
18/11/12 00:52:30.78 +qrAueUv.net
>>372
寧ろそれが成り立つ方がかなり特別なケースだぞ
387:デフォルトの名無しさん
18/11/12 02:34:45.23 MtlIUxHY.net
多分数学的には証明されていることだろうと思うが、x ^ 100 とか x ^ 200 とか x ^ 300 って、
下3桁の結果が同じになるようだな。どうしてかはわからんが。多分考えて行くとその内わかる
んだろう。後の事は数学が得意な人に任せた。
388:デフォルトの名無しさん
18/11/12 04:19:59.43 lDwndekZ.net
x^22 - x^2
が常に100で割り切れるのが理由だと思う
なので巡回群の長さは高々20までになる
389:デフォルトの名無しさん
18/11/12 04:44:54.48 lDwndekZ.net
もう少し分かりやすく書くと x^20 - 1 と x^21 - x が
100で割り切れる保証はない（実際大部分は割り切れない）が
x^22 - x^2 は絶対に100で割り切れる（合同式を用いれば証明は簡明）ので
一般に2以上の自然数 n に対して x^(n+20) - x^n ≡ 0 mod 100が成り立つ（xは整数）
よって一般に指数部の20の剰余を取っても問題ないと言える
390:デフォルトの名無しさん
18/11/12 04:49:06.55 fKeD1dzA.net
>>375
任意の整数 10n + r (-4 <= r <= 5)に対して
(10n + r)^100 = r^100 mod 1000 なので mod 1000 で
0^100 = 0
5^100 = 625^25 = 625
(±1)^100 = 1
(±2)^100 = 24^10 = 376
(±3)^100 = 243^5 = 1
(±4)^100 = 376^2 = 376
となって 0, 1, 376, 625 は2乗しても下3桁は変わらないから
任意の整数は100n乗しても下3桁は常に同じだね
391:デフォルトの名無しさん
18/11/12 09:11:34.15 WiNaWTIj.net
数学板でやれ。問題からしてクソだった。
392:デフォルトの名無しさん
18/11/12 10:17:56.51 iaSpw+rm.net
これ以上はスレ違いってなら同意だけど問題自体は別に良かっただろ
393:デフォルトの名無しさん
18/11/12 11:03:12.07 oQPj2WUY.net
とりあえず>>340の出題者は用意してあった解答を出そうか
くそ問題かどうかはそれを見て判断する
394:デフォルトの名無しさん
18/11/12 11:11:40.60 iaSpw+rm.net
既に回答がたくさん出てるのにクソ問題も何もねえだろ
395:デフォルトの名無しさん
18/11/12 11:51:52.42 oQPj2WUY.net
回答の多さとクソさとの相関はないだろ
例えばQiitaでいいねが多ければクソじゃないということがないのと同じように
そういうのはいいから出題者は早めに解答だしてくれ
396:デフォルトの名無しさん
18/11/12 12:01:03.54 iaSpw+rm.net
ボクがわからないからクソとか草生えるわ
なんでお前の救い難い知的レベルに合わせてやらなければならいんだよ
397:デフォルトの名無しさん
18/11/12 12:07:32.95 iShTB70W.net
>>383
最近のQiitaのトレンド見てて いいねの数=内容の薄さ だと思うようになってきたわ
398:デフォルトの名無しさん
18/11/12 12:11:20.95 b6USGf7s.net
今回の問題はべき剰余の特殊な場合を求めるものだけど、工夫する余地もいくつかあり悪い問題ではないと思った。
というかなぜこれを悪い問題だと思ったんだ？
399:デフォルトの名無しさん
18/11/12 12:19:11.85 DYCuacpe.net
競技プログラミングなんかでよく見るタイプの問題なのにな。
400:デフォルトの名無しさん
18/11/12 12:23:12.24 hXyGmgtP.net
a↑↑b mod n を一般化してみたらテトレーション計算より
最初に使うφ(n)の計算のほうが重かった
10**nなら2**n * 5**nなので高速に計算できますけども
401:デフォルトの名無しさん
18/11/12 12:28:21.72 TKKxOWxM.net
このスレは不特定言語スレだけど
高速性ならC/C++/Rast
コンパクト性の追求ならSmallTalkとかRubyとか
RADならJavaとかPythonとか定番固定化。
既にもうある程度少数特定言語スレになりつつあ
る希ガス
402:デフォルトの名無しさん
18/11/12 12:28:55.23 TKKxOWxM.net
RastじゃなくてRustやったなｗｗｗ
403:デフォルトの名無しさん
18/11/12 12:49:28.80 7mLFygVa.net
>>384
> なんでお前の救い難い知的レベルに合わせてやらなければならいんだよ
数学の素養のあるっぽいやつのよくやりがちなダメな考え方だな
そういう(逆)選民思想を持っているならこのスレで出題するのはやめてくれ
そもそも良問と思うものをけなされるお前自身がたのしくないだろ？
404:デフォルトの名無しさん
18/11/12 12:56:08.79 1XBBjLKo.net
いずれにせよ出題者がどこまで考えて出題したか（つまり良問か否か）はそいつ自らの解答を見れば一目瞭然だよ
論よりコード
はよ出せ
405:デフォルトの名無しさん
18/11/12 13:24:01.86 WWnCJgTu.net
問題の良さって問題じゃなく解答で決まるものなのか？
問題だけで問題の良さが確定しないのは初めて知ったわ
406:デフォルトの名無しさん
18/11/12 13:26:44.24 DYCuacpe.net
も一回言うけどこの問題はプログラミングのお題としてはよく見るような問題だぞ。
揚げ足取りというか難癖付けてる奴はおかしいだろ。
それこそスレチだから黙ってろよ。
407:デフォルトの名無しさん
18/11/12 13:28:23.55 X+KqJ1/Z.net
>>393
解答で決まるなんて誰もいっとらんがな（数学の前にやることあるんじゃ？ｗ）
解答を見れば「どこまで考えて出題したか」が一目瞭然ということ
どこまで考えて出された問題かで良問か否かが決まる
もとより様々な状況で「結果的に良問」ということは実際あるしそれは否定する気は無いが、蓋然性は低い
408:デフォルトの名無しさん
18/11/12 13:38:11.17 b6USGf7s.net
この程度のことで選民思想がどうのとか言い出すのはおかしいと思うよ。
冪剰余の計算は面白いテーマだし。
逆に悪問だと言ってる人がその根拠を示すべきだと思うんだけど。
409:デフォルトの名無しさん
18/11/12 13:57:27.23 9RzF2H48.net
>>396
「この程度（のレベル）」とか言ってる選民思想バリバリの奴が
自分は違うって体で何か主張したところでぜんぜん説得力ないんだがｗ
ともあれ、回答が多い割に文句なしの正答が出てこないのがこのスレ的には異常事態だろ
お題 and/or 出題者をクソだと疑う十分な根拠になりうる
410:デフォルトの名無しさん
18/11/12 14:13:38.48 b6USGf7s.net
>>397
英語の授業で"How are you?" "I'm fine. Thank you" って言ったら「ペダンチックだ。帰国子女ぶるな」といわれたくらいに衝撃的。
大体問題が理解できないのに「文句なしの正答」を見極められるというのはおかしくない？
こっちからすればここに既にある回答の内のいくつか(>>352とか)は「文句なしの正答」なんだけど。
問題が理解できないのに「文句なしの正答」を見極められるならそれらのどこが不十分なのか説明しなさい。
それができなければ数学ができる出来ない以前にただのモンスタークレーマーみたいな傲慢野郎だ。
411:デフォルトの名無しさん
18/11/12 14:16:13.02 CqB5lm+V.net
まーた頭おかしいのが暴れてんのか
>>397はNGぶっこむからIDころころ変えるな
もしくはコテハンつけろよゴミが
412:デフォルトの名無しさん
18/11/12 14:24:13.52 D6ILV7Jx.net
>>359とか良い問題じゃ無い？
私は解けないが。
413:デフォルトの名無しさん
18/11/12 16:17:37.15 9RzF2H48.net
>>398
いくつかってずいぶん曖昧だなｗ
お前の文句なしってセンス疑うわｗ
414:デフォルトの名無しさん
18/11/12 16:22:54.34 CqB5lm+V.net
>>401
>>352に文句つけてみろよ無能ゴミクズが
415:デフォルトの名無しさん
18/11/12 16:27:56.77 9RzF2H48.net
あとお前ら（直近ではID:9RzF2H48とID:CqB5lm+V）
勝手にクソ問題断定のクレーマー扱いしとるが
出題者の用意していた解答次第では良問の可能性も（わずかだが）あるんだからな
ほどほどにしとけよｗ
416:デフォルトの名無しさん
18/11/12 16:29:53.16 9RzF2H48.net
いかん自分を安価しちゃったよID:b6USGf7sな
417:デフォルトの名無しさん
18/11/12 16:33:57.40 DYCuacpe.net
どうやら ID:9RzF2H48 は人を馬鹿にしたいだけみたいだな。
きちんと説明してもらってんのに言ってることがわけわからんし。
冪剰余の最適化なんて教科書にあってもいいくらいものすごくありふれたお題だっていうのに馬鹿らしい。
418:デフォルトの名無しさん
18/11/12 16:37:03.80 CqB5lm+V.net
数学の話ししてるのにイライラして思わずクソ問題呼ばわりして引くに引けなくなったんだろ
419:デフォルトの名無しさん
18/11/12 16:43:20.29 b6USGf7s.net
>>401
いやだから>>352とかって例を挙げてるでしょ。ばかにしてる？
それで結局悪問だという根拠は示せないんだよね？
じゃあ悪いことしたんだからまだいるか知らないけど出題者に謝罪しようね。
君ははっきり言って不快だよ。
420:デフォルトの名無しさん
18/11/12 16:46:44.76 9RzF2H48.net
>>405
本音がでたなｗ中立ぶるよりお前ららしいわ
>>406
こんなん数学に入るかボケが
つーかお前のためにID固定してやってんだからレスすんな
421:デフォルトの名無しさん
18/11/12 16:52:28.57 9RzF2H48.net
>>407
自分で回答も出せないやつが他人のコード気安く挙げてんじゃねーよ
お前が考えて出したコードならいくらでもケチつけたるわｗ
422:デフォルトの名無しさん
18/11/12 16:55:43.17 CqB5lm+V.net
>>408
図星突かれて痛かったのか？
バカを愚弄するのはホント楽しいわ
てか「数学板でやれ。問題からしてクソだった」って言ってたくせにこんなの数学に入らないっておかしいだろ
数学に入らないなら数学板推すなよアホか
結果的に数学よりも遥かにスレ違いの話題でこの場を荒らして皆に迷惑かけてんのはお前だ
お前はみんなの迷惑なの
423:デフォルトの名無しさん
18/11/12 17:00:57.95 b6USGf7s.net
>>409
＞ともあれ、回答が多い割に文句なしの正答が出てこない
って言うからその反例として件のレスなのに、開き直ってお前がコード書けだなんて控えめに言って狂ってる。
相手が言ったことも読まないし自分が行ったことすら覚えていないんじゃあ対話不可能。
ただただ不快な存在。
424:デフォルトの名無しさん
18/11/12 17:01:55.26 D6ILV7Jx.net
>>340 は情報爆発でメモリ使いまくる処理をいかにメモリ使わずに処理できるかって意味じゃ悪く無いと思う。
私はプログラマーじゃ無いから思い付けなかったが、こう言うのはプログラマーの本領発揮する分野じゃないかな。
そして >>359 も解けない私。。。Orz
GUIならネットに落ちてるけど、CUIってのが味噌だよね。
425:デフォルトの名無しさん
18/11/12 17:02:08.43 9RzF2H48.net
>>407
それは出題者のコードじゃないだろ？
ほんとお前、日本語読解とか論理的思考とか大丈夫なの？
426:デフォルトの名無しさん
18/11/12 17:02:52.43 9RzF2H48.net
正直、ばかにはしているｗ
427:デフォルトの名無しさん
18/11/12 17:03:00.49 DYCuacpe.net
>>408
ものすごくありふれたお題に文句付けてるんだからあきれてものも言えないってだけ。
別に中立ぶってなどいない。お前のことは見下してるが。
428:デフォルトの名無しさん
18/11/12 17:06:56.26 b6USGf7s.net
>>413
＞ともあれ、回答が多い割に文句なしの正答が出てこない
と言ったのはそちらで、それに対してこっちがその反例として件のレスを挙げたのに本気で意味不明。
会話を破綻させに行っているのは君でしょ。自分が書いたことすら覚えていないのだから。
さすがに不愉快だ。
429:デフォルトの名無しさん
18/11/12 17:08:31.84 1o1kfQH0.net
馬鹿は相手がどの高さいるのかもわからずに人を馬鹿にする
頭が悪いので周囲が何を言ってるのか何一つ理解できない
そして自尊心の塊
430:デフォルトの名無しさん
18/11/12 17:08:37.05 CqB5lm+V.net
ここまできっちり論破されてるとキチガイ相手でも哀れになってくるな
431:デフォルトの名無しさん
18/11/12 17:13:08.29 9RzF2H48.net
>>416
お前は自分の「文句なし」に自信持ちすぎだろｗ
あと「出題者の用意していた解答次第では良問の可能性も（わずかだが）ある」は無視ですかそうですか
432:デフォルトの名無しさん
18/11/12 17:15:33.59 9RzF2H48.net
>>418
だからお前は反応するなと何度言わせる？ｗ
433:デフォルトの名無しさん
18/11/12 17:17:08.81 b6USGf7s.net
>>419
対話する意図がないと判断した。
もういい。疲れた。
控えめに言って、君はもう死んだ方が良いよ。
434:デフォルトの名無しさん
18/11/12 17:21:16.54 4IQEu5Ky.net
最近あっちこっちで暴れてる単芝君か
5chに居場所が無くてもリアル犯罪に走るなよな
435:デフォルトの名無しさん
18/11/12 17:21:58.58 D6ILV7Jx.net
良い加減にしろ！
もうオマイらで >>340 の文句なしの正当とやらを出し合えや。
436:デフォルトの名無しさん
18/11/12 17:23:23.00 eZ2UdI/8.net
・数学の話ばかりしてうざい ←わかる
・作者は答え書いて ←わからなくもない
・答え書かないからクソ問題！ ←は？
437:デフォルトの名無しさん
18/11/12 17:54:26.10 9RzF2H48.net
>>424
誤解があるので訂正しておくけど
出題者が「落とし穴」をちゃんと想定できていれば良問だしそれを確認せんがための「答え出せ」だよ
でも、勘違いしたままたまたま答えが合ってしまう入出力例しか提示されていない
and/or それを排除できる例を出せない時点でこの問題はそれなりにクソ問題だと思う
引っ掛けて貶めたり、選抜や順位を競うことを目的とした場所じゃないんだからここは
438:デフォルトの名無しさん
18/11/12 18:12:43.91 eZ2UdI/8.net
n^n^n % 100計算するのに落とし穴も何もないだろ
フェルマーの小定理チックに指数部で剰余とるだなんて誰も想定できねえよ
なんでキチガイは間違えたらそこから学ばずに問題の方(しかも真っ当
439:)にケチ付けるんだか 運動会で転ぶと怪我をするからグラウンドの至る所にクッションを置いておけと言うモンペと同レベルのキチガイ
440:デフォルトの名無しさん
18/11/12 18:26:31.10 bzMEonQL.net
なんで数学板でやらないのかね。
数学板ではザコだからプログラム板でマウント取りたいとか？ｗｗ
441:デフォルトの名無しさん
18/11/12 18:28:01.10 CqB5lm+V.net
>>427
ID変えんなやキチガイ
442:デフォルトの名無しさん
18/11/12 18:32:41.33 9RzF2H48.net
>>426
住人かと思ってちょっと丁寧にレスしたらこれだよ ┐(´-｀)┌
443:デフォルトの名無しさん
18/11/12 18:34:56.16 9RzF2H48.net
>>428
変えてないし、そもそも俺だと思うならレスすんなよ…
444:デフォルトの名無しさん
18/11/12 18:55:17.39 eZ2UdI/8.net
>>429
お前以外誰もその問題にケチ付けてねえのに住人面すんな
素直に頭悪いが悪いのが悔しいですって言えよ
445:デフォルトの名無しさん
18/11/12 19:18:26.81 h68nq2of.net
プログラミングできてもネットリテラシーは低いんだな
446:デフォルトの名無しさん
18/11/12 19:28:11.51 +FWS6rf7.net
ID:9RzF2H48
こいつ前からこの板荒らしまくってる粘着野郎だぞ
意思疎通は不可能だから無視しとけ
447:デフォルトの名無しさん
18/11/12 19:45:44.72 4WXaKeF0.net
お題
1900年から2018年までの、7月31日が土曜日である年を全て挙げよ
448:デフォルトの名無しさん
18/11/12 19:52:33.63 n3BneZmq.net
なんで？
449:デフォルトの名無しさん
18/11/12 19:54:05.95 I5PkaEyl.net
自分で計算して求めるのを作るか、ライブラリを使ってしまうか、悩ましいところですな・・・
450:336
18/11/12 19:58:23.85 rYIWpX0E.net
悪い意味で盛り上がってて苦笑するしかない
C++
URLﾘﾝｸ(ideone.com)
Ruby読めないけど>>346と大体同じ考え方なのかな
451:デフォルトの名無しさん
18/11/12 20:20:47.61 4WXaKeF0.net
お題
0から99までの整数を2進数で表したとき、１が奇数個あるものを全て挙げよ
452:デフォルトの名無しさん
18/11/12 20:23:17.93 zzbIEe7z.net
>>434 bash + date
for i in {1900..2018}; do if [ $(date --date=07/31/$i +%w) -eq 6 ];then echo "$i "; fi; done
453:デフォルトの名無しさん
18/11/12 20:27:55.24 q04ZIund.net
>>434 Ruby 日付ライブラリ使うのもつまらないので冗談で
(1900..2018).select{|y| (y%100*5/4 - y/2000) % 7 == 4}
# => [1909, 1915, 1920, 1926, 1937, 1943, 1948, 1954, 1965, 1971, 1976, 1982, 1993, 1999, 2004, 2010]
454:デフォルトの名無しさん
18/11/12 20:31:45.80 q04ZIund.net
>>438 Ruby
p (0..99).select{|i| i.digits(2).count(1).odd?};
# => [1, 2, 4, 7, 8, 11, 13, 14, 16, 19, 21, 22, 25, 26, 28, 31, 32,
35, 37, 38, 41, 42, 44, 47, 49, 50, 52, 55, 56, 59,61, 62, 64, 67,
69, 70, 73, 74, 76, 79, 81, 82, 84, 87, 88, 91, 93, 94, 97, 98]
455:デフォルトの名無しさん
18/11/12 20:36:43.90 MOsxqjp/.net
>>434
J
分けて計算
years=:1900 + i. 119
saturdays =: 6= weekday years(,"0 1) 7 31
saturdays # years
出力
1909 1915 1920 1926 1937 1943 1948 1954 1965 1971 1976 1982 1993 1999 2004 2010
1行で
(#~ 6&=@weekday@(,&7 31)"0) 1900+i.119
出力は同じ
456:デフォルトの名無しさん
18/11/12 20:55:43.70 MOsxqjp/.net
>>438
J
(#~ 2&|@+/@(#.^:_1"0)) i.100
出力
1 2 4 7 8 11 13 14 16 19 21 22 25 26 28 31 32 35 37 38 41 42 44 47 49 50 52 55 56 59 61 62 64 67 69
457:70 73 74 76 79 81 82 84 87 88 91 93 94 97 98
458:デフォルトの名無しさん
18/11/12 21:30:19.73 WG+vGwsG.net
>>438 Perl5
use feature say;
$,=',';
say = grep{1&sprintf("%b", $_) =~ tr/1/1/} 0..99;
実行
$ perl 12_434.pl
1,2,4,7,8,11,13,14,16,19,21,22,25,26,28,31,32,35,37,38,41,42,44,47,49,50,52,55,56,59,61,62,64,67,69,70,73,74,76,79,81,82,84,87,88,91,93,94,97,98
459:デフォルトの名無しさん
18/11/12 21:32:31.70 WG+vGwsG.net
>>444 ｺﾞﾒﾝよけいな=が入っていたので削除
>>438 Perl5
use feature say;
$,=',';
say grep{1&sprintf("%b", $_) =~ tr/1/1/} 0..99;
実行
$ perl 12_434.pl
1,2,4,7,8,11,13,14,16,19,21,22,25,26,28,31,32,35,37,38,41,42,44,47,49,50,52,55,56,59,61,62,64,67,69,70,73,74,76,79,81,82,84,87,88,91,93,94,97,98
460:デフォルトの名無しさん
18/11/12 21:57:07.87 jh3oqSUb.net
>>438 rust
URLﾘﾝｸ(ideone.com)
461:デフォルトの名無しさん
18/11/12 22:18:19.15 kM9Cc8DJ.net
>>434 PowerShell
1900..2018 | %{Get-Date "$_/07/31"} | ? -Property DayOfWeek -eq 6 | select Year
462:デフォルトの名無しさん
18/11/12 23:14:49.42 fOB5B0pj.net
>>283 Common Lisp
URLﾘﾝｸ(ideone.com)
463:デフォルトの名無しさん
18/11/12 23:55:59.63 jh3oqSUb.net
>>235 c
URLﾘﾝｸ(ideone.com)
464:デフォルトの名無しさん
18/11/13 00:02:22.82 5Ay5yU9p.net
乙
465:デフォルトの名無しさん
18/11/13 00:27:29.87 7jyC4IO4.net
python
>>434
import datetime
[x for x in range(1900,2018) if datetime.datetime(x,7,31).weekday() == 5]
-> [1909, 1915, 1920, 1926, 1937, 1943, 1948, 1954, 1965, 1971, 1976, 1982, 1993, 1999, 2004, 2010]
ツェラーの公式を用いた別解
[x for x in range(1900,2018) if (x + int(x/4) - int(x/100) + int(x/400) + 1) % 7 == 6]
>>438
[x for x in range(1,99) if format(x,"b").count("1") % 2]
->
[1, 2, 4, 7, 8, 11, 13, 14, 16, 19, 21, 22, 25, 26, 28,
31, 32, 35, 37, 38, 41, 42, 44, 47, 49, 50, 52, 55, 56, 59,
61, 62, 64, 67, 69, 70, 73, 74, 76, 79, 81, 82, 84, 87, 88, 91, 93, 94, 97, 98]