結果
問題 | No.316 もっと刺激的なFizzBuzzをください |
ユーザー |
![]() |
提出日時 | 2015-12-09 00:08:15 |
言語 | Haskell (9.10.1) |
結果 |
CE
(最新)
AC
(最初)
|
実行時間 | - |
コード長 | 971 bytes |
コンパイル時間 | 413 ms |
コンパイル使用メモリ | 157,696 KB |
最終ジャッジ日時 | 2024-11-15 04:43:47 |
合計ジャッジ時間 | 1,143 ms |
ジャッジサーバーID (参考情報) |
judge4 / judge3 |
(要ログイン)
コンパイルエラー時のメッセージ・ソースコードは、提出者また管理者しか表示できないようにしております。(リジャッジ後のコンパイルエラーは公開されます)
ただし、clay言語の場合は開発者のデバッグのため、公開されます。
ただし、clay言語の場合は開発者のデバッグのため、公開されます。
コンパイルメッセージ
Loaded package environment from /home/judge/.ghc/x86_64-linux-9.8.2/environments/default [1 of 2] Compiling Main ( Main.hs, Main.o ) Main.hs:34:24: error: [GHC-87543] Ambiguous occurrence ‘BC.getLine’. It could refer to either ‘BC.getLine’, imported qualified from ‘Data.ByteString’ at Main.hs:8:1-38, or ‘BC.getLine’, imported qualified from ‘Data.ByteString.Char8’ at Main.hs:7:1-44. | 34 | readInt = parseInt <$> BC.getLine | ^^^^^^^^^^ Main.hs:37:26: error: [GHC-87543] Ambiguous occurrence ‘BC.getLine’. It could refer to either ‘BC.getLine’, imported qualified from ‘Data.ByteString’ at Main.hs:8:1-38, or ‘BC.getLine’, imported qualified from ‘Data.ByteString.Char8’ at Main.hs:7:1-44. | 37 | readInts = parseInts <$> BC.getLine | ^^^^^^^^^^
ソースコード
moduleMainwhereimportControl.MonadimportControl.ApplicativeimportData.MaybeimportData.ListimportqualifiedText.PrintfimportqualifiedData.ByteString.CharasBCimportqualifiedData.ByteStringasBC------------------------------------------main::IO()main = don <- readInt[a, b, c] <- readIntsprint $ solve a b c nsolve::Int->Int->Int->Int->Intsolve a b c n = sum (map (div n) [a,b,c])- sum (map (div n) [a `lcm` b, b `lcm` c, c `lcm` a])+ div n (a `lcm` b `lcm` c)------------------------------------------{- Int input -}parseInt::BCByteString->IntparseInt = fst . fromJust . BC.readIntparseInts::BCByteString->IntparseInts = map parseInt <$> BC.wordsreadInt::IOIntreadInt = parseInt <$> BC.getLinereadInts::IOIntreadInts = parseInts <$> BC.getLine{- Double Formatting -}doubleFormat::Double->StringdoubleFormat = Text.Printf.printf "%.12f"