結果

問題 No.300 平方数
コンテスト
ユーザー kuwa
提出日時 2015-12-06 00:10:08
言語 Haskell
(9.10.1)
結果
AC  
実行時間 300 ms / 1,000 ms
コード長 542 bytes
コンパイル時間 1,707 ms
コンパイル使用メモリ 171,776 KB
実行使用メモリ 24,704 KB
最終ジャッジ日時 2024-09-14 14:34:34
合計ジャッジ時間 8,975 ms
ジャッジサーバーID
（参考情報） 		judge4 / judge2
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 3
other AC * 43
権限があれば一括ダウンロードができます
コンパイルメッセージ
Loaded package environment from /home/judge/.ghc/x86_64-linux-9.8.2/environments/default
[1 of 2] Compiling Main             ( Main.hs, Main.o )
[2 of 2] Linking a.out

ソースコード

diff #
raw source code 

import Control.Applicative
import Data.List

primes :: [Int]
primes = 2 : [ x | x <- [3,5..],
                null $ filter (\z -> x `mod` z == 0) $ takeWhile (\y -> y^2 <= x) primes]

main :: IO ()
main = do
  x <- read <$> getLine :: IO Int
  print $ solve x

solve :: Int -> Int
solve x = let (g, s) = foldr f (1, x) $ (takeWhile (\z -> z^2<= x) primes)
          in g * s
  where f a (y, m) = let (i, m') = rec a m 0 in (y * i, m')
        rec d z c
          | z `mod` d == 0 = rec d (z `div` d) (1-c)
          | otherwise = (d ^ c, z)
0