プログラミングのお題スレ Part22 (863ﾚｽ)
プログラミングのお題スレ Part22 http://mevius.5ch.net/test/read.cgi/tech/1691038333/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
ﾚｽ栞
ﾘﾛｰﾄﾞ規制
です｡10分ほどで解除するので､
他のﾌﾞﾗｳｻﾞ
へ避難してください｡
66: デフォルトの名無しさん [] 2023/08/24(木) 22:51:17.82 ID:hcnR5QOK >>64 PowerShell (等幅フォント限定。最初は一番左上の領域が表示される。qキーで終了。Ubuntu版ではカーソルが消えない) $a = random (1..9999) -count 200 |% {$_ % 9 + 1} $b = random (0..4999) -count 200 $c = [char[][]](,(," " * 100) * 50) 0..199 |% {$c[[Math]::Floor($b[$_] / 100)][$b[$_] % 100] = [string]$a[$_]} $L = 0..49 |% {-join $c[$_]} $UI = $Host.UI.RawUI $p, $s = $UI.CursorPosition, $UI.CursorSize $p.y = [Math]::Min($p.y, $UI.BufferSize.Height - 23) $x = $y = 0 $border = "+" + "-" * 40 + "+" while ($true) { try {$UI.CursorSize = 0} catch {} $UI.CursorPosition = $p $border 0..19 |% {"|" + $L[$y + $_].SubString($x, 40) + "|"} $border switch ($UI.ReadKey(6).Character) { "l" {if ($x -gt +0) {$x--}} "r" {if ($x -lt 60) {$x++}} "t" {if ($y -gt +0) {$y--}} "b" {if ($y -lt 30) {$y++}} "q" {try {$UI.CursorSize = $s} catch {} return} } } http://mevius.5ch.net/test/read.cgi/tech/1691038333/66
138: 134 [sage] 2023/10/18(水) 21:52:04.82 ID:4ifgnZXl >>136 math.ulp()は符号を戻さないらしいです： ulp(1) == ulp(-1) http://mevius.5ch.net/test/read.cgi/tech/1691038333/138
393: デフォルトの名無しさん [sage] 2024/08/03(土) 22:42:49.82 ID:t4RpIT1N >>390 そういうことは伝える努力をしてから言おうな http://mevius.5ch.net/test/read.cgi/tech/1691038333/393
442: デフォルトの名無しさん [] 2024/10/11(金) 22:15:53.82 ID:H5F5jhxE >>438 R https://ideone.com/LO7vyR http://mevius.5ch.net/test/read.cgi/tech/1691038333/442
464: デフォルトの名無しさん [] 2025/01/03(金) 13:22:57.82 ID:dEYOS8Dq お題 AのあとにAと同じ数だけBが続く言語エビがあるとします 文字列が入力されたときそれがエビ言語であるか判定するプログラムを作成してください → true A → false B → false AB → true ABB → false AAB → false AABB → true ABAABBAAABBB→ true http://mevius.5ch.net/test/read.cgi/tech/1691038333/464
485: デフォルトの名無しさん [] 2025/01/22(水) 21:35:12.82 ID:JtEnwxKE お題 文字列と長さを入力として受け取り デカルト積のリストを出力してください 入力：ABC 1 出力：[A, B, C] 入力：ABC 2 出力：[AA, AB, AC, BA, BB, BC, CA, CB, CC] 入力：ABC 3 出力：[AAA, AAB, AAC, ABA, ABB, ABC, ACA, ACB, ACC, BAA, BAB, BAC, BBA, BBB, BBC, BCA, BCB, BCC, CAA, CAB, CAC, CBA, CBB, CBC, CCA, CCB, CCC] http://mevius.5ch.net/test/read.cgi/tech/1691038333/485
816: 811 [sage] 2025/08/22(金) 20:26:43.82 ID:m9vhyo0Z >>799 ruby https://ideone.com/vvp0kq ・問題A時に全体的な規則性に着目 ・部分的に着目しちゃったのが>>811 ・何も工夫を入れなかったのが>>806 http://mevius.5ch.net/test/read.cgi/tech/1691038333/816
850: デフォルトの名無しさん [] 2025/09/14(日) 22:50:48.82 ID:Yva1i9w5 >>845 Fortranに移植 https://ideone.com/CnJ0S9 行列計算を短く書けて、しかも実行が速い。 http://mevius.5ch.net/test/read.cgi/tech/1691038333/850
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.028s