#20369 (Haskell) No.5000 特殊ジャッジテスト（テスト用） - yukicoder

提出ソース

結果

問題	No.5000 特殊ジャッジテスト（テスト用）
ユーザー	Michae'Gon
提出日時	2015-04-18 00:47:46
言語	Haskell (9.8.2)
結果	AC
実行時間	2 ms / 5,000 ms
コード長	118 bytes
コンパイル時間	12,443 ms
実行使用メモリ	1,820 KB
スコア	3,528
最終ジャッジ日時	2018-03-11 23:59:50
ジャッジサーバーID （参考情報）	judge6 /

このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示

入力	結果	実行時間実行使用メモリ
testcase_00	AC	2 ms 1,816 KB
testcase_01	AC	2 ms 1,820 KB
testcase_02	AC	2 ms 1,820 KB
testcase_03	AC	2 ms 1,816 KB

権限があれば一括ダウンロードができます

コンパイルメッセージ

[1 of 1] Compiling Main             ( Main.hs, Main.o )
Linking a.out ...

ソースコード

raw source code

main = getLine >>= solve . (read :: String -> Int)
        where solve n = putStrLn $ show (-n) ++ " " ++ show (2 * n)

0