プログラミングのお題スレ Part22

**デフォルトの名無しさん** · 2025/10/26(日) 17:55:12.41

29bitで収まる範囲内
333333331 = 17 × 19607843
これを求められなかったHaskellはすごく遅い？

**デフォルトの名無しさん** · 2025/10/26(日) 23:06:07.50

>>873
速いアルゴリズムに変えたら何とか1分ほどでその数字まで届きました。
（そもそも、>867 のは美しいとか短いとかの枕詞が付くコードですし。33...31に気付かなかったら4桁ぐらいが実用的ならおｋだったので）

改良版Haskell
pfactorization = f primes
　where primes =2:3:5#primes
　　　　　where n#x@(m:q:y)=[n|gcd m n<2]++(n+2)#last(x:[m*q:y|q^2-3<n])

というか、それより1桁少ない方が少し時間かかりますね。
19607843 < 33333331 なので、素数比較回数が多いのかと。

**デフォルトの名無しさん** · 2025/10/26(日) 23:07:37.04

あ、f の方を忘れた。
f のコードは変更なしです。

**デフォルトの名無しさん** · 2025/11/07(金) 05:48:17.42

>>868
cだとこんな感じでいいのかな？
3333333333333331くらいまで一瞬でできる

#include <stdio.h>

int main(void) {
long long d, n;

printf("Enter a number: ");
scanf("%lld", &n);

for (d = 2; d * d <= n; d++) {
if (n % d == 0)
break;
}
if (d * d <= n)
printf("%lld is divisible by %lld\n", n, d);
else
printf("%lld is prime.\n", n);

return 0;
}

**デフォルトの名無しさん** · 2025/11/25(火) 16:00:02.31

お題：ulp()の実装
Pythonのmath.ulp()に相当する関数の実装
特殊値(非数や無限大や非正規化数)の考慮は任意
引数がゼロの場合はDBL_MINやDBL_TRUE_MINに相当する値を
返すこと(プラットホーム依存)

発展的なお題：
共用体やfrexp()やldexp()を使わずに実装

**デフォルトの名無しさん** · 2025/12/06(土) 16:35:13.06

お題：ページャーがある。範囲表示に使う配列を出力せよ。現在のページ番号はp，総ページ数はn、切り取る範囲はrとする。

例
p=1, n=10, r=5
[1,2,3,4,5]

p=3, n=10, r=5
[1,2,3,4,5]

p=5, n=10, r=5
[3,4,5,6,7]

p=8, n=10, r=5
[6,7,8,9,10]

p=10, n=10, r=5
[6,7,8,9,10]

**デフォルトの名無しさん** · 2025/12/06(土) 19:35:04.35

>>878
R
https://ideone.com/maQUAy

お題に指定がない仕様は適当に決めた。