結果

問題 No.285 消費税2
ユーザー momen999
提出日時 2017-06-20 00:20:11
言語 Haskell
(8.8.1)
結果
AC  
実行時間 4 ms
コード長 146 Byte
コンパイル時間 1,556 ms
使用メモリ 7,092 KB
最終ジャッジ日時 2019-11-18 20:26:54

テストケース

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

ソースコード

diff #
main = readLn >>= putStrLn . f2 . show . f1 where
    f1 x = x * 108
    f2 xs = take (n-2) xs ++ "." ++ drop (n-2) xs where
        n = length xs
0