- 1 名前：デフォルトの名無しさん mailto:sage [2019/11/17(日) 09:00:22.10 ID:xqEdXdr6.net]
- プログラミングのお題スレです。
【出題と回答例】
1 名前：デフォルトの名無しさん
お題：お題本文
2 名前：デフォルトの名無しさん
>>1 使用言語
回答本文
結果がある場合はそれも
【ソースコードが長くなったら】 (オンラインでコードを実行できる)
https://ideone.com/
codepad.org/
compileonline.com/
rextester.com/runcode
https://runnable.com/
https://code.hackerearth.com/
melpon.org/wandbox
https://paiza.io/
宿題は宿題スレがあるのでそちらへ。
※前スレ
プログラミングのお題スレ Part15
mevius.5ch.net/test/read.cgi/tech/1564310397/
- 267 名前：デフォルトの名無しさん mailto:sage [2019/12/12(木) 06:06:40.97 ID:wmbGd8tm.net]
- >>254
f(x) = 1 if x is prime
f(x) = 0 otherwise
なる f: R -> R が存在しないってなんで言い切れんの？
頭悪すぎ
- 268 名前：デフォルトの名無しさん mailto:sage [2019/12/12(木) 07:32:31.88 ID:UvCIGzud.net]
- >>254も>>263も頭悪すぎだ
- 269 名前：デフォルトの名無しさん mailto:sage [2019/12/12(木) 07:40:34.14 ID:UvCIGzud.net]
- >>252
素数判定は不要
>>254
uint64_tの上限じゃなくて素数判定可能な範囲
また、実際に割ってみる以外の方法も色々と存在する
>>263
fは存在する
あなたが書いた通りの定義そのままをfとすれば良い
fの存在と素数判定の方法が存在するかどうかは無関係
- 270 名前：デフォルトの名無しさん mailto:sage [2019/12/12(木) 07:48:51.75 ID:wmbGd8tm.net]
- >>265
お前も馬鹿だな
簡単な関数で f が定義できるならそれはそのまま簡単な計算で素数判定ができることに他ならない
こちらはそんな方法が存在するといっているわけではなく、無配慮にそんなものは存在しないと一刀両断する数学的リテラシーの無さを指摘しているだけなんだが
- 271 名前：デフォルトの名無しさん mailto:sage [2019/12/12(木) 08:00:21.80 ID:UvCIGzud.net]
- >>263
｢簡単な関数でfが定義できる｣
非常に重要な言葉を後付けだし
これが最初からあったとしても、
単に簡単に素数判定可能可能を言い換えただけの
何の意味もないレス
リテラシーの無さの指摘の方法が頭が悪い
- 272 名前：デフォルトの名無しさん mailto:sage [2019/12/12(木) 08:08:21.73 ID:UvCIGzud.net]
- 現代の技術で言えば
特殊な形であれば高速に判定する方法はある
特殊な形でなければ高速に判定する方法は見つかっていない
実際に割ってみる以外の判別方法は存在する
- 273 名前：デフォルトの名無しさん mailto:sage [2019/12/12(木) 08:25:56.28 ID:UvCIGzud.net]
- なんでNやZじゃなくてRにしたのか気になる
- 274 名前：デフォルトの名無しさん mailto:sage [2019/12/12(木) 12:56:52.27 ID:wmbGd8tm.net]
- 文脈無視して揚げ足取ってて草
こいつ関数は全射しか存在しないとでも思ってんのか
- 275 名前：デフォルトの名無しさん mailto:sage [2019/12/12(木) 14:55:31.47 ID:2PtCb74v.net]
- 単純な疑問だよ
なんかこだわりとか深い意味とかあるのかと
｢実数が素である｣とか書かれると、
素数じゃない別の意味を指してると思うわけで
揚げ足取られたと思ったってことは
ミスったと思ったんだよね？
- 276 名前：デフォルトの名無しさん mailto:sage [2019/12/12(木) 15:35:29.90 ID:zRSUYply.net]
- いつもの連投アスペ君じゃん
相手すんなよ
- 277 名前：デフォルトの名無しさん mailto:sage [2019/12/12(木) 17:58:27.01 ID:2C/x7O5N.net]
- 論破されて捨て台詞
の典型でした
- 278 名前：デフォルトの名無しさん mailto:sage [2019/12/12(木) 18:19:15.31 ID:RcQND7/k.net]
- 5chリテラシーが低いやつもだいぶ減ってはきてるが
このスレはちょいちょい出てくるよなぁ
- 279 名前：デフォルトの名無しさん mailto:sage [2019/12/12(木) 18:27:18.35 ID:cffvEFbc.net]
- >>263を書いておいて良くいうよ
- 280 名前：デフォルトの名無しさん mailto:age [2019/12/12(木) 18:39:51.55 ID:JPTMcftT.net]
- 論破を禁止します
- 281 名前：デフォルトの名無しさん mailto:sage [2019/12/12(木) 19:05:41.21 ID:f2lx0DlC.net]
- まーたロンパンジーが湧いてんのかよ
- 282 名前：デフォルトの名無しさん mailto:sage [2019/12/12(木) 19:12:35.43 ID:cffvEFbc.net]
- リテラシー君
よほど悔しかったのかな？
- 283 名前： mailto:sage [2019/12/12(木) 19:15:24.80 ID:bwSkQtN1.net]
- >>256
単に上限値を増やしただけのお題なんて糞だと思います
- 284 名前： mailto:sage [2019/12/12(木) 19:17:30.13 ID:bwSkQtN1.net]
- >>265
＞また、実際に割ってみる以外の方法も色々と存在する
私の初等的な教科書にはウィルソンの定理の証明が載っていました、>>254 はちょっと勇み足でしたね
>>266
＞無配慮にそんなものは存在しないと一刀両断する数学的リテラシーの無さ
まあ、認めましょう
- 285 名前：デフォルトの名無しさん mailto:sage [2019/12/12(木) 19:18:20.83 ID:cffvEFbc.net]
- >>279
そう思うってことは上限値以外の差がわからんて事だね
決定的な違いがある
- 286 名前：デフォルトの名無しさん [2019/12/12(木) 20:55:40.30 ID:uIjgN9ep.net]
- お題：
(A) 階乗の下z桁がすべて0となるような最小の自然数を、z = 1, 12, 123, 1234, 12345,
123456, 1234567, 12345678, 123456789の各場合について求めよ。存在しないときは
そう表示せよ。
(B) (A)の「下z桁がすべて0となる」という条件を「0である桁がz個となる」に置き換えて解け。
(A)はちょっと考えれば簡単に解ける。(B)はどうか知らない。多桁整数計算ができるJuliaでは
z = 12345までは力任せでも求められたが。
- 287 名前：デフォルトの名無しさん mailto:sage [2019/12/12(木) 21:21:19.99 ID:qa03h3dy.net]
- 5で割っていく感じだから
整数無視して無限に割ると
おおまかに4で割った感じの数0が並ぶ
126！ は4で割って31ぐらい
- 288 名前：デフォルトの名無しさん mailto:sage [2019/12/12(木) 22:14:34.83 ID:WrPVO4K2.net]
- 連投論破野郎が論破されてて草
- 289 名前：デフォルトの名無しさん mailto:sage [2019/12/12(木) 23:15:10.76 ID:UvCIGzud.net]
- (A)だけ C++
https://ideone.com/LTC90E
- 290 名前：デフォルトの名無しさん mailto:sage [2019/12/12(木) 23:18:50.66 ID:UvCIGzud.net]
- (B)は実際に下限から順番に計算していかないとダメじゃないか？
- 291 名前：デフォルトの名無しさん mailto:sage [2019/12/12(木) 23:52:01.98 ID:UvCIGzud.net]
- n ! のゼロの個数は大雑把にはこのくらい
log_10(n !) / 10 + n * 9 / 40
逆算すれば大体の値はわかる
でも最小値だから正確に求めるのには使えない
- 292 名前：デフォルトの名無しさん mailto:sage [2019/12/13(金) 18:36:38.11 ID:0Lb/VhZx.net]
- [お題]
今月(2019/12)の13日は金曜日。
開始年月と終了年月が与えられる。年は西暦、年月区切りは"/"。
開始年月一日から終了年月末日の間で"13日の金曜日"は何回あるか。
現在のグレゴリオ歴ルールで、終了年月末日まで変わらないとする。
制約: 1970 <= 年 <= 300億, 1 <= 月 <= 12, 開始年月 <= 終了年月
1) 2019/1 2019/12 --> 2 // 今年は9月と12月が該当
2) 1980/1 2012/12 --> 57
3) 213456/8 453212/4 --> 412380
4) 2000/1 2399/12 -->?
5) 2000/11 2800/9 -->?
6) 123456789/11 7301177081/10 -->?
7) 1970/1 30000000000/12 --> 51599996613
※数十万年程度だと力技だけで回っちゃうので、難易度調整で300億に。
wikiの"グレゴリオ歴#暦法" https://ja.wikipedia.org/wiki/%E3%82%B0%E3%83%AC%E3%82%B4%E3%83%AA%E3%82%AA%E6%9A%A6#%E6%9A%A6%E6%B3%95
- 293 名前：デフォルトの名無しさん mailto:sage [2019/12/13(金) 20:06:08.48 ID:KAf60mjk.net]
- 300億にしても年の曜日は14パターンしか無いのであっという間に解ける気が…
曜日は400年周期だから400年分求めればあとは割り算するだけかな？
- 294 名前：デフォルトの名無しさん mailto:sage [2019/12/13(金) 20:15:02.20 ID:QuzLYYNu.net]
- C++
https://ideone.com/33NYDY
- 295 名前：デフォルトの名無しさん mailto:sage [2019/12/13(金) 20:16:51.71 ID:QuzLYYNu.net]
- >>289
今日や
- 296 名前：らないとダメだよ []
- [ここ壊れてます]
- 297 名前：デフォルトの名無しさん [2019/12/13(金) 20:32:32.43 ID:7JZ8Vcg3.net]
- >>288
ずるいやり方だが、取り敢えずPowerShellに
1..12 |? {([DateTime]"2000/$_/13").DayOfWeek -eq "Friday"}
1..12 |? {([DateTime]"2400/$_/13").DayOfWeek -eq "Friday"}
と打ち込んでみると、
10
10
と表示され、2000年と2400年の13日の金曜日は10月で一致する。
これと閏年調整のパターンが400年周期であることを組み合わせると、
13日の金曜日の出現パターンも400年周期になることが分かる。
だから、400年分の表を作ってしまえば、遅いPowerShellでも余裕で解ける。
https://ideone.com/oV7JFk
--- 実行結果 ---
2019/1 2019/12 -> 2
1980/1 2012/12 -> 57
213456/8 453212/4 -> 412380
2000/1 2399/12 -> 688
2000/11 2800/9 -> 1375
123456789/11 7301177081/10 -> 12345678901
1970/1 30000000000/12 -> 51599996613
- 298 名前：デフォルトの名無しさん [2019/12/13(金) 20:57:37.29 ID:7JZ8Vcg3.net]
- >>285
正解。例によってRで簡潔に書いた解答例: https://ideone.com/RhEtiC
>>287
やっぱり無理か。ちなみに、Juliaでz = 12345まで力任せで求めるプログラム
https://ideone.com/iqMYLa
--- 実行結果 ---
階乗の0である桁が1個になる最小値は5です。
階乗の0である桁が12個になる最小値は37です。
階乗の0である桁が123個になる最小値は299です。
階乗の0である桁が1234個になる最小値は2414です。
階乗の0である桁が12345個になる最小値は20177です。
- 299 名前：デフォルトの名無しさん mailto:sage [2019/12/13(金) 21:27:38.91 ID:QuzLYYNu.net]
- >>293
>>287の式に20177を入れると12349.7
かなりいい線行ってる
- 300 名前：デフォルトの名無しさん mailto:sage [2019/12/13(金) 22:22:01.90 ID:QuzLYYNu.net]
- 123456個は存在しない
- 301 名前：デフォルトの名無しさん mailto:sage [2019/12/13(金) 23:21:15.30 ID:QuzLYYNu.net]
- 123457桁になる 30484!
から
下位に0が123457個続く 493840!
までの間に存在しない事を示せば
存在しない証明になりますが
もっと範囲を絞った証明は出来ないですかねえ
確率的には>>287の付近だけ調べれば良いんですが...
- 302 名前：デフォルトの名無しさん mailto:sage [2019/12/13(金) 23:47:17.94 ID:r78PztnN.net]
- 全部調べる感じでぶん回してるけど1234567までが長いお(´・ω・`) (123456は>>295の言う通り出なかった)
1時間ぶん回して900000!まで行ったが…
- 303 名前：デフォルトの名無しさん mailto:sage [2019/12/13(金) 23:49:02.36 ID:r2S5lo/C.net]
- 数学でワープできる分手計算のほうが早い
- 304 名前：デフォルトの名無しさん mailto:sage [2019/12/13(金) 23:49:38.96 ID:QuzLYYNu.net]
- kwsk
- 305 名前：デフォルトの名無しさん mailto:sage [2019/12/13(金) 23:50:22.63 ID:r2S5lo/C.net]
- >283
- 306 名前：デフォルトの名無しさん mailto:sage [2019/12/13(金) 23:52:09.33 ID:QuzLYYNu.net]
- (A)は解決済み
(B)の話
- 307 名前：デフォルトの名無しさん mailto:sage [2019/12/13(金) 23:53:42.34 ID:QuzLYYNu.net]
- 数学で絞れるのは>>296くらいかと
- 308 名前：デフォルトの名無しさん mailto:sage [2019/12/13(金) 23:56:32.85 ID:QuzLYYNu.net]
- 下限の n! を計算するのは速い
そこから順番に1個ずつnを増やしていって
0を数えていかないとならない
見つからなければ上限までずっと
- 309 名前：デフォルトの名無しさん mailto:sage [2019/12/13(金) 23:59:51.46 ID:QuzLYYNu.net]
- ちなみに私、東大の数学科卒なんで
- 310 名前：デフォルトの名無しさん mailto:sage [2019/12/14(土) 00:07:59.08 ID:ruM/1CH5.net]
- ワープ
(* 4 1234567) 4938268
(/ 4938268 5.0) 987653.6
(/ 987653 5.0) 197530.6
(/ 197530 5.0) 39506.0
(/ 39506 5.0) 7901.2
(/ 7901 5.0) 1580.2
(/ 1580 5.0) 316.0
(/ 316 5.0) 63.2
(/ 63 5.0) 12.6
(/ 12 5.0) 2.4
(+ 987653 197530 39506 7901 1580 316 63 12 2) 1234563
- 311 名前：デフォルトの名無しさん mailto:sage [2019/12/14(土) 00:14:15.42 ID:03SKvnKb.net]
- >>305
だからそれは>>282の(A)の話じゃろ…
- 312 名前：デフォルトの名無しさん mailto:sage [2019/12/14(土) 00:15:48.22 ID:ruM/1CH5.net]
- Bの話か
- 313 名前：デフォルトの名無しさん mailto:sage [2019/12/14(土) 02:58:36 ID:03SKvnKb.net]
- 階乗の0である桁が1234567個になる最小値は1542987です。
お、出た…4時間か
- 314 名前：デフォルトの名無しさん mailto:sage [2019/12/14(土) 03:55:22 ID:DhSlagHw.net]
- お題: 目覚まし時計の現在時刻とアラーム時刻が入力されるので、待機時間を出力しなさい
例:
現在時刻 = 10:00
アラーム時刻 = 16:00
待機時間 = 06:00
現在時刻 = 22:00
アラーム時刻 = 04:00
待機時間 = 06:00
- 315 名前：デフォルトの名無しさん mailto:sage [2019/12/14(土) 09:12:53.23 ID:ruM/1CH5.net]
- >>309
これだな
https://paiza.io/projects/GgkMgqOqyzwwgbmu-Fn-Vg
~/bin/sleep.pl
- 316 名前：10:00
2909 00:48:29
のように使ってる [] - [ここ壊れてます]
- 317 名前：デフォルトの名無しさん mailto:sage [2019/12/14(土) 09:59:37.97 ID:Lp9CT80F.net]
- >>304
進振り何点だった？ 連投アスペ君
- 318 名前：デフォルトの名無しさん [2019/12/14(土) 22:12:52.90 ID:8CJijD11.net]
- >>309
この手の処理はPowerShellが得意だな。
function WaitingTime($now, $alarm)
{
$wait = [DateTime]$alarm - [DateTime]$now
if ($wait -lt 0) {$wait += [TimeSpan]"12:00" + [TimeSpan]"12:00"}
"現在時刻 = $now"
"アラーム時刻 = $alarm"
"待機時刻 = $wait"
""
}
WaitingTime 10:00 16:00
WaitingTime 22:00 4:00
WaitingTime 12:34:56 1:23:45
--- 実行結果 ---
現在時刻 = 10:00
アラーム時刻 = 16:00
待機時刻 = 06:00:00
現在時刻 = 22:00
アラーム時刻 = 4:00
待機時刻 = 06:00:00
現在時刻 = 12:34:56
アラーム時刻 = 1:23:45
待機時刻 = 12:48:49
- 319 名前：デフォルトの名無しさん mailto:sage [2019/12/15(日) 00:16:05 ID:K3IRPfAN.net]
- >>312
キャスト出来るんだな
楽そう
- 320 名前：デフォルトの名無しさん mailto:sage [2019/12/15(日) 06:09:40 ID:K3IRPfAN.net]
- お題: あなたは研究所で助手をしています
ある日、博士からこんな手紙が届きました
助手よ。この数値の名前を教えて欲しい
16776960
あなたは博士に返事を書こうと思います
その返事の内容をお答えください
- 321 名前：デフォルトの名無しさん mailto:sage [2019/12/15(日) 07:44:00 ID:VJoyKt1C.net]
- >>314 直感
Yellow
- 322 名前：デフォルトの名無しさん mailto:sage [2019/12/15(日) 10:09:42 ID:/SOvb5b/.net]
- 黄色だな
- 323 名前：デフォルトの名無しさん [2019/12/15(日) 11:56:51.84 ID:wptEtnNg.net]
- お題
与えられた自然数の0を全て右端に寄せる
例
2019 -> 2190
102030 -> 123000
123 -> 123
- 324 名前：デフォルトの名無しさん mailto:sage [2019/12/15(日) 12:02:23.68 ID:fpSJINfx.net]
- >>309
Ruby で、
require 'active_support/time'
def calculate_time_span( now, alarm )
current = Time.now
now_time = Time.parse( now, current ) #=> 2019-12-15 22:00:00 +0900
alarm_time = Time.parse( alarm, current ) #=> 2019-12-15 04:00:00 +0900
diff_time = alarm_time - now_time
# アラームが翌日の場合
diff_time = alarm_time.tomorrow - now_time if diff_time < 0
Time.at( diff_time ).utc.strftime( '%H:%M' )
end
inputs = %w(10:00 16:00 22:00 04:00) # (現在時刻, アラーム時刻)の組
inputs.each_slice( 2 ) do |now, alarm| # 2個ずつ処理する
puts calculate_time_span( now, alarm )
end
- 325 名前：デフォルトの名無しさん mailto:sage [2019/12/15(日) 13:16:18.52 ID:VJoyKt1C.net]
- >>309 Ruby
def waitTime( n, a )
Time.at( (a - n) % 86400 ).utc
end
- 326 名前：デフォルトの名無しさん mailto:sage [2019/12/15(日) 15:13:57.70 ID:KhVK4v3Y.net]
- >>309
https://ideone.com/cAF5X7
C++。あってるかな？
- 327 名前：デフォルトの名無しさん [2019/12/15(日) 15:21:49.83 ID:yZPHpztp.net]
- >>317 Common Lisp
https://ideone.com/FjISQ9
- 328 名前：デフォルトの名無しさん mailto:sage [2019/12/15(日) 15:38:04.40 ID:KhVK4v3Y.net]
- >>317
https://ideone.com/rUuquJ
C++。できてるかな？
- 329 名前：デフォルトの名無しさん mailto:sage [2019/12/15(日) 16:45:12.24 ID:K3IRPfAN.net]
- >>315-316
正解
- 330 名前：デフォルトの名無しさん [2019/12/15(日) 20:15:30.36 ID:IFqyyeL5.net]
- >>317
これもPowerShellで簡単。
function f($n)
{
$m = -join([char[]]"$n" |? {$_ -ne "0"})
($m += "0" * ("$n".length - $m.length))
}
f 2019; f 102030; f 123
- 331 名前：デフォルトの名無しさん mailto:sage [2019/12/15(日) 22:45:37.77 ID:myBFLrpG.net]
- お題：ハノイの塔の最少手数は一種類しかないのか？
(Part 13, 055)
結果：n枚の円盤すべてを移動させるには最低 2^n −1 回の手数がかかる。
- 332 名前：デフォルトの名無しさん mailto:sage [2019/12/15(日) 22:58:29.31 ID:myBFLrpG.net]
- 4ピンのハノイの塔(河内塔)
n枚の円盤は最初ピン0にある。n枚すべてをピン3に移動させる。
条件：
小円盤の上に大円盤を載せられない。
ピン1とピン2には最大1枚しか置けない。
- 333 名前：デフォルトの名無しさん mailto:sage [2019/12/15(日) 23:12:15.95 ID:myBFLrpG.net]
- ・n=2 のとき
12, -, -, -
2, 1, -, -
-, 1, -, 2
-, -, -, 12 (3手)
・n=3 のとき
123, -, -, -
23, 1, -, -
3, 1, 2, -
-, 1, 2, 3
-, 1, -, 23
-, -, -, 123 (5手)
・n=4 のとき
1234, -, -, -
234, 1, -, -
34, 1, 2, -
4, 1, 2, 3
4, 1, -, 23
-, 1, 4, 23
2, 1, 4, 3
12, -, 4, 3
12, 3, 4, -
12, 3, -, 4
12, -, -, 34
2, 1, -, 34
-, 1, -, 234
-, -, -, 1234 (13手)
- 334 名前：デフォルトの名無しさん mailto:sage [2019/12/15(日) 23:25:59.52 ID:myBFLrpG.net]
- ・n=5 のとき
12345, -, -, -
2345, 1, -, -
345, 1, 2, -
45, 1, 2, 3
45, 1, -, 23
45, -, -, 123
5, 4, -, 123
-, 4, 5, 123
4, -, 5, 123
4, 1, 5, 23
24, 1, 5, 3
124, -, 5, 3
124, 3, 5, -
124, 3, -, 5
24, 3, 1, 5
4, 3, 1, 25
4, 3, -, 125
-, 3, 4, 125
3, -, 4, 125
3, 1, 4, 25
23, 1, 4, 5
23, 1, -, 45
3, 1, 2, 45
-, 1, 2, 345
-, 1, -, 2345
-, -, -, 12345 (25手)
- 335 名前：デフォルトの名無しさん [2019/12/16(月) 08:07:19.12 ID:YuYKZXFs.net]
- お題：
ここに単語を登録したリストがある
リストには以下の種類の言葉が存在する
単語：（例）くさり
単語解説：（例）環状の部品を繋げて線状にしたもの
リストには上記ペアを１単位として、ずらずら並んでいる
（数十個くらい）
リストの中の似たような単語を探し、
以下のサンプルのようにボケ、ツッコミを繰り返すプログラムを作れ
似たような単語が見つからない場合には
最後に「こうじ：お前とはもうやってられませんわ」とprintし、
プログラムを終了せよ
動作サンプル：
こうじ：「くさび」を見ると興奮するよね
てつお：ああ、環状の部品を繋げて線状にしたものね
こうじ：それは「くさり」
てつお：ああ、マルスダレガイ科に属する二枚貝ね
こうじ：それは「あさり」
てつお：ああ、慰安婦の嘘を書いた新聞ね
こうじ：それは「あさひ」
こうじ：お前とはもうやってられませんわ
- 336 名前：デフォルトの名無しさん mailto:sage [2019/12/16(月) 09:38:23.88 ID:UpTR80vx.net]
- >>326
・n≧6のとき
ピン1とピン2には各1個しか置けないから 1〜(n-1) を置くことはできない。
∴ n を ピン0 から ピン3 に直送することはできない。
∴ ピン0 → ピン1 → ピン3 と送ろう。
まず 12345 をピン2、ピン3に退避する。(n=6の場合)
123456, -, -, -
6, -, m, 12345-m (1≦m≦5)
6, -, -, 12345 は m=1 と見なす。
-, 6, m, 12345-m
次にピン3を空けるため、ピン0とピン2に移すことになる。
しかしピン0には3枚しか移動できず、ピン3に n-5枚残ってしまう。
∴ n≧6 では不可能。
- 337 名前：デフォルトの名無しさん mailto:sage [2019/12/16(月) 10:03:17.28 ID:UpTR80vx.net]
- 条件を変えたらどうなるか？
条件(1,1)
ピン1、ﾋﾟﾝ2には最大で１枚しか置けない。 >>326
条件(1,2)
ピン1には最大で1枚、ピン2には最大で2枚しか置けない。
条件(2,2)
ピン1、ピン2には最大で2枚しか置けない。
- 338 名前：デフォルトの名無しさん mailto:sage [2019/12/16(月) 12:12:45.33 ID:ZZ8St2Js.net]
- >>331
pin1,pin2に置ける枚数(の合計)に上限があれば
移動可能枚数に上限がつく
- 339 名前：デフォルトの名無しさん mailto:sage [2019/12/16(月) 14:51:32.32 ID:b9yK9thh.net]
- >>314
common lisp
(format t "~R" 16776960)
sixteen million, seven hundred and seventy-six thousand, nine hundred and sixty
- 340 名前：デフォルトの名無しさん mailto:sage [2019/12/16(月) 15:02:43.75 ID:b9yK9thh.net]
- >>317
perl5
cat digits
2019
102030
123
cat digits | perl -lane '$zero = 0; while (s/0//) {++$zero}; print $_ . "0" x $zero;'
2190
123000
123
- 341 名前：デフォルトの名無しさん [2019/12/16(月) 17:56:02.69 ID:rcGH9Ke6.net]
- >>317 Ruby
def f(n)
n.to_s.chars.partition{|x| x !="0"}.join .to_i
end
- 342 名前： mailto:sage [2019/12/16(月) 20:29:58.89 ID:NZyGx79l.net]
- >>326
これ昔やったことがありますが、すっかり忘れてしまったのは残念ですね…
- 343 名前：デフォルトの名無しさん [2019/12/16(月) 22:11:10.55 ID:Ppfui4Eb.net]
- >>317 PowerShell
function f($n) {($n -replace "0", "") + ($n -replace "[^0]", "")}
- 344 名前：デフォルトの名無しさん [2019/12/17(火) 01:24:02.19 ID:XiWpNBJ4.net]
- >>317 Common Lisp
https://ideone.com/2BlyuC
- 345 名前：デフォルトの名無しさん [2019/12/17(火) 04:04:38.21 ID:XiWpNBJ4.net]
- >>317 Common Lisp
>>338は間違いでした
修正版: https://ideone.com/YaImKC
- 346 名前：デフォルトの名無しさん [2019/12/17(火) 13:17:36.43 ID:EDJKyz+u.net]
- >>317 julia
function f(n)
r = ""
for c = reverse(string(n))
if c == '0'
r = r * c
else
r = c * r
end
end
parse(Int, r)
end
- 347 名前：デフォルトの名無しさん mailto:age [2019/12/17(火) 17:33:51.45 ID:/DSBUbt2.net]
- お題
任意の文字列からaが連続する最も長い長さを出力してください
入力:acgtaattgaaagggtctt
期待値:3
- 348 名前：デフォルトの名無しさん [2019/12/17(火) 18:10:05.60 ID:Etag1t/i.net]
- >>341 Common Lisp
https://ideone.com/mkHEii
- 349 名前：デフォルトの名無しさん [2019/12/17(火) 18:50:00.42 ID:Etag1t/i.net]
- >>342
うん? またバグってた
>>341 Common Lisp
https://ideone.com/JLYXZw
- 350 名前：デフォルトの名無しさん mailto:sage [2019/12/17(火) 19:34:15.94 ID:JvBVW/sd.net]
- >>317 C++
数値のままやってみた
https://ideone.com/iUEQFI
- 351 名前：デフォルトの名無しさん mailto:sage [2019/12/17(火) 20:02:20.13 ID:bKU/e1zO.net]
- >>341 Ruby
p 'acgtaattgaaagggtctt'.gsub(/[^a]+/,' ').split.uniq.sort_by{|s| s.size}.last.size
- 352 名前：デフォルトの名無しさん mailto:sage [2019/12/17(火) 21:06:34.08 ID:eGUcswGM.net]
- お題
1〜1,000 の整数の内、3 か5 の倍数だけを選んで、その合計を求めよ
- 353 名前：デフォルトの名無しさん [2019/12/17(火) 21:42:29.19 ID:p+XnOFki.net]
- >>346
Rで2通りの求め方
d <- c(3, 5, -3 * 5)
q <- 1000 %/% d
cat(sum(d * q * (q + 1) / 2), "\n")
cat(sum(which(1:1000 %% 3 == 0 | 1:1000 %% 5 == 0)), "\n")
--- 実行結果 ---
234168
234168
- 354 名前：デフォルトの名無しさん mailto:sage [2019/12/17(火) 21:42:34.96 ID:Q1C16S4i.net]
- >>341 Ruby
p 'acgtaattgaaagggtctt'.scan(/a+/).max.size # => 3
>>346 Ruby
p 0.step(1000,3).sum + 0.step(1000, 5).sum - 0.step(1000, 15).sum # => 234168
- 355 名前：デフォルトの名無しさん mailto:sage [2019/12/17(火) 21:45:36.79 ID:Q1C16S4i.net]
- >>348
typo
/a+/ => /a*/
- 356 名前： mailto:sage [2019/12/17(火) 21:47:21.34 ID:780pCLgH.net]
- お題：ファイル名の一部に空白文字が使える OS（出題者想定は Windows7） の元で、正常に argc, argv を切り出せるスタートアップ支援ルーチンを作ってください
"" で囲まれている文字列は、それが一つのファイル名またはディレクトリ名として扱うこととし、"" で囲まれていない空白は引数の区切りとします
int main() {
rearrange(...);
...
と main の頭に置いて、xargc, xargv を代わりに使う、見たいな感じでお願いします
例によって私が痛切に欲しいと思っているものです…
- 357 名前：デフォルトの名無しさん mailto:sage [2019/12/17(火) 23:55:17.00 ID:jG+XSsUd.net]
- >>341は簡単すぎるので、
任意の文字列から連続してる文字が最も長い文字とその文字数を求めよ
最も長い文字が複数ある場合は全て出力すること
入力:acgtaattgaaagggtctt
期待値: ("a", 3), ("g",3)
- 358 名前：デフォルトの名無しさん mailto:sage [2019/12/18(水) 00:00:22.88 ID:mWocJHci.net]
- 期待値
の意味って学校で習わなかった？
- 359 名前：デフォルトの名無しさん mailto:sage [2019/12/18(水) 00:01:42.93 ID:i+6d3gEf.net]
- >>350
依頼禁止
- 360 名前：デフォルトの名無しさん mailto:sage [2019/12/18(水) 00:09:07.64 ID:i+6d3gEf.net]
- >>346 C
int s(int n){ return (1000/n)*(1000/n+1)/2*n; }
int main(){ return s(3)+s(5)-s(15); }
- 361 名前：デフォルトの名無しさん mailto:sage [2019/12/18(水) 00:12:20.91 ID:i+6d3gEf.net]
- int main(){ return 234168; }
で良い気がしてきた
- 362 名前：デフォルトの名無しさん [2019/12/18(水) 00:13:22.10 ID:LTf
]
- [ここ壊れてます]
- 363 名前：Q+mrC.net mailto: 戦が始まります []
- [ここ壊れてます]
- 364 名前：デフォルトの名無しさん mailto:sage [2019/12/18(水) 00:28:03.60 ID:i+6d3gEf.net]
- どうせコンパイルしたら>>355になる
- 365 名前：デフォルトの名無しさん [2019/12/18(水) 01:55:09 ID:JeMlTDQr.net]
- >>351 Common Lisp
https://ideone.com/Ox6TCK
- 366 名前：デフォルトの名無しさん mailto:sage [2019/12/18(水) 06:09:15.93 ID:6RKB+CQ3.net]
- >>351 Ruby
p 'acgtaattgaaagggtctt'.scan(/((.)\2*)/).group_by{|s, _| s.size}.max&.last&.map{|s, c| [c, s.size]}
# => [["a", 3], ["g", 3]]
- 367 名前：デフォルトの名無しさん mailto:sage [2019/12/18(水) 10:45:51.93 ID:AmwvkO78.net]
- acgtが出てくんだからながさ１億の文字列なんじゃね
|
 |
