18/11/16 17:46:29.02 TvsPH/qp.net
>>526 Ruby
f = ->n{s = 0; while 0 < n /= 5; s += n; end; s}
[0, 1, 2, 3, 4, 5, 10, 100, 1000000,
10000000000000000].each{|e| puts '%d => %d' % [e, f[e]]}
# =>
0 => 0
1 => 0
2 => 0
3 => 0
4 => 0
5 => 1
10 => 2
100 => 24
1000000 => 249998
10000000000000000 => 2499999999999996
543:デフォルトの名無しさん
18/11/16 19:19:00.00 KTZidSV2.net
お題
N段の三角形ピラミッドの一筆書きを構成せよ
例えば、2段の三角形ピラミッドは以下のような図形である
△
△ △
頂点の番号は上から順番に
1
2 3
4 5 6
……
と与えられる。
(入出力例)
N=1
=> 3 2 1 3
N=2
=> 1 2 4 5 2 3 5 6 3 1
=> 1 3 5 6 3 2 5 4 2 1 (解は複数あるが、そのうちの一つを出力すればよい)
544:デフォルトの名無しさん
18/11/16 20:05:31.22 JjlNk60X.net
>>528 Ruby
def hitofude(n)
return [1] if n == 0
x, y = n*(n + 1)/2, (n + 1)*(n + 2)/2
[
y,
*hitofude(n - 1),
*(1...n).flat_map{|i| [y - i, x - i]},
*(x + 1..y),
]
end
[2, 3, 4].each{|i| p hitofude(i)}
# =>
[6, 3, 1, 2, 3, 5, 2, 4, 5, 6]
[10, 6, 3, 1, 2, 3, 5, 2, 4, 5, 6, 9, 5, 8, 4, 7, 8, 9, 10]
[15, 10, 6, 3, 1, 2, 3, 5, 2, 4, 5, 6, 9, 5, 8, 4, 7, 8, 9, 10, 14, 9, 13, 8, 12, 7, 11, 12, 13, 14, 15]
545:デフォルトの名無しさん
18/11/16 21:39:18.95 0oMzWKAu.net
>>528 C
URLﾘﾝｸ(ideone.com)
546:デフォルトの名無しさん
18/11/17 09:45:00.71 u+BaxmkL.net
>>475
やった。
順列使わないで三番目が6個になった！
Haskell
main = mapM_ print $ map mapbox (slist list)
slist xs = map (\(x,y) -> (x, qsort y)) xs
mapbox (x,y) = (x,length (box x [] [] y))
box _ [] [] [] = [[]]
box _ ns [] [] = [ns]
box c ns ys [x] | c >= sum (x:ns) = box c (x:ns) [] (reverse ys)
box c ns ys [x] | c < sum (x:ns) = [ns] ++ box c [] [] (reverse (x:ys))
box c ns ys (x:xs) | c >= sum (x:ns) = box c (x:ns) ys xs
box c ns ys (x:xs) | c < sum (x:ns) && c >= sum ((last xs):ns) = box c ns (x:ys) xs
box c ns ys (x:xs) | c < sum (x:ns) && c < sum ((last xs):ns) = [ns] ++ box c [] [] (reverse ys ++ (x:xs))
qsort [] = []
qsort (x:xs) = large ++ [x] ++ small
where
small = qsort [a|a <- xs,a <= x]
large = qsort [a|a <- xs,a > x]
list = [(30,[8,5,10,6,4,5,8,5,9,6,9]),
(120,[33,61,58,41,50,21,60,64]),
(120,[33,61,58,41,50,21,60,64,23,45,67,78,89])]
547:デフォルトの名無しさん
18/11/17 09:45:32.76 u+BaxmkL.net
qsort (x:xs) = large ++ [x] ++ small
where
small = qsort [a|a <- xs,a <= x]
large = qsort [a|a <- xs,a > x]
list = [(30,[8,5,10,6,4,5,8,5,9,6,9]),
(120,[33,61,58,41,50,21,60,64]),
(120,[33,61,58,41,50,21,60,64,23,45,67,78,89])]
548:デフォルトの名無しさん
18/11/17 09:46:31.74 u+BaxmkL.net
(120,[33,61,58,41,50,21,60,64,23,45,67,78,89])]
549:
18/11/17 11:31:38.44 ByrEztlA.net
>>500
やっと理解しました…すべての xor 演算を利用しているわけではないのですね…
550:デフォルトの名無しさん
18/11/17 11:41:54.02 u+BaxmkL.net
>>526
Haskell
main = mapM_ print $ zip list $ map zlen list
zlen x = (length.(filter (== '0')).show.product) [1..x]
list = [0,1,2,3,4,5,10,100,1000,10000]
Out
(0,0)
(1,0)
(2,0)
(3,0)
(4,0)
(5,1)
(10,2)
(100,30)
(1000,472)
(10000,5803)
551:デフォルトの名無しさん
18/11/17 12:12:32.80 PHz1iip2.net
>>535
よーわからんが末尾じゃなくてすべての0を数えてない？
552:デフォルトの名無しさん
18/11/17 12:27:52.98 z9owpr8+.net
>>526 ぺちぷ
<?php
function solve(int $n):int{
$a=0;
for($i=5;$i<=$n;$i*=5)$a+=intdiv($n,$i);
return $a;
}
foreach([1,5,10,1e2,1e6,1e16] as $i)printf("%d -> %d\n",$i,solve($i));
?>
1 -> 0
5 -> 1
10 -> 2
100 -> 24
1000000 -> 249998
10000000000000000 -> 2499999999999996
553:デフォルトの名無しさん
18/11/17 12:46:05.88 u+BaxmkL.net
>>536
コリャうっかりw
zlen 差替え。
zlen x = (length.(takeWhile (== '0')).reverse.show.product) [1..x]
554:デフォルトの名無しさん
18/11/17 12:48:16.01 u+BaxmkL.net
実行結果
(0,0)
(1,0)
(2,0)
(3,0)
(4,0)
(5,1)
(10,2)
(100,24)
(1000,249)
(10000,2499)
555:デフォルトの名無しさん
18/11/17 15:08:29.22 thhERN1M.net
>>526 Perl5 その1:単純にloop
for $i (0,1,2,3,4,5,10,100,1000,10000,1000000) {
($s, $n) = ($i, 0);
while ($s) {
$s = int $s / 5;
$n += $s;
}
print "$i $n\n";
}
>>526 Perl5 その2: lambdaのtail recursion
use feature current_sub;
for $i (0,1,2,3,4,5,10,100,1000,10000,1000000) {
$n = sub {my $j = shift;
$j ? do {my $s = int $j / 5;
$s + __SUB__->($s)} : 0;
}->($i);
print "$i $n\n";
}
いずれも実行結果は
$ perl 12_522.pl
0 0
1 0
2 0
3 0
4 0
5 1
10 2
100 24
1000 249
10000 2499
1000000 249998
= i/5のreductionよりもエレガントな解法をしばらく考えていたけど一旦断念して投稿します
556:デフォルトの名無しさん
18/11/17 17:48:20.07 corCuJCM.net
お題
月(01から12)、日(01から31)、時(00から59)、分(00から59)、秒(00から59)の10桁の日付データで
全部の桁が異なる場合を全て求める。だ
557:デフォルトの名無しさん
18/11/17 17:53:02.90 corCuJCM.net
すいません。最後の文字はゴミです無視してください
558:デフォルトの名無しさん
18/11/17 18:44:23.27 eb0sqdRj.net
>>541
時って00から23じゃないの？
559:デフォルトの名無しさん
18/11/17 19:03:48.66 corCuJCM.net
>>543
その通りです。すいません。
時(00から23)に訂正します。
560:デフォルトの名無しさん
18/11/17 19:42:56.43 qglse9qW.net
>>541 Ruby
date = (3..9).flat_map do |mo|
[*1..2].permutation.flat_map do |dd, dh|
([*3..5] - [mo]).permutation(2).flat_map do |dm, ds|
([*3..9] - [mo, dm, ds]).permutation.map do |d, h, m, s|
[0, mo, dd, d, dh, h, dm, m, ds, s] if dh == 1 || h < 4
end
end
end
end.compact
p date.size
# => 768
puts date.map(&:join)
# => 0326174859
0326174958
0326184759
0326184957
0326194758
0326194857
0327164859
0327164958
0327184659
0327184956
... 略
561:デフォルトの名無しさん
18/11/17 20:18:24.56 e9k3MEr9.net
東西ローマ帝国勃興期か
胸が熱くなるな
562:デフォルトの名無しさん
18/11/17 20:30:15.26 z9owpr8+.net
>>540
ルジャンドルの定理がエレガントでは無いと申すか
563:デフォルトの名無しさん
18/11/17 20:54:52.23 u+BaxmkL.net
>>541
Haskell
main = ((mapM_ putStrLn).only.(zip (ccheck date10))) date10
n2 n | n < 10 = '0':show n
n2 n = show n
only = (map (\(_, d) -> d)).filter (\(x,_) -> x == False)
ccheck = map ((elem False).count)
count xs = map (\c -> ((<2).length.(filter (== c))) xs) "1234567890"
date10 = [concat [n2 month, "/", n2 day, " ", n2 hour, ":", n2 minut, ":", n2 sec]
| month <- [0..12], day <- [0..31], hour <- [0..24], minut <- [0..60], sec <- [0..60]]
パターン数字や最初付近が合ってるかはRubyの人(>>545)ので確認したので多分合ってる。
564:デフォルトの名無しさん
18/11/17 20:56:09.09 u+BaxmkL.net
ccheck = map ((elem False).count)
count xs = map (\c -> ((<2).length.(filter (== c))) xs) "1234567890"
date10 = [concat [n2 month, "/", n2 day, " ", n2 hour, ":", n2 minut, ":", n2 sec]
| month <- [0..12], day <- [0..31], hour <- [0..24], minut <- [0..60], sec <- [0..60]]
>>545 の人ので答え合わせしたので、多分合ってる。
565:デフォルトの名無しさん
18/11/17 20:57:39.57 u+BaxmkL.net
date10 = [concat [n2 month, "/", n2 day, " ", n2 hour, ":", n2 minut, ":", n2 sec]
| month <- [0..12], day <- [0..31], hour <- [0..24], minut <- [0..60], sec <- [0..60]]
>>545 の結果で答え合わせ済み。
566:デフォルトの名無しさん
18/11/17 20:58:20.76 u+BaxmkL.net
>>545 の結果で答え合わせ済み。
567:デフォルトの名無しさん
18/11/17 21:15:29.25 qglse9qW.net
>>545の全結果
過不足がないことは確認済み
URLﾘﾝｸ(ideone.com)
568:デフォルトの名無しさん
18/11/17 22:37:13.60 BeWwS75G.net
>>541 Perl5
sub f {grep{!/(.)\1/} map{sprintf "%02d", $_} @_}
sub g {map{$_=>1} split'', shift}
for $M (1..10,12) {
($S) = f($M);
$D = $M == 2 ? 28 : ($M =~ /(4|6|9)/ ? 30 : 31);
for $d (f 1..$D) {
%t = g "$S$d";
next if 4 != keys %t;
for $h (f 1..23) {
%t = g "$S$d$h";
next if 6 != keys %t;
for $m (f 0..59) {
%t = map{$_=>1} split'', "$S$d$h$m";
next if 8 != keys %t;
for $s (f 0..59) {
%t = map{$_=>1} split'', "$S$d$h$m$s";
next if 10 != keys %t;
print "$S$d$h$m$s\n";
} } } } }
実行結果
$ perl 12_537.pl
0326174859
0326174958
0326175849
... 中略
0928175436
0928175634
0928175643
計768個
569:デフォルトの名無しさん
18/11/17 23:10:25.25 u+BaxmkL.net
>>548
03/26 17:48:59
みたいに書式化してるんだけど、RubyもPerlも数字だけなのな。。。
その方が速いのは分かるけど。
570:デフォルトの名無しさん
18/11/17 23:53:27.88 BeWwS75G.net
>>547
数学的にルジャンドルの定理と同じ原理に帰結する解法であっても
もっとエレガントなコードアーキテクチャ、たとえば桁の三角形の5と10を
再帰的に渡り歩いてshiftしながら足しこんでいくようなすごくシンプルで、
もっと短いコード実現を探してたという意味です。
つか5とか10とか100とか通過するたびに0が一桁二桁増えることに
パターンがあるのに気がついてうまく使おうとしたけど、
それがルジャンドルの定理のひとつだとは知りゃせんでした。
571:デフォルトの名無しさん
18/11/18 00:08:39.78 2kF9kdFV.net
25 125が出てこない辺り理屈わかってなさそう
572:デフォルトの名無しさん
18/11/18 00:17:41.21 XHHQeobW.net
>>555
5は*5ね
50+は…
573:デフォルトの名無しさん
18/11/18 05:42:08.97 HhgIFMcS.net
分かっちゃ居たけど、聞いたこともない定理が出る辺り高卒にはエレガントな回答は無理ぽ。。。
574:デフォルトの名無しさん
18/11/18 10:00:29.21 5NL96rQC.net
>>558
codeIQで類似の問題を解いた当時は知らなかったけど、
普通に行き着いたけどな
575:デフォルトの名無しさん
18/11/18 10:39:30.27 Q5hV0WNe.net
>>541 ruby
URLﾘﾝｸ(ideone.com)
576:デフォルトの名無しさん
18/11/18 11:15:29.83 HhgIFMcS.net
>>526
せっかくルジャンドルの定理を知ったので作り直してみた。
Haskell
main = ((mapM_ print).(zip list).(map (zlen 0 1))) list
zlen ans x n | 5 ^ x > n = ans
zlen ans x n = zlen (n `div` (5 ^ x) + ans) (x + 1) n
list = [0,1,2,3,4,5,10,100,1000,10000,12000,100000000]
577:デフォルトの名無しさん
18/11/18 13:05:15.26 oKOqkAfz.net
お題：同調圧力
要素０，１からなる3次以上の正方行列がある。
縦、横、対角線に０が1個だと1に変化する。この変化が繰り返される。
最後にすべての要素が1になる最小数の１の数と初期配置を求めよ。
578:デフォルトの名無しさん
18/11/18 13:38:56.07 XHHQeobW.net
>>558
定理名を知らなくても考えれば見出せるよ
579:デフォルトの名無しさん
18/11/18 14:07:39.31 /U8hetN/.net
>>558
URLﾘﾝｸ(examist.jp)
URLﾘﾝｸ(www.youtube.com)
高校数学の範囲内だろ
「高卒」なる言い訳が通用するほど高校数学は甘くない
580:デフォルトの名無しさん
18/11/18 14:25:30.20 qNfVdQsW.net
まあ入試でよく見る問題だよね
581:デフォルトの名無しさん
18/11/18 14:54:31.18 HhgIFMcS.net
>>559
>>563-564
そうだね。
高卒だからは言い訳だ。
そう言うのを思いつけない頭の悪さでプログラマーに成れなかった。
それだけだな。
582:デフォルトの名無しさん
18/11/18 15:01:13.02 XHHQeobW.net
>>566
短時間で車輪を思い付く/付かないはある意味、向き/不向きでもある
そういうひらめきタイプじゃなくてもちゃんと食べているプログラマーはいっぱいいるぞ
583:デフォルトの名無しさん
18/11/18 16:24:57.02 HhgIFMcS.net
>>567
ありがとう。
でももう、プログラマー目指す年齢じゃないから＾＾；
iPadのHaskell(Raskell)で力付くでも12000！までは解ける辺り、
効率悪くてもとりあえず動く物を作れるようになったのは良い時代になったと思う。
584:
18/11/18 19:54:03.12 KS5/UdBT.net
>>564
その動画、素因数の5を数えればよい、と言い切っちゃっているが、2は数えなくてもいいのか？あるいは 2 を数えなくてもいい理由を述べていないよね
それに、どうして素因数分解は必ずひととおりになるのですか？二通りになるかもしれないのでは？
585:デフォルトの名無しさん
18/11/18 19:58:30.97 /tSlZOJ0.net
そうだね
おまけに足し算がアーベル群を成していないかもしれないから和と自然数の定義から確認しないと駄目だね
586:デフォルトの名無しさん
18/11/18 21:11:02.75 cU5Dmtcu.net
今、((2n-1)2^m, n5^m)をペアで考えるよ
そうすると、1≦n, mで常に(2n-1)2^m≦n2^(m+1)≦n4^m≦n5^mになる
で、ということはx!の中にある5の倍数が含まれるなら、対応した2の倍数もまた含まれていて素因数の個数が同じ
なので素因数は5だけ数えれば良い
587: 素因数分解が一通りなのは自明なので定義からやり直せ
588:デフォルトの名無しさん
18/11/18 21:18:15.05 HyP7YfXU.net
2以上のnに対しn!=(2^p)*(5^q)*N（Nと2と5は互いに素）とする非負整数p,q,Nがただ一組存在して
p>qであることはほとんど自明だが証明しろと言われると…
589:デフォルトの名無しさん
18/11/18 21:24:02.32 HhgIFMcS.net
>>569
URLﾘﾝｸ(mathtrain.jp)
末尾の 0の数は，10で何回割り切れるか，すなわち 2で割れる回数と 5で割れる回数の少ない方である。
（直感的に考えて 5 で割れる回数のほうが少ないので 5で割れる回数だけ考えればよいが練習のため，）
590:デフォルトの名無しさん
18/11/18 21:50:28.21 tNgGKwOg.net
普通に自明
591:
18/11/18 21:56:44.59 KS5/UdBT.net
>>571
＞素因数分解が一通りなのは自明
自明ではないと思います…「素数の定義は 1 と自身以外の約数を持たない」であって「素数の積が一通り」ではないですから
＞そうすると、1≦n, mで常に(2n-1)2^m≦5^mになる
OKです
＞で、ということはx!の中にある5の倍数が含まれるなら、対応した2の倍数もまた含まれていて素因数の個数が同じ
ここは飛躍しているのでは？
n・5^m →(2n-1)・2^m
と対応づけるとき n・5^m の形の数が決して (2n-1)・2^m の形にならないのであれば一対一の対応がとれますが、n・5^m の形であってかつ (2n-1)・2^m の形である整数が存在する場合は一対一の対応にならない
厳密に一対一の対応にならないのなら、因数 2 の個数と因数 5 の個数の大小についてなにもいえないのでは？
592:
18/11/18 21:58:55.74 KS5/UdBT.net
>>573
＞直感的に考えて 5 で割れる回数のほうが少ないので
あくまでも「直感的に」ですよね
厳密にそういえますか？
593:デフォルトの名無しさん
18/11/18 21:59:59.80 tNgGKwOg.net
ルジャンドルの定理を考えれば普通に自明
594:デフォルトの名無しさん
18/11/18 22:33:22.36 ryC6c2pW.net
>>569
証明はされているしググれば出てくる
内容についてはこのスレの趣旨的にここで深く論じる事ではないと思う
595:デフォルトの名無しさん
18/11/18 22:34:24.44 I7k3lQnf.net
◆QZaw55cn4c は荒らしなのでスルーでお願いします
596:デフォルトの名無しさん
18/11/18 22:42:22.16 qz83zcM7.net
お題
UTF-8のバイト列が与えられるので、Unicodeのコードポイントを求めよ
6F 64 61 69
=> U+006F U+0064 U+0061 U+0069
E3 81 8A E9 A1 8C
=> U+304A U+984C
C2 A9 F0 9F 8D 94 E9 A6 99 41
=> U+00A9 U+1F354 U+9999 U+0041
597:デフォルトの名無しさん
18/11/18 23:39:58.87 N6zzFXD1.net
◆QZaw55cn4c は、このスレでも荒らしてるのか。
598:
18/11/18 23:51:49.66 KS5/UdBT.net
>>578
＞内容についてはこのスレの趣旨的にここで深く論じる事ではない
一理あるとは思います
599:デフォルトの名無しさん
18/11/18 23:58:08.89 N6zzFXD1.net
何かと思ったら、自然数の素因数分解の一意性に文句を付けているのかよ。
600:デフォルトの名無しさん
18/11/19 00:12:50.43 En0/bEno.net
>>575 n・5^m=(2n-1)・2^mなら、nは2の累乗かつ2n-1は5の累乗(2と5は互いに素なので)
でも、2n-1が5の累乗だとするとn=3,13,63,313…と奇数なので(f(1)=3, f(x)=f(x-1)+2・5^(x-1)で導出)nが2の累乗であることに矛盾する
素因数分解が一意なのはwikipediaにでも載ってる
というか自分である程度考えてよ……粗探ししてないでさ
601:デフォルトの名無しさん
18/11/19 00:15:20.48 DnlmRpTS.net
>>580 Java
URLﾘﾝｸ(ideone.com)
602:
18/11/19 00:25:31.38 MufxDZB0.net
>>584
＞ n・5^m=(2n-1)・2^m
そう置くのではなく
a・5^b = (2c-1)・2^d
と置くべきなのでは？
たとえば m = 1 のとき n の小さいものから順に
1・5 → 1・2
2・5 → 3・2
3・5 → 5・2…①
ここ①で 5・2 はすでに数え上げているので、一対一対応になっていないと思います
一対一対応にな�
603:轤ﾈい以上、>>575 の推論は飛躍しているのではないでしょうか 繰り返しますが >>575 「n・5^m の形であってかつ (2n-1)・2^m の形である整数が存在する場合は一対一の対応にならない 厳密に一対一の対応にならないのなら、因数 2 の個数と因数 5 の個数の大小についてなにもいえないのでは？」 です
604:デフォルトの名無しさん
18/11/19 00:36:52.56 En0/bEno.net
ん、あれ確かにおかしいな
即レスはミスの源だな、再検討してくる
605:デフォルトの名無しさん
18/11/19 01:06:40.64 4D1JIT10.net
>>580
大変勉強になりました。
const getCP = s => [...new TextDecoder('utf-8').decode(Uint8Array.from(s.split` `.map(x => parseInt(x, 16))))].map(u => 'U+' + u.codePointAt().toString(16).toUpperCase().padStart(4, 0)).join` `
getCP('6F 64 61 69')
=> "U+006F U+0064 U+0061 U+0069"
getCP('E3 81 8A E9 A1 8C')
=> "U+304A U+984C"
getCP('C2 A9 F0 9F 8D 94 E9 A6 99 41')
=> "U+00A9 U+1F354 U+9999 U+0041"
606:デフォルトの名無しさん
18/11/19 01:10:37.57 rdQ6rffg.net
n/2>=n/5
n/2^2>=n/5^2
以下略
5の方が多くなることはないわな
607:デフォルトの名無しさん
18/11/19 01:11:16.13 4D1JIT10.net
あっ、>>588はJavascript(整形にpadStart使ったのでES2017)です。
608:デフォルトの名無しさん
18/11/19 03:32:52.09 hjbRrJKx.net
>>580
Perl5
変換は Perl 任せ。
URLﾘﾝｸ(paiza.io)
609:デフォルトの名無しさん
18/11/19 10:25:48.15 X6/A5UND.net
問題と言うより、単純な興味なんだけど。
Cでこんなコード書いて
(Hello World!!が横に流れ続けて下でマークがクルクル回る)
URLﾘﾝｸ(ideone.com)
それをHaskellで書いてみたのね。
URLﾘﾝｸ(ideone.com)
ハイブリッドな言語増えて来たので、他の言語だとどう書くのかなって。
出来れば破壊的なのと、関数型っぽく非破壊的なのと見てみたい。
(ミュータブル版とイミュータブル版)
610:デフォルトの名無しさん
18/11/19 10:29:45.48 /4Aoxd3M.net
>>592
何をするのか網ちょい詳しく
611:デフォルトの名無しさん
18/11/19 11:00:22.26 X6/A5UND.net
>>593
精一杯考えて説明したつもりなので、Cのコードコンパイルして実際にコマンドで動かしてもらえれば。
それと同じ動きになるコードを書いて欲しいと言うことです。
(出来れば初期化以外の変数代入有りと無しで)
612:デフォルトの名無しさん
18/11/19 23:48:36.76 S7M28HrM.net
>>580 rust
URLﾘﾝｸ(ideone.com)
>>580 ruby
URLﾘﾝｸ(ideone.com)
613:デフォルトの名無しさん
18/11/20 00:53:04.42 yKairBEQ.net
>>580
python 3
for x in ["6F 64 61 69","E3 81 8A E9 A1 8C","C2 A9 F0 9F 8D 94 E9 A6 99 41"]:
__print(" ".join(['U+{:04X}'.format(ord(y)) for y in bytes.fromhex(x).decode("utf-8")]))
->
U+006F U+0064 U+0061 U+0069
U+304A U+984C
U+00A9 U+1F354 U+9999 U+0041
614:デフォルトの名無しさん
18/11/20 01:11:13.89 avg9qTbR.net
>>588
utf-8がデフォルトだから引数要らないよ
615:587
18/11/20 02:29:27.79 lQrB+xRm.net
>>580
C
全て自分で変換
URLﾘﾝｸ(paiza.io)
616:デフォルトの名無しさん
18/11/20 02:34:35.37 yKairBEQ.net
>>541
python 3
URLﾘﾝｸ(ideone.com)
617:デフォルトの名無しさん
18/11/20 11:19:51.35 XC6mINx9.net
>>580 Ruby 仕様をそのまま。ただし冗長性のチェックだけはしていない
def divide_prefix(byte)
raise 'invalid byte' if byte & 0xF8 == 0xF8
prefix_len = (1..8).find{|i| (byte >> 8 - i) & 1 == 0}
prefix = (1
618: << prefix_len - 1) - 1 << 1 {prefix: prefix, body: byte - (prefix << 8 - prefix_len)} end def utf8_codepoints(bytes) ary = bytes.map{|e| divide_prefix(e)} leading_bytes = ary.select{|dc| dc[:prefix] != 0x02} leading_bytes.map do |lb| utf8_char = ary.shift(lb[:prefix] == 0 ? 1 : lb[:prefix].bit_length - 1) raise 'invalid sequence' if utf8_char[1..-1]&.any?{|dc| dc[:prefix] != 0x02} utf8_char.reverse_each.with_index.map{|dc, i| dc[:body] << 6 * i}.sum end end [ '6F 64 61 69', 'E3 81 8A E9 A1 8C', 'C2 A9 F0 9F 8D 94 E9 A6 99 41' ].each{|str| puts utf8_codepoints(str.split.map(&:hex)).map{|e| 'U+%04X' % e}.join(' ')} # => U+006F U+0064 U+0061 U+0069 U+304A U+984C U+00A9 U+1F354 U+9999 U+0041
619:デフォルトの名無しさん
18/11/20 13:23:53.49 FaN+D89v.net
>>592 Ruby ターミナル上で10秒間 <marquee>Hello, world</marquee> & 棒がぐるぐる的な感じ
duration = 10
wait = 0.1
str = 'Hello, World!'
len = str.size
bar = %w[- / | \\ ]
clear_lines = -> n {puts "\e[#{n}\e[#{n}A"}
# 非破壊的
str2 = 'Hello, World!' * 2
(duration / wait).round.times{|i|puts str2[i % len, len], bar[i % 4]; sleep(wait); clear_lines[2]}
# 破壊的
hello_ary = 'Hello, World!'.split('')
(duration / wait).round.times{puts hello_ary.rotate!.join, bar.rotate!.first; sleep(wait); clear_lines[2]}
620:デフォルトの名無しさん
18/11/20 13:50:30.38 +huVy/La.net
訂正
duration = 10
wait = 0.1
str = 'Hello, World!'
bar = %w[- / | \\ ]
clear_lines = -> n {puts "\e[#{n}\e[#{n}A"}
# 破壊的
str_ary = str.split('')
bar_ary = [*bar]
(1..duration / wait).each{puts str_ary.rotate!.join, bar_ary.rotate!.first; sleep(wait); clear_lines[2]}
# 非破壊的
str2 = str * 2
(1..duration / wait).each{|i|puts str2[i % sitr.size, str.size], bar[i % 4]; sleep(wait); clear_lines[2]}
621:デフォルトの名無しさん
18/11/20 23:12:15.60 Vm2a6rBd.net
世界一気持ち良いフェラチオのアルゴリズムを作れ
622:デフォルトの名無しさん
18/11/21 05:38:04.65 yscr9wE/.net
>>541
Ruby で実行すると、Timeout になりました！
# 10桁の文字列で、重複した文字が無いものは、いくつあるか？
month = ("01".."12").to_a
day = ("01".."31").to_a
hour = ("00".."23").to_a
min = sec = ("00".."59").to_a
# uniq! は変化が無ければ、nil
p month.product( day, hour, min, sec )
.reject { | mon, d, h, min, s | ( mon + d + h + min + s ).chars.uniq! }
.length
623:デフォルトの名無しさん
18/11/21 08:13:38.75 KQDfl3zy.net
>>604
.reject { | mon, d, h, min, s | ( mon + d + h + min + s ).chars.uniq! }が無駄過ぎ
.reject(&:uniq!)で良い。それでも良いコードではない
あとこれだと2月31日とかが含まれてしまう可能性考慮してないよね(実際には含まれないが)
624:デフォルトの名無しさん
18/11/21 13:17:27.94 r/9FyEhs.net
>>545 をちょっと変更。月を分ける必要がなかった
date = [1, 2].permutation.flat_map do |dd, dh|
[*3..5].permutation(2).flat_map do |dm, ds|
([*3..9] - [dm, ds]).permutation.map do |mo, d, h, m, s|
[0, mo, dd, d, dh, h, dm, m, ds, s] if dh == 1 || h == 3
end
end
end.compact.sort
625:デフォルトの名無しさん
18/11/21 13:59:24.73 89fYavxU.net
月日時分秒で文字列で並べる前に11月とか11日とか22日とか必ず各桁が同じ値になるやつ最初から省けば無駄がなくなって少し速くならんか？
626:デフォルトの名無しさん
18/11/21 17:57:29.48 89fYavxU.net
>>541
Kotlin
URLﾘﾝｸ(paiza.io)
色々試した結果、やはり最初に必要な文字列全て作ってしまうのが一番速かった。
627:デフォルトの名無しさん
18/11/21 19:06:42.18 7Tiab2M6.net
文字列を正規表現で判定するのは遅いんじゃね？
628:デフォルトの名無しさん
18/11/21 19:31:36.89 fvygYhm9.net
12*31*6
629:0*60*60=80,352,000通りの桁が異なるか判定より、10桁並び替え10!=3,628,800通りが日付になってるか判定の方が速そう
630:デフォルトの名無しさん
18/11/21 19:43:32.60 fvygYhm9.net
>>610
計算ミスった、12*31*24*60*60=32,140,800か
お詫びにコード、C++
URLﾘﾝｸ(ideone.com)
631:デフォルトの名無しさん
18/11/21 19:50:15.56 XrCNlm4w.net
最初の4桁は高々365パターンしかないからその各組について残り6桁720通り検討すれば262,800通りで済む
632:デフォルトの名無しさん
18/11/21 19:55:14.22 XrCNlm4w.net
ちなみに最初の4桁で数字に重複がないのは130通りしかないからここできちんと処理すれば93,600通りで済む
633:デフォルトの名無しさん
18/11/21 20:17:28.45 Pa+SHuBo.net
普通にやれば768通りで済む
時間が 0x/1d 23:Mm:Ss なら
{M, S} = {4, 5} で残りは4つの数字の任意の順でＯＫ
2 * 4! 通り
時間が 0X/2d 1h:Mm:Ss なら
M, S は異なる{3, 4, 5}の元で残りは5つの数字の任意の順でＯＫ
3P2 * 5! 通り
全部で (2 + 3P2 * 5) * 4! = 768 通り
634:デフォルトの名無しさん
18/11/21 20:32:17.09 89fYavxU.net
>>609
そうかも。
やっぱただの二重ループで調べるのが一番速いかな？
最初はSetに一文字づつ入れて同じのが既にあったらっていう判定してたんだけどね、正規表現なら一発で判定できると気づいてそちらにした。
まあでも正規表現だから中で複雑な動きになってるかも知れないな。
635:デフォルトの名無しさん
18/11/21 20:41:48.33 89fYavxU.net
良く考えたら各桁が数字しかないから10ビットのビットフラグ立てるかBoolenArrayで10要素あれば重複調べられるな。後で変えよう。
636:デフォルトの名無しさん
18/11/21 21:02:48.05 fvygYhm9.net
お題
以下の操作を好きなだけ行う時、0をXにするまでに必要な最小コストを求めよ
・コスト1で値を1増減させる
・コストn+Yで値をn倍する
XとYは与えられ、0以上の整数であることが保証される
nは自然数の範囲で任意に決めて良い
例(X, Y)
1 3
20 2
63 2
出力
3
11
17
637:デフォルトの名無しさん
18/11/21 21:03:37.61 Gj+ctZjI.net
お題
N個の正整数を並べ替えたあと結合してできる整数の最小値を求めよ
3 2 1
=> 123
1 2 21
=> 1212
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
=> 10111121314151623456789
638:デフォルトの名無しさん
18/11/21 21:13:22.72 fcujQIsM.net
>>541
一年って365日？372日？
639:デフォルトの名無しさん
18/11/21 21:47:53.81 DBPerFhf.net
>>618 Perl5
use feature say;
for (<DATA>) {
s/\s*//g;
$z = tr/0//;
@a = grep{$_} sort split '';
$a = shift @a;
say join '',($a, (0)x$z, @a);
}
__DATA__
3 2 1
1 2 21
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
execution
$ perl 12_614.pl
123
1122
10111111112233445566789
640:デフォルトの名無しさん
18/11/21 21:49:54.93 DBPerFhf.net
>>620
間違ってる。ｺﾞﾒﾝ却下
641:デフォルトの名無しさん
18/11/21 22:06:23.31 DBPerFhf.net
>>620 Perl5
use List::Util max;
use feature say;
for (<DATA>) {
@a = split;
$n = max map{length} @a;
say $n;
$b = join '', sort map{$_.'a'x($n-length)} @a;
$b =~ s/a//g;
say $b;
}
__DATA__
3 2 1
1 2 21
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
実行
$ perl 12_614.pl
123
1212
10111213141516123456789
642:デフォルトの名無しさん
18/11/21 22:08:43.18 DBPerFhf.net
>>622
途中の
say $n;
は不要なdebug write、
削除して下記と差し替え
use List::Util max;
use feature say;
for (<DATA>) {
@a = split;
$n = max map{length} @a;
$b = join '', sort map{$_.'a'x($n-length)} @a;
$b =~ s/a//g;
say $b;
}
__DATA__
3 2 1
1 2 21
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
643:デフォルトの名無しさん
18/11/21 22:22:35.53 fvygYhm9.net
>>618 Java
URLﾘﾝｸ(ideone.com)
644:デフォルトの名無しさん
18/11/21 22:30:22.51 7Tiab2M6.net
>>617 Java
URLﾘﾝｸ(ideone.com)
1 3は3じゃなくて1でいいんよね？
645:デフォルトの名無しさん
18/11/21
646:22:30:46.05 ID:luckbEjf.net
647:デフォルトの名無しさん
18/11/21 22:32:28.49 XrCNlm4w.net
>>618
python3
def keyMaker(x):
__x = [int(y) for y in x]
__x.append(x[-1]+0.1)
__return x
for y in ["3 2 1","1 2 21", "1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16"]: print(int("".join(sorted(y.split(),key=lambda x: keyMaker(x)))))
->
123
1212
10111121314151623456789
0.1足さないと "10 11 101 100"で間違えるな
648:デフォルトの名無しさん
18/11/21 22:39:54.74 Pa+SHuBo.net
>>624
101 10 と 10 101 で結果が異なる
URLﾘﾝｸ(ideone.com)
649:デフォルトの名無しさん
18/11/21 22:54:14.65 7Tiab2M6.net
>>618 Java
URLﾘﾝｸ(ideone.com)
650:デフォルトの名無しさん
18/11/21 22:55:54.34 7Tiab2M6.net
あ、>>625問題読み間違えてるわ
コスト1で1増やすんじゃなくて1増減出来るのね…
651:デフォルトの名無しさん
18/11/21 23:11:59.00 DBPerFhf.net
>>618 Perl5
use feature say;
say sort{"$a$b"<=>"$b$a"} split for <DATA>;
__DATA__
3 2 1
1 2 21
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
実行
$ perl 12_614.pl
123
1212
10111121314151623456789
652:デフォルトの名無しさん
18/11/21 23:12:22.88 jrFgFGaV.net
お題：分数を小数に直したときの循環部分の周期を求める
割り切れる場合は0とする
例：
1/3 => 1
10/2 => 0
988027/983 => 982
919/870473 => 54288
1223/1476221 => ?
99998360006603 / 9999901 => ?
653:デフォルトの名無しさん
18/11/21 23:20:10.22 7Tiab2M6.net
>>617 Java (>>625の修正)
URLﾘﾝｸ(ideone.com)
654:デフォルトの名無しさん
18/11/21 23:21:24.98 jrFgFGaV.net
123412345/999999999 => 9
も>>632の例に追加
655:デフォルトの名無しさん
18/11/21 23:30:03.05 fvygYhm9.net
>>625
あ、ごめん1 3は1だね
3 1と書き間違えた
656:デフォルトの名無しさん
18/11/21 23:35:51.69 7Tiab2M6.net
>>632 Java
URLﾘﾝｸ(ideone.com)
657:デフォルトの名無しさん
18/11/21 23:40:44.97 7Tiab2M6.net
>>636
循環部の周期じゃなくて、小数点以下の循環部の終わる位置を調べてる気がしてきた…修正が必要ですｗ
658:デフォルトの名無しさん
18/11/21 23:56:52.64 DBPerFhf.net
>>632 >>634 Perl5
for (<DATA>) {
($X, $y) = split;
$x = $m = $X % $y;
my $n;
do {
$x = 10 * $x % $y;
$n++
} while $x != $m;
print "$X/$y => ", ($x ? $n : $x), "\n";
}
__DATA__
1 3
10 2
988027 983
919 870473
1223 1476221
99998360006603 9999901
123412345 999999999
実行
$ perl 12_628.pl
1/3 => 1
10/2 => 0
988027/983 => 982
919/870473 => 54288
1223/1476221 => 122816
99998360006603/9999901 => 1999980
123412345/999999999 => 9
659:デフォルトの名無しさん
18/11/22 00:02:55.27 YC9N9M8Q.net
>>637
そういわれると>>638も自信がなくなってきたので念のため修正
>>632 >>634 Perl5
for (<DATA>) {
($X, $y) = split;
$x = $m = $X % $y;
my ($n, %h);
$h{$x} = 1;
do {
$x = 10 * $x % $y;
$n++
} until $h{$x};
print "$X/$y => ", ($x ? $n : $x), "\n";
}
__DATA__
1 3
10 2
988027 983
919 870473
1223 1476221
99998360006603 9999901
123412345 999999999
実行
$ perl 12_628.pl
1/3 => 1
10/2 => 0
988027/983 => 982
919/870473 => 54288
1223/1476221 => 122816
99998360006603/9999901 => 1999980
123412345/999999999 => 9
660:デフォルトの名無しさん
18/11/22 00:08:36.27 iFlHYuR3.net
1234/555 => 3
>>636だと4になる
>>638だと無限ループって怖くね？
661:デフォルトの名無しさん
18/11/22 00:10:07.02 YC9N9M8Q.net
>>640
サンプルデータでは問題ないが
場合によっては無限ループの恐れｱﾙかも
662:デフォルトの名無しさん
18/11/22 00:11:14.76 YC9N9M8Q.net
>>639 は無限ループの恐れなし
663:デフォルトの名無しさん
18/11/22 00:13:47.95 iFlHYuR3.net
>>642
ideoneに食わせたらTime limit exceededになる・・・なんでや
URLﾘﾝｸ(ideone.com)
664:デフォルトの名無しさん
18/11/22 00:16:08.77 YC9N9M8Q.net
>>642 いや変なところから巡回し始める数値があれば>>639 も無限ループ
以下修正版。しかし少し進んでからようやく巡回し始める数値ってあるんだろうか…
for (<DATA>) {
($X, $y) = split;
$x = $m = $X % $y;
my ($n, %h);
$h{$x} = 1;
while(1) {
$x = 10 * $x % $y;
$n++;
last if $h{$x};
$h{$x} = 1;
}
print "$X/$y => ", ($x ? $n : $x), "\n";
}
__DATA__
1 3
10 2
988027 983
919 870473
1223 1476221
99998360006603 9999901
123412345 999999999
665:デフォルトの名無しさん
18/11/22 00:19:18.30 YC9N9M8Q.net
>>643
しらんがなサイトのtimeout秒設定とちゃいますか
いま使っているPC(CPU Core U1300 1.06Gz)では
一番遅い>>644のソースで
$ time perl 12_628.pl
1/3 => 1
10/2 => 0
988027/983 => 982
919/870473 => 54288
1223/1476221 => 122816
99998360006603/9999901 => 1999980
123412345/999999999 => 9
12.312 secs
666:自分は出題者じゃなくて632です
18/11/22 00:20:17.51 iFlHYuR3.net
>>644
ideoneに食わせたら1234/555動いたが>>636と同じで4になってる
URLﾘﾝｸ(ideone.com)
1234/555 = 2.2[234]234234... で3よな？
667:デフォルトの名無しさん
18/11/22 00:26:34.37 YC9N9M8Q.net
>>646 うちのPCだと
for (<DATA>) {
($X, $y) = split;
$x = $m = $X % $y;
my ($n, %h);
$h{$x} = 1;
while(1) {
$x = 10 * $x % $y;
$n++;
last if $h{$x};
$h{$x} = 1;
}
print "$X/$y => ", ($x ? $n : $x), "\n";
}
__DATA__
1234 55
実行
$ time perl 12_628.pl
1234/55 => 3
0.281 secs
Perlは5.20.3 32 bit, integerは64bit のもの。
5.16.3 32 bit, integer が32bitでも
1234/55 は => 3
になるよ
668:デフォルトの名無しさん
18/11/22 00:29:14.36 iFlHYuR3.net
>>647
5が1個足りてませんぜｗ
1234/55=22.4[36]3636... => 2
669:デフォルトの名無しさん
18/11/22 00:33:49.88 YC9N9M8Q.net
>>648
for (<DATA>) {
($X, $y) = split;
$x = $m = $X % $y;
my ($n, %h);
$h{$x} = 1;
while(1) {
$x = 10 * $x % $y;
$n++;
last if $h{$x};
$h{$x} = 1;
}
print "$X/$y => ", ($x ? $n : $x), "\n";
}
__DATA__
1234 555
Perl 5.20.3 32 bit, integer 64bit
$ perl.exe 12_628.pl
1234/555 => 4
0.266 secs
Perl 5.16.3 32 bit, integer 32bit
$ perl 12_628.pl
1234/555 => 4
670:デフォルトの名無しさん
18/11/22 00:37:35.25 iFlHYuR3.net
>>649
じゃから、
1234/555 = 2.2[234]234234... だから答えは3にならんとあかんじゃろ
671:デフォルトの名無しさん
18/11/22 00:37:56.28 YC9N9M8Q.net
>>649
bug に気がついた。循環する範囲だけの長さを求めていない
672:
18/11/22 00:44:22.07 r9/Xo7jY.net
>>587
私もよーく考えました、>>571 の推論で正しいと思い直しました。
「数字と数字を対応させる」のではなく「数字の中の因数5 と別の数字の中の因数 2 とを対応させる」んですね，週末になったらちゃんと書きます
ごめんなさい…
673:デフォルトの名無しさん
18/11/22 00:47:46.57 YC9N9M8Q.net
>>632 >>634 Perl5
for (<DATA>) {
($X, $y) = split;
$x = $m = $X % $y;
my ($n, %h);
$h{$x} = $n++;
while(1) {
$x = 10 * $x % $y;
last if $h{$x};
$h{$x} = $n++;
}
print "$X/$y => ", ($x ? $n-$h{$x} : $x), "\n";
}
__DATA__
1 3
10 2
988027 983
919 870473
1223 1476221
99998360006603 9999901
123412345 999999999
1234 555
実行
$ perl 12_628.pl
1/3 => 1
10/2 => 0
988027/983 => 982
919/870473 => 54288
1223/1476221 => 122816
99998360006603/9999901 => 1999980
123412345/999999999 => 9
1234/555 => 3
674:604
18/11/22 02:49:00.32 zC+py8mV.net
>>541
Kotlin
URLﾘﾝｸ(paiza.io)
>>608の改造版
重複調査はビットフラグ使ってやるようにした。
出力は番号を振って出すようにした。
675:デフォルトの名無しさん
18/11/22 03:19:07.41 zC+py8mV.net
>>617
問題の意味がわからない。
676:デフォルトの名無しさん
18/11/22 04:04:02.81 dySjvlSp.net
>>632 Ruby
f = -> d {
[2, 5].each{|e| d /= e while d % e == 0}
return 0 if d == 1
r = 1; (1..d).find{|i| 1 == r = 10 * r % d}
}
%w[
1/3 10/2 988027/983 919/870473 1223/1476221 99998360006603/9999901 123412345/999999999 1234/555
].each{|e| n, d = e.split(?/).map(&:to_i); puts '%d/%d => %d' % [n, d, f[d / d.gcd(n)]]}
# =>
1/3 => 1
10/2 => 0
988027/983 => 982
919/870473 => 54288
1223/1476221 => 122816
99998360006603/9999901 => 1999980
123412345/999999999 => 9
1234/555 => 3
677:デフォルトの名無しさん
18/11/22 15:33:08.34 yB1Us7SO.net
17941970723/5711177472=
3.
14155370
[
07847337299484291004011020163934418881248871826338
51095286012502326945724442022732505973857434350098
中略
81545008587679202836020711912487386979243218306349
2795623634229099298422222099702245
](周期=1584)
であってる?
678:デフォルトの名無しさん
18/11/22 15:43:48.55 lSIebnj9.net
>>657
あってる
679:デフォルトの名無しさん
18/11/22 15:54:06.63 yB1Us7SO.net
>>658
1009
680:デフォルトの名無しさん
18/11/22 23:20:25.14 8KGvhG/L.net
>>632
URLﾘﾝｸ(ideone.com)
681:デフォルトの名無しさん
18/11/23 19:09:31.91 VH48PKdk.net
>>617 Ruby 再帰
def cost(x, y)
return [0] if x == 0
table = cost(x - 1, y)
table << table.flat_map.with_index{|e, i|
i == 0 ? [x] : [x / i, -(-x / i)].uniq.map{|v| e + v + y + (i * v - x).abs}
}.min
end
[[1,3], [3, 1], [20, 2], [
682:63, 2]].each{|e| puts 'X = %d, Y = %d => %d' % [*e, cost(*e).last]} # => (X, Y) = (1, 3) => 1 (X, Y) = (3, 1) => 3 (X, Y) = (20, 2) => 11 (X, Y) = (63, 2) => 17
683:デフォルトの名無しさん
18/11/23 19:12:10.98 K3SLU2ZA.net
>>618
f = ->str{str.split.sort{|a, b| a + b <=> b + a}.join}
['3 2 1', '1 2 21', '1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16'].each{|e| puts '%s => %s' % [e, f[e]]}
# =>
3 2 1 => 123
1 2 21 => 1212
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 => 10111121314151623456789
684:デフォルトの名無しさん
18/11/23 19:34:32.58 oncB24e2.net
お題: 入力をHTMLのリストに変換しなさい。
入力:
* aaa
* bbb
* ccc
* aaa
* bbb
* ccc
出力:
<ul><li>aaa</li><li>bbb</li><li>ccc</li></ul>
<ul><li>aaa</li><li>bbb</li><li>ccc</li></ul>
685:デフォルトの名無しさん
18/11/23 19:51:58.05 ZGD1vCd6.net
お題
非負整数の10進数表記を"マイナス10進数"表記に変換せよ
321 => 481 (400 - 80 + 1)
910 => 19090 (10000 - 9000 + 000 - 90 + 0)
909 => 909
0 => 0
11111 => 29291
123456789 => 284664829
686:デフォルトの名無しさん
18/11/23 20:55:58.69 5iW/esUy.net
>>663
URLﾘﾝｸ(ideone.com)
・行頭と行末は適当に削除しちゃってる
687:デフォルトの名無しさん
18/11/23 21:05:33.15 Hqw3cjct.net
>>663 Ruby
puts '<ul>%s</ul>' % $<.read.split("\n\n").map{|s| s.scan(/(?<=^\* ).*/).join('</li><l>
入力:
* aaa
* bbb
* ccc
* aaa
* bbb
* ccc
出力:
<ul><li>aaa</li><li>bbb</li><li>ccc</li></ul>
<ul><li>aaa</li><li>bbb</li><li>ccc</li></ul>
688:デフォルトの名無しさん
18/11/23 21:07:03.88 Hqw3cjct.net
>>666 途切れたので訂正
puts '<ul>%s</ul>' % $<.read.split("\n\n").map{|s| s.scan(/(?<=^\* ).*/).('</li><li>')}.join("</ul>\n<ul>")
689:デフォルトの名無しさん
18/11/23 21:10:53.54 Hqw3cjct.net
>>667 連投ごめん 訂正
puts '<ul>%s</ul>' % $<.read.split("\n\n").map{|s| s.scan(/(?<=^\* ).*/).join('</li><li>')}.join("</ul>\n<ul>")
690:デフォルトの名無しさん
18/11/23 22:18:17.60 Hqw3cjct.net
>>664 Ruby
f = -> n {return n if n < 10;a, b = n.divmod(100); c, d = b.divmod(10); 100 * f[a - (-c / 10)] + 10 * (-c % 10) + d}
[321, 910, 909, 0, 11111, 123456789].each{|e| puts '%d => %d' % [e, f[e]]}
# =>
321 => 481
910 => 19090
909 => 909
0 => 0
11111 => 29291
123456789 => 284664829
691:デフォルトの名無しさん
18/11/23 23:32:40.54 RKSYf6WR.net
>>663 Perl5
for (split /\n\n/, <<EOL)
* aaa
* bbb
* ccc
* aaa
* bbb
* ccc
EOL
{ @a = map{"<li>$_</li>"} /\* (\w+)/g;
print "<ul>", @a, "</ul>\n";
}
実行結果
$ perl 12_659.pl
<ul><li>aaa</li><li>bbb</li><li>ccc</li></ul>
<ul><li>aaa</li><li>bbb</li><li>ccc</li></ul>
692:デフォルトの名無しさん
18/11/24 00:04:24.01 IB4DmzOp.net
>>670
* 以降にスペース文字が含まれていても、もれなく扱うなら
@a = map{"<li>$_</li>"} /\* (\w+)/g;
↓
@a = map{"<li>$_</li>"} /\* ([^\n]+)/g；
693:デフォルトの名無しさん
18/11/24 02:05:34.99 Q9o1GKtC.net
>>664
問題の意味がわからない。
694:デフォルトの名無しさん
18/11/24 02:34:23.79 noZFD3Jl.net
>>672
俺も分からなかったんで調べたら例えば4桁のn進数 A3 A2 A1 A0 の場合
A0 * n^0 + A1 * n^1 + A2 * n^2 + A3 * n^3
となるわけだけど、単純にこのnが-10ならマイナス10進数ということらしい
695:デフォルトの名無しさん
18/11/24 02:35:47.10 Q9o1GKtC.net
>>663
Kotlin
URLﾘﾝｸ(paiza.io)
拡張関数使ってみました。
696:デフォルトの名無しさん
18/11/24 02:43:21.86 Q9o1GKtC.net
>>673
なるほど。そういうことか。ありがとう。
697:デフォルトの名無しさん
18/11/24 03:26:26.65 Q9o1GKtC.net
>>664
Perl5
URLﾘﾝｸ(paiza.io)
698:デフォルトの名無しさん
18/11/24 03:43:39.38 Q9o1GKtC.net
>>632
Kotlin
URLﾘﾝｸ(paiza.io)
C
URLﾘﾝｸ(paiza.io)
最初 Kotlin で作って確認した後で paiza.io にコピペして実行したら 99998360006603 / 9999901 が
タイムアウトしてしまい、じゃあ C で作るか(ついでに tsearch() 使ってみるか)と思ってやってみたが
相変わらず同じ計算でタイムアウトした。
まあしかしそれ以外の計算はなんとかなったので両方公開しとく。
アルゴリズムは割った余りを10倍するのを繰り返して同じ余りが出たらそこで循環と判定するというやつ。
699:デフォルトの名無しさん
18/11/24 04:00:55.96 7YEvwBu9.net
>>663 javascript
`
* aaa
* bbb
* ccc
* aaa
* bbb
* ccc
`.split`\n\n`.map(ol => `<ol><li>${ol.match(/(?<=\* ).*/g).join`</li><li>`}</li></ol>`).join`\n`
出力:
<ol><li>aaa</li><li>bbb</li><li>ccc</li></ol>
<ol><li>aaa</li><li>bbb</li><li>ccc</li></ol>
// 本物のdocument fragment作っちゃう版
var fragment = `
* aaa
* bbb
* ccc
* aaa
* bbb
* ccc
`.trim().split`\n\n`.map(ol => ol
.match(/(?<=\* ).*/g)
.reduce((acc, li) => (acc.appendChild(document.createElement`li`).innerHTML = li, acc), document.createElement`ol`))
.reduce((acc, ol) => (acc.appendChild(ol), acc), document.createDocumentFragment())
document.querySelector('div#target').appendChild(fragment)など任意のエレメントにそのままappend可能。
700:デフォルトの名無しさん
18/11/24 05:34:48.85 Dcky2N9A.net
>>664
URLﾘﾝｸ(pastebin.com)
701:デフォルトの名無しさん
18/11/24 05:38:41.45 Q9o1GKtC.net
>>632
C (その2)
URLﾘﾝｸ(paiza.io)
よく考えたら出来た。
循環になっている桁の最初の余りを取っておいて次に出るまでカウントすれば良いだけで余りを全て保存しておく必要ないんだな。
702:デフォルトの名無しさん
18/11/24 05:41:18.30 Dcky2N9A.net
>>679の言語は
JavaScript( Windows Scripting Host用 )ね
703:デフォルトの名無しさん
18/11/24 08:20:40.93 01jBobXF.net
>>663
Ruby で作った。ただし、最終行に改行を追加した
text = <<"EOT"
* aaa
* bbb
* xxx
* yyy
EOT
buf = ""; result = ""
text.each_line do |line| # 1行ずつ処理する
line.chomp! # 末尾の改行を削除する
case
when line.empty? # 空文字列
result += "<ul>" + buf + "</ul>" + "\n" # ul で囲む
buf = ""
when line.start_with?( "* " )
buf += "<li>" + line.slice!( 2..-1 ) + "</li>" # "* " 以後の部分を取り出す
else
raise
end
end
puts result
704:デフォルトの名無しさん
18/11/24 11:05:11.18 1C+vWWG1.net
2人以上(1ユーザーに対し、1PC以上)のジャンケンゲームを作れ。
・勝ちグループにユーザーが居れば勝ちとする。
・グー=g、チョキ=v、パー=wとする。
・グー、チョキ、パー以外が入力されたら、あいこ扱い。
・全員の手もその都度表示。
例
Rock, Paper, Scissors! ―じゃんけんぽん(またはあいこでしょ)の英語版
(Rock = g/G, Paper = w/W, Scissors = v/V)
g
[("You",'g'),("PC1",'v'),("PC2",'g')]
You Win!!
705:デフォルトの名無しさん
18/11/24 12:06:59.71 X5g7u0K6.net
>>683
def janken(hand, opp_number)
hands = opp_number.times.map{%w[g v w].sample}.unshift(hand)
p hands.
706:map.with_index{|h, i| [i == 0 ? 'You' : "PC#{i}", h]} return 'Draw' if hands.uniq.size != 2 hands = hands.uniq.join.sum == 0xDE ? %w[w g] : hands.uniq.sort ['You Win!', 'You Lose!'][hands.index(hand)] end puts janken(?g, 1) # => [["You", "g"], ["PC1", "v"]] You Win! puts janken(?v, 2) # => [["You", "v"], ["PC1", "v"]] Draw puts janken(?w, 3) # => [["You", "w"], ["PC1", "g"], ["PC2", "v"]] Draw puts janken(?g, 4) # => [["You", "g"], ["PC1", "g"], ["PC2", "g"], ["PC3", "v"], ["PC4", "v"]] You Win!
707:デフォルトの名無しさん
18/11/24 12:08:52.78 X5g7u0K6.net
>>684 Ruby コピペミス
puts janken(?v, 2) -> puts janken(?v, 1)
puts janken(?w, 3) -> puts janken(?w, 2)
708:デフォルトの名無しさん
18/11/24 12:14:16.56 X5g7u0K6.net
>>684
「・グー、チョキ、パー以外が入力されたら、あいこ扱い」を見落としていたので
return 'Draw' if hands.uniq.size != 2
を
return 'Draw' if hands.uniq.size != 2 || %w[g, v, w].none?(hand)
に修正
puts janken('グーチョキパー', 5)
# => [["You", "グーチョキパー"], ["PC1", "g"], ["PC2", "w"], ["PC3", "v"], ["PC4", "g"], ["PC5", "
v"]]
Draw
709:デフォルトの名無しさん
18/11/24 12:16:11.70 1C+vWWG1.net
>>684
あ、あいこはあいこと表示して終わっちゃうのね。。。
あいこの時はまたジャンケンし直しにして欲しい。
条件に入れればよかったかなぁ。。。
710:デフォルトの名無しさん
18/11/24 12:26:57.03 hG+y0dS8.net
>>683
> ・グー=g、チョキ=v、パー=wとする。
グー=g、チョキ=c、パー=pか
グー=m、チョキ=v、パー=wか
どっちかに統一してほしい。
グー=g、チョキ=v、パー=wだとgが表音イニシャル、v, wが象形と統一性がない。
気になってご飯が喉を通らなくてプログラミングどころじゃない…
711:デフォルトの名無しさん
18/11/24 13:02:40.59 1C+vWWG1.net
gも象形のつもりだったんだが。。。
712:デフォルトの名無しさん
18/11/24 14:02:53.32 S/Hnk7Kr.net
>>687 Ruby
def input(message, cond); begin; puts message; end while cond.call; end
def janken
hand_type = %w[g v w]
input('Input the number of opponents.', proc{gets.to_i < 1})
opp_number, hand, hands = $_.to_i
loop do
input('Input your hand.', proc{gets; false})
hand = hand_type.index($_.chomp!)
hands = opp_number.times.map{rand(3)}.unshift(hand)
p hands.map.with_index{|h, i| i == 0 ? ['You', $_] : ["PC#{i}", hand_type[h]]}
hand && hands.uniq.size == 2 ? break : puts('Draw')
end
puts %w[You\ Win! You\ Lose.][3 * hand / hands.uniq.sum / 2]
end
janken
# => Input the number of opponents.
1
Input your hand.
choki
[["You", "choki"], ["PC1", "g"]]
Draw
Input your hand.
w
[["You", "w"], ["PC1", "v"]]
You Lose.
713:デフォルトの名無しさん
18/11/24 14:57:54.21 Q9o1GKtC.net
>>688
まずは瞑想でもして心を落ち着けると良い。
714:679
18/11/24 15:20:34.57 1C+vWWG1.net
>>683
一応、自分自身でも投稿。
予想通り分岐使わないバージョン出て来た。
自分も挑戦してみようかな。
Haskell(リストに勝ち負け確定パターン(含まれてるかでグループパターン割り出し)があるか判別して、先頭要素(必ずユーザー)がパターンと同じか判定)
URLﾘﾝｸ(ideone.com)
Cとか死ねたし。(全体の勝ちグループ（各手をカウントしてグループパターン割り出し)の手を確定後、勝ちグループと同じ手に対応した文字を入力していたか判定)
URLﾘﾝｸ(ideone.com)
(能力不足の自分はあえてでは無いが)あえて条件分岐バージョンにすると言語や個人の個性出そう。
(CとHaskellでグループ分けや自分が勝ちグループ側かの判定が違うアルゴリズムになった)
その場合、アルゴリズムの説明付きだと面白そう。
715:デフォルトの名無しさん
18/11/24 16:39:00.82 ZWAqZgZk.net
>>683
Python3
URLﾘﾝｸ(ideone.com)
716:デフォルトの名無しさん
18/11/24 16:56:21.89 S/Hnk7Kr.net
>>693
グーチョキパー以外をプレイヤーが出したときおかしな挙動しない？
717:デフォルトの名無しさん
18/11/24 17:14:41.52 ZWAqZgZk.net
>>694
あいこの判定を手の種類数だけでしてたせいだな
修正した
URLﾘﾝｸ(ideone.com)
718:デフォルトの名無しさん
18/11/24 22:52:47.96 5TC6Hle/.net
お題
順列を求めるのにシャッフルでデータをたくさん用意して
重複データを取り除くことで求めている人がいた
順列の数の何倍位のデータを用意すればいいか調べる
719:デフォルトの名無しさん
18/11/24 23:20:30.16 Vcpm1NYO.net
許容誤差と確率の問題じゃん
720:デフォルトの名無しさん
18/11/24 23:23:27.73 7YEvwBu9.net
>>696
二度と来なくていい
721:デフォルトの名無しさん
18/11/24 23:37:47.52 Wfpvwubu.net
>>683 PowerShell
function Janken {
$hands = @($args[0]) + (1..$args[1] | %{ Get-Random "g","v","w" })
("[" + ($hands | % {"{0}`",'$_')" -f $(if ($i++ -eq 0) {"(`"You"} else {",(`"PC" + ($i-1)}) }) + "]")
$groups = @($hands | Group-Object)
$win = @{ "g" = "v"; "v" = "w"; "w" = "g" }[$args[0]]
if ($groups.Count -ne 2 -or $win -eq $null) { return "Draw" }
if (($groups | ? {$_.Name -eq $win}).Count -gt 0) { return "You Win!!" }
return "You Lose!!"
}
PowerShell > Janken g 1
[("You",'g') ,("PC1",'v')]
You Win!!
PowerShell > Janken v 2
[("You",'v') ,("PC1",'v') ,("PC2",'g')]
You Lose!!
PowerShell > Janken w 3
[("You",'w') ,("PC1",'v') ,("PC2",'g') ,("PC3",'w')]
Draw
PowerShell > Janken a 1
[("You",'a') ,("PC1",'g')]
Draw
722:679
18/11/25 01:57:22.20 ae+bi37x.net
>>699
>>687
723:デフォルトの名無しさん
18/11/25 06:18:56.85 k7/W79Is.net
>>683
Kotlin
URLﾘﾝｸ(paiza.io)
入力は1行単位で最初の手が自分、スペース区切りでPCの手になる。
グー、チョキ、パーと元の文字列の対応は以下に対応。
グー: "g", "G", "グー", "ぐー"
チョキ: "v", "V", "c", "C", "チョキ", "ちょき"
パー: "w", "W", "p", "P", "パー", "ぱー"
勝敗の判定は「勝」、「負」、「相子」で出る。
724:679
18/11/25 07:47:50.59 ae+bi37x.net
>>701
ジャンケンゲームの肝？ってPCはランダムな値を使う所だと思うんですが・・・
あと、私が勝手にアイコといえばジャンケンやり直しって勝手に思い込んでて仕様に盛り込まなかったのがダメなんですが、
アイコと(アイコ扱いの)不正入力はジャンケンやり直しの形でお願いしたいです。
>>699 さんも、アイコと(アイコ扱いの)不正入力はジャンケンやり直しの形でお願いします。
725:デフォルトの名無しさん
18/11/25 11:54:57.77 qcobBjeQ.net
お題
標準運指(URLﾘﾝｸ(taipingu.net))によるタイピングを考える。
英小文字からなる文字列Sが与えられるので、Sを入力するのにかかる時間を求めなさい。
各文字の入力にかかる時間は以下の通りとする。
・1文字目
・ホームポジションから動かない -> 4
・ホームポジションから動く -> 5
・2文字目以降
・1つ前の文字と反対の手の指 -> 1
・1つ前の文字と同じ手の違う指 -> 2
・1つ前の文字と同じ手の同じ指 -> 3
(例)
aiueo => 9 (4+1+2+1+1)
odai => 9
pppp => 14
asdfjkl => 15
fjdksla => 10
726:デフォルトの名無しさん
18/11/25 12:38:51.26 YCGD2W4D.net
>>703 Ruby
h = -> c {'qaz'[c] ? 1 : 'wsx'[c] ? 2 : 'edc'[c] ? 3 : 'rfvtgb'[c] ? 4 : 'yhnujm'[c] ? -4 : 'ik'[c] ? -3 : 'ol'[c] ? -2 : 'p'[c] ? -1 : raise('invalid key')}
f = -> str{(str[/\A[adfghjkls]/] ? 4 : 5) + str.each_char.map{|c| h[c]}.each_cons(2).map{|a, b| a * b < 0 ? 1 : a != b ? 2 : 3}.sum}
%w[aiueo odai pppp asdfjkl fjdksla].each{|s| puts '%s => %d' % [s, f[s]]}
# => aiueo => 9
odai => 9
pppp => 14
asdfjkl => 15
fjdksla => 10
727:デフォルトの名無しさん
18/11/25 13:38:17.14 k7/W79Is.net
>>702
そういうインタラクティブなやつか。
じゃあまた暇があったら作ろう。
728:デフォルトの名無しさん
18/11/25 16:23:23.79 rkqtyTFb.net
お題：Brainfuckのインタプリタを実装せよ
仕様 URLﾘﾝｸ(ja.wikipedia.org)
>+++++++++[<++++++++>-]<.>+++++++[<++++>-]<+.+++++++..+++.[-]>++++++++[<++++>-]<.>+++++++++++[<+++++>-]<.>++++++++[<+++>-]<.+++.------.--------.[-]>++++++++[<++++>-]<+.[-]++++++++++.
⇒ Hello World!
++++++++[>++++++++<-]>++.<++++++[>++++++++<-]>.<----[>++++<-]>-.++++++++.+++++.--------.+++++++++++++++.<----[>++++<-]>--.++++++++.
⇒ ？
729:デフォルトの名無しさん
18/11/25 16:52:01.92 1Q36MCdG.net
>>706 Ruby やっつけ
def parse_bra(code)
Hash.new.tap{|h|
while i = (code.index(/\[[^\[\]]*\]/))
h[i] = i + $&.size - 1; h[h[i]] = i; code = code.sub($&, ' ' * $&.size)
end
end
end
def step(stat)
case stat[:code][stat[:pos]]
when ?> then stat[:mar] = stat[:mar] == 9999 ? 0 : stat[:mar] + 1
when ?< then stat[:mar] = stat[:mar] == 0 ? 9999 : stat[:mar] - 1
when ?+ then stat[:mem][stat[:mar]] = stat[:mem][stat[:mar]] == 255 ? 0 : stat[:mem][stat[:mar]] + 1
when ?- then stat[:mem][stat[:mar]] = stat[:mem][stat[:mar]] == 0 ? 255 : stat[:mem][stat[:mar]] - 1
when ?. then putc stat[:mem][stat[:mar]]
when ?, then stat[:mem][stat[:mar]] = $stdin.getc&.ord.to_i
when ?[ then stat[:pos] = stat[:bra][stat[:pos]] if stat[:mem][stat[:mar]] == 0
when ?] then stat[:pos] = stat[:bra][stat[:pos]] if stat[:mem][stat[:mar]] != 0
end
end
def bf(code)
stat = {pos: 0, mar: 0, code: code, mem: Array.new(10000, 0), bra: parse_bra(code)}
(step(stat); stat[:pos] += 1) while stat[:pos] < code.size
end
bf('>+++++++++[<++++++++>-]/ 中略 /++++[<++++>-]<+.[-]++++++++++.')
# => Hello World!
bf('++++++++[>++++++++<-]>+/ 中略 /++++.<----[>++++<-]>--.++++++++.')
# => Brainfuck
730:デフォルトの名無しさん
18/11/25 19:29:25.63 Iiz4BNf0.net
>>706 C
昔書いたやつ
URLﾘﾝｸ(ideone.com)
mandelbrotがideoneで2.9s
731:デフォルトの名無しさん
18/11/25 21:08:13.52 FiKNHiMA.net
>>708
ideoneのbrainfuckより速いじゃないかｗ
URLﾘﾝｸ(ideone.com)
732:デフォルトの名無しさん
18/11/25 21:09:21.48 F5E3KDnq.net
>>709
笑った
733:デフォルトの名無しさん
18/11/25 23:28:07.03 DgoPPid/.net
>>664 Perl5 普通のloop版
use feature qw{current_sub say};
for (qw{321 910 909 0 11111 123456789}) {
$a = $_;
$s = 1;
@d= ();
do {
$d = int $a / 10*$s;
$m = $a % (10*$s);
unshift @d, $m*$s;
$s *= -1;
$a = ($a - $m)/10;
} while $a;
say "$_ $d => ", @d;
}
>>664 Perl5 無名関数の末尾再帰版
use feature qw{say};
for (qw{321 910 909 0 11111 123456789}) {
$s = 1;
say "$_ $d => ", sub {
$a = shift;
$d = int $a / 10*$s;
$m = $a % (10*$s);
my $ms = $m*$s;
$s *= -1;
$a = ($a - $m)/10;
(($a ? __SUB__->($a) : ()), $ms);
}->($_);
}
734:デフォルトの名無しさん
18/11/25 23:30:57.42 DgoPPid/.net
>>711
ｺﾞﾒﾝ、普通のloop版の
say "$_ $d => ", @d;
は不要なdebug writeも出力するので
say "$_ => ", @d;
に訂正
結果はいずれも
$ perl 12_660.pl
321 => 481
910 => 19090
909 => 909
0 => 0
11111 => 29291
123456789 => 284664829
735:デフォルトの名無しさん
18/11/25 23:34:40.02 DgoPPid/.net
>>711
再々投ｺﾞﾒﾝ
無名関数の末尾再帰版
× use feature qw{say};
↓
○ use feature qw{current_sub say};
736:697
18/11/26 02:29:30.61 jdmxn8AZ.net
>>683>>702
HTML + JavaScript
URLﾘﾝｸ(codepen.io)
737:on/pen/OaERvj 即実行できた方がいいかなと思ってブラウザで動く JavaScript にしてみた。 PC側は10台まで台数入力する。 表示は「グー」、「チョキ」、「パー」になっている。 判定は方法ほ Kotlin のやつとほとんど同じ。 但し勝敗や相子に関係なく再挑戦ボタンが出る。
738:デフォルトの名無しさん
18/11/28 01:28:37.70 he8qnrZH.net
>>706 c
URLﾘﾝｸ(ideone.com)
739:711
18/11/28 23:15:07.63 he8qnrZH.net
>>706 c
URLﾘﾝｸ(ideone.com)
・mandelbrotが4.24s
・セル配列をコンパクト化
・一部のforとswitchをgotoで置き換え
・データポインタの範囲チェックは廃止
・']'のとき無条件に'['へ戻ってたのを廃止
740:デフォルトの名無しさん
18/11/28 23:53:16.47 fj/EN88U.net
これで。以前からやろうとしてできてない。AI簡単そうだが。
３ｘ３盤タイルゲーム for Windows ver2.00 14/7/5 更新
対戦するたびに学習して次第に強くなる「最善手探索＋対戦学習型知能ゲーム」 ＜入門版＞
４ｘ４盤タイルゲーム for Windows ver2.00 14/7/5 更新
対戦するたびに学習して次第に強くなる「最善手探索＋対戦学習型知能ゲーム」 ＜本格版＞
URLﾘﾝｸ(www2u.biglobe.ne.jp)
741:デフォルトの名無しさん
18/11/29 11:20:14.11 jwCbT4Qs.net
盤の状態は4×4のやつで3^16=43046721通りだから後退解析で全状態の最善手が簡単に解ける
742:デフォルトの名無しさん
18/11/29 19:56:01.31 Hd6SZyXm.net
>>716
その "&&label" って初めてみたんだけどgcc拡張なんだな
743:デフォルトの名無しさん
18/11/29 20:53:52.25 lIzTCHsu.net
>>719
これか。こんなのあったとは知らなかった。
URLﾘﾝｸ(nnabeyang.hatenablog.com)
しかしあまり利用する必要なさそうな予感。
744:711
18/11/29 23:18:59.74 dyCCyrAH.net
>>706 c
URLﾘﾝｸ(ideone.com)
・ mandelbrotが4.24s→3.42s
・いくつかの単純なループを自前の命令に置き換え
>>719-720
まさかこれ使う日が来るとはね（ ＾ω＾）
745:デフォルトの名無しさん
18/11/30 16:33:00.37 M3yAddAk.net
さすがC言語
奥が深いな
746:デフォルトの名無しさん
18/11/30 18:55:20.12 eqr4XxJg.net
儲かるお題を書いてください。
747:デフォルトの名無しさん
18/11/30 19:56:50.93 vThfWoZE.net
お題: C言語のコメント/*～*/, //～ を除去するプログラムを実装せよ
748:711
18/11/30 22:52:06.95 j+r1UJtS.net
>>706
URLﾘﾝｸ(ideone.com)
・ mandelbrotが4.24s→3.42s→3.24s
・ループの置き換えを若干増やす
・初期8命令を6命令へ、なんとなく整理
749:デフォルトの名無しさん
18/11/30 22:53:31.37 cIO0a97u.net
>>724
命令すんなカス
750:デフォルトの名無しさん
18/11/30 23:05:45.19 iwzbC/nf.net
>>725
ここまで最適化するとはすごいな
今VCに移植してやってみてる
VCはラベルのアドレスは取れないのでcase文内で処理してる
でも文字がダラダラと表示されるのが嫌なので、putchar()の所を
一度バッファに溜めておいて最後にputs()で一気に出力するようにした
751:
18/11/30 23:09:14.20 MkfLpznc.net
>>724
やったことがある気がしたのですが、もうすっか�
752:阮Yれてしまいました…
753:デフォルトの名無しさん
18/11/30 23:09:48.33 iwzbC/nf.net
>>716のを移植するとこうなる
他のも同様だと思う
Random1.h というのは自前のストップウォッチクラスを使うためだけなので、
std::chronoを使って適当に自作すれば良い
URLﾘﾝｸ(ideone.com)
754:デフォルトの名無しさん
18/11/30 23:16:05.51 TjeK6E2T.net
お題: 入力にこのスレのhtmlが与えられるので数字だけ,区切りで出力しなさい。
出力例
2018,11,30,...
755:デフォルトの名無しさん
18/11/30 23:54:45.63 8gAcKqbf.net
どれだけの数字の種類に対応するのかで個性が出るな
756:デフォルトの名無しさん
18/12/01 00:17:45.63 XKE5KJf3.net
>>726
誰もお前になんか言ってねーよ
自意識過剰なんじゃボケカス
757:デフォルトの名無しさん
18/12/01 01:26:07.16 3EVAE812.net
>>724
Perl
URLﾘﾝｸ(paiza.io)
Perl だと簡単だ。
但し /* /* */ */ みたいな二重のやつには対応していない。最初の /* から次に出た */ を削除して */ が残る。
(この辺は本物のCプリプロセッサでも同じかな?)
758:デフォルトの名無しさん
18/12/01 01:45:09.70 YAQo6Dqr.net
>>730 Ruby
require 'open-uri'
thread = 'URLﾘﾝｸ(mevius.2ch.sc)'
puts open(thread).read.scan(/>([^<]+)/).flat_map{|(s)| s.scan(/\d+/)}.join(?,)
# =>
12,12,729,314,1,100,50,1,2018,09,28,10,09,07,13,1,2,1,10,# 略
759:デフォルトの名無しさん
18/12/01 01:53:10.02 k1RHlnBk.net
>>733
"/* hoge */" => ""
760:
18/12/01 02:29:20.81 J8cQMvWo.net
>>733
＞(この辺は本物のCプリプロセッサでも同じかな?)
そうですね。URLﾘﾝｸ(ideone.com)
761:デフォルトの名無しさん
18/12/01 03:00:24.20 3EVAE812.net
>>735
あー。文字列リテラルについては何も考えてなかった。
明日考えよう。
>>736
やはりそうでしたか。わざわざどうも。
762:デフォルトの名無しさん
18/12/01 03:09:09.09 3EVAE812.net
>>735
今閃いたので修正した。(URLは同じ)
763:デフォルトの名無しさん
18/12/01 03:22:24.06 Zs5zJNI/.net
>>724 Ruby
src = $<.read
i = 0
loop do
break if i >= src.size
case src[i]
when ?" then i += src[i..-1][/(?:".*[^\\]|")(?:\\\\)*"/].size
when ?' then i += src[i..-1][/(?:'.*[^\\]|')(?:\\\\)*'/].size
when ?/ then src.sub!(/(?<=.{#{i}})(?:\/\/[^\n]*|\/\*.*?\*\/)/m, ''); i += 1
else i += 1
end
end
-*- input -*-
hoge(); // fuga
hoge('"'); // fuga ");
hoge("// \"fuga\"\\");
hoge("/* fuga */"); /* fuga
fuga /* "fuga" // */; hoge
-*- output -*-
hoge();
hoge('"');
hoge("// "fuga"\\");
hoge("/* fuga */"); ; hoge
764:デフォルトの名無しさん
18/12/01 03:24:23.46 3EVAE812.net
>>724
Cでも作った。
URLﾘﾝｸ(paiza.io)
これは1文字づつ読んでモード切り替えて出力したりしなかったりする方式。
文字列リテラルにも対応。
765:デフォルトの名無しさん
18/12/01 03:40:27.80 mIATMgqT.net
>>738
'"', /* hoge */, "fuga" => '"', /* hoge */, "fuga"
766:デフォルトの名無しさん
18/12/01 03:45:42.76 mIATMgqT.net
>>738
"// hoge" => "
767:デフォルトの名無しさん
18/12/01 04:05:45.76 3EVAE812.net
>>741>>742
あ、それか。それは明日考えよう。