プログラミングのお題スレ Part22 (863ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞

---

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

---

66: デフォルトの名無しさん [] 2023/08/24(木)22:51:17.82 ID:hcnR5QOK(1)
>>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}
　　 }
}

---

138: 134 [sage] 2023/10/18(水)21:52:04.82 ID:4ifgnZXl(4/4)
>>136
math.ulp()は符号を戻さないらしいです：
ulp(1) == ulp(-1)

---

393: デフォルトの名無しさん [sage] 2024/08/03(土)22:42:49.82 ID:t4RpIT1N(1)
>>390
そういうことは伝える努力をしてから言おうな

---

442: デフォルトの名無しさん [] 2024/10/11(金)22:15:53.82 ID:H5F5jhxE(1)
>>438
R
https://ideone.com/LO7vyR

---

464(9): デフォルトの名無しさん [] 01/03(金)13:22:57.82 ID:dEYOS8Dq(1/2)
お題
AのあとにAと同じ数だけBが続く言語エビがあるとします
文字列が入力されたときそれがエビ言語であるか判定するプログラムを作成してください

→ true
A → false
B → false
AB → true
ABB → false
AAB → false
AABB → true
ABAABBAAABBB→ true

---

485(20): デフォルトの名無しさん [] 01/22(水)21:35:12.82 ID:JtEnwxKE(1)
お題

文字列と長さを入力として受け取り
デカルト積のリストを出力してください

入力：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]

---

816(1): 811 [sage] 08/22(金)20:26:43.82 ID:m9vhyo0Z(1)
>>799 ruby
https://ideone.com/vvp0kq
・問題A時に全体的な規則性に着目
・部分的に着目しちゃったのが>>811
・何も工夫を入れなかったのが>>806

---

850(1): デフォルトの名無しさん [] 09/14(日)22:50:48.82 ID:Yva1i9w5(2/2)
>>845
Fortranに移植
https://ideone.com/CnJ0S9

行列計算を短く書けて、しかも実行が速い。

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.040s