結果
問題 | No.313 π |
ユーザー | はむ吉🐹 |
提出日時 | 2015-12-06 19:15:25 |
言語 | Haskell (9.8.2) |
結果 |
WA
|
実行時間 | - |
コード長 | 936 bytes |
コンパイル時間 | 1,710 ms |
コンパイル使用メモリ | 163,524 KB |
実行使用メモリ | 7,340 KB |
最終ジャッジ日時 | 2023-10-12 17:29:15 |
合計ジャッジ時間 | 3,606 ms |
ジャッジサーバーID (参考情報) |
judge12 / judge15 |
(要ログイン)
テストケース
テストケース表示入力 | 結果 | 実行時間 実行使用メモリ |
---|---|---|
testcase_00 | AC | 2 ms
7,116 KB |
testcase_01 | WA | - |
testcase_02 | AC | 2 ms
7,132 KB |
testcase_03 | AC | 3 ms
7,244 KB |
testcase_04 | AC | 2 ms
7,108 KB |
testcase_05 | AC | 3 ms
7,208 KB |
testcase_06 | AC | 3 ms
7,104 KB |
testcase_07 | AC | 3 ms
7,172 KB |
testcase_08 | AC | 3 ms
7,136 KB |
testcase_09 | AC | 2 ms
7,112 KB |
testcase_10 | WA | - |
testcase_11 | WA | - |
testcase_12 | WA | - |
testcase_13 | WA | - |
testcase_14 | WA | - |
testcase_15 | WA | - |
testcase_16 | WA | - |
testcase_17 | WA | - |
testcase_18 | WA | - |
testcase_19 | WA | - |
testcase_20 | WA | - |
testcase_21 | WA | - |
testcase_22 | WA | - |
testcase_23 | WA | - |
testcase_24 | WA | - |
testcase_25 | WA | - |
testcase_26 | WA | - |
testcase_27 | WA | - |
testcase_28 | WA | - |
testcase_29 | WA | - |
testcase_30 | WA | - |
testcase_31 | WA | - |
testcase_32 | WA | - |
testcase_33 | WA | - |
コンパイルメッセージ
Loaded package environment from /home/judge/.ghc/x86_64-linux-9.6.1/environments/default [1 of 2] Compiling Main ( Main.hs, Main.o ) [2 of 2] Linking a.out
ソースコード
{-# LANGUAGE OverloadedStrings #-} import qualified Data.ByteString.Lazy.Char8 as C import Data.Char (isDigit, digitToInt) -- | Generates as many digits of pi. -- Based on <http://www.cs.ox.ac.uk/people/jeremy.gibbons/publications/spigot.pdf this article> . pi_ :: Integral a => [a] pi_ = g (1, 0, 1, 1, 3, 3) where g (q, r, t, k, n, l) | 4 * q + r - t < n * t = n : g (10 * q, 10 * (r - n * t), t, k, div (10 * (3 * q + r)) t - 10 * n, l) | otherwise = g (q * k, (2 * q + r) * l, t * l, k + 1, div (q * (7 * k + 2) + r * l) (t * l), l + 2) correct :: C.ByteString -> [Int] correct = correct_ pi_ correct_ ps ss | (not . isDigit) hs = correct_ ps ts | digitToInt hs == hp = correct_ tp ts | otherwise = [digitToInt hs, hp] where hp = head ps hs = C.head ss tp = tail ps ts = C.tail ss main :: IO () main = putStrLn . unwords . map show . correct =<< C.getContents