結果

問題 No.383 レーティング
ユーザー torus711
提出日時 2016-07-01 22:22:16
言語 Haskell
(8.6.2)
結果
AC  
実行時間 3 ms
コード長 578 Byte
コンパイル時間 1,151 ms
使用メモリ 1,728 KB
最終ジャッジ日時 2019-06-12 23:03:54

テストケース

テストケース表示
入力 結果 実行時間
使用メモリ
in1 AC 2 ms
1,716 KB
in2 AC 3 ms
1,720 KB
in3 AC 3 ms
1,724 KB
in4 AC 2 ms
1,716 KB
test0 AC 2 ms
1,724 KB
test1 AC 3 ms
1,720 KB
test2 AC 3 ms
1,728 KB
test3 AC 2 ms
1,728 KB
test4 AC 2 ms
1,716 KB
test5 AC 2 ms
1,716 KB
test6 AC 2 ms
1,724 KB
test7 AC 3 ms
1,728 KB
test8 AC 2 ms
1,728 KB
test9 AC 2 ms
1,724 KB
テストケース一括ダウンロード
コンパイルメッセージ
[1 of 1] Compiling Main             ( Main.hs, Main.o )

Main.hs:22:1: warning: [-Wtabs]
    Tab character found here, and in three further locations.
    Please use spaces instead.
   |
22 |         [ a, b ] <- getList
   | ^^^^^^^^
Linking a.out ...

ソースコード

diff #
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE BangPatterns #-}

import Control.Applicative
import Control.Monad
import Control.Arrow
import Data.List
import Data.Maybe
import Data.Char
import qualified Data.ByteString.Char8 as B
import Text.Printf

readInt = ( readLn :: IO Int )
readInts = map ( read :: String -> Int ) . words <$> getLine

getList = map ( fst . fromJust . B.readInt ) . B.words <$> B.getLine

which a b f = if f then a else b
mp [ a, b ] = ( a, b )

main = do
	[ a, b ] <- getList
	putStrLn $ f $ b - a 

f n
	| 0 < n = '+' : show n
	| otherwise = show n
0