結果

問題 No.285 消費税2
ユーザー h_noson
提出日時 2015-10-09 22:37:40
言語 Haskell
(8.6.2)
結果
AC  
実行時間 3 ms
コード長 155 Byte
コンパイル時間 816 ms
使用メモリ 6,872 KB
最終ジャッジ日時 2018-12-05 20:12:50

テストケース

テストケース表示
入力 結果 実行時間
使用メモリ
challenge01.txt AC 2 ms
6,872 KB
sample1.txt AC 2 ms
6,872 KB
sample2.txt AC 3 ms
6,868 KB
sample3.txt AC 3 ms
6,868 KB
sample4.txt AC 2 ms
6,872 KB
system_test1.txt AC 2 ms
6,872 KB
system_test2.txt AC 2 ms
6,868 KB
system_test3.txt AC 2 ms
6,872 KB
system_test4.txt AC 3 ms
6,872 KB
system_test5.txt AC 2 ms
6,868 KB
system_test6.txt AC 1 ms
6,868 KB
system_test7.txt AC 3 ms
6,872 KB
system_test8.txt AC 2 ms
6,872 KB
system_test9.txt AC 3 ms
6,872 KB
system_test10.txt AC 2 ms
6,872 KB
system_test11.txt AC 2 ms
6,868 KB
system_test12.txt AC 3 ms
6,872 KB
system_test13.txt AC 3 ms
6,868 KB
system_test14.txt AC 3 ms
6,872 KB
system_test15.txt AC 2 ms
6,868 KB
system_test16.txt AC 2 ms
6,868 KB
system_test17.txt AC 2 ms
6,872 KB
system_test18.txt AC 3 ms
6,868 KB
system_test19.txt AC 1 ms
6,872 KB
test1.txt AC 3 ms
6,872 KB
test2.txt AC 2 ms
6,868 KB
test3.txt AC 3 ms
6,868 KB
test4.txt AC 2 ms
6,868 KB
test5.txt AC 2 ms
6,872 KB
test6.txt AC 2 ms
6,868 KB
テストケース一括ダウンロード
コンパイルメッセージ
[1 of 1] Compiling Main             ( Main.hs, Main.o )
Linking a.out ...

ソースコード

diff #
import Text.Printf

main :: IO ()
main = do
    d <- readLn :: IO Integer
    putStr . show $ (d * 108) `div` 100
    printf ".%02d\n" $ (d * 8) `mod` 100
0