結果

問題 No.5000 特殊ジャッジテスト（テスト用）
ユーザー Michae'Gon
提出日時 2015-04-18 00:47:46
言語 Haskell
(9.10.1)
結果
AC  
実行時間 2 ms / 5,000 ms
コード長 118 bytes
コンパイル時間 12,443 ms
実行使用メモリ 1,820 KB
スコア 3,528
最終ジャッジ日時 2018-03-11 23:59:50
ジャッジサーバーID
（参考情報） 		judge6 /
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 4
権限があれば一括ダウンロードができます
コンパイルメッセージ
[1 of 1] Compiling Main             ( Main.hs, Main.o )
Linking a.out ...

ソースコード

diff # 

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