結果
問題 | No.219 巨大数の概算 |
ユーザー | Haar |
提出日時 | 2016-04-17 20:52:37 |
言語 | Haskell (9.10.1) |
結果 |
AC
|
実行時間 | 55 ms / 1,500 ms |
コード長 | 248 bytes |
コンパイル時間 | 5,704 ms |
コンパイル使用メモリ | 170,624 KB |
実行使用メモリ | 8,320 KB |
最終ジャッジ日時 | 2024-07-18 12:08:50 |
合計ジャッジ時間 | 9,091 ms |
ジャッジサーバーID (参考情報) |
judge1 / judge3 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 1 |
other | AC * 51 |
コンパイルメッセージ
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
ソースコード
main = getLine >> getContents >>= mapM_ putStrLn . map ((\(a:b:_) -> let t = b * logBase 10 a; z = floor t; w = 10 ** (t - (fromIntegral z)); x = floor w; y = floor (10 * w) `mod` 10 in (unwords . map show) [x, y, z] ) . (map read . words)) . lines