プログラミングのお題スレ Part22at TECHプログラミングのお題スレ Part22 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト867:デフォルトの名無しさん 25/10/19 21:36:07.90 1trCfbwI.net >>866 R https://ideone.com/bUDu3l 868:デフォルトの名無しさん 25/10/22 21:34:32.83 vm0Iby1T.net >>866 金額が大きい場合でも高速に求められるようにした。 R https://ideone.com/NC6lV7 C++ https://ideone.com/52TbeF 869:デフォルトの名無しさん 25/10/26 09:31:44.23 Y3+SSpql.net お題というか、協力してほしい感じなんですが、素因数分解関数をHaskellで書いて色んな数を素因数分解して遊んでいたら確認したい事実に出くわしたので。 31 <- 素数 331 <- 素数 3331 <- 素数 33331 <- 素数 333331 <- 素数 と、３が５個並んで末尾が１の数字までは素数という事が分かりましたが、いかんせん、ノートだと力不足。 それにCとかで書き直したらもっと先まで行けるかも？という事で、この先、どこまで33...31が素数なのかを調べて欲しいのです。 協力お願いします<(_ _)> 一応、Haskellではこんなコードです。 factorization n = f primes n where primes = 2:(sieve [3,5..]) where sieve (p:xs) = p:(sieve [x | x <- xs, x `mod` p /= 0]) f (p:ps) n | n <= p = [n] f (p:ps) n | n `mod` p == 0 = p:f (p:ps) (n `div` p) f (p:ps) n = f ps n 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch