Submission #213466


Source Code Expand

Copy
{-# LANGUAGE BangPatterns        #-}
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE TypeFamilies        #-}

import           Control.Applicative
import           Control.Arrow
import           Control.Monad
import           Data.Array.IO
import           Data.Array.Unboxed
import           Data.Bool
import qualified Data.ByteString.Char8       as C
import           Data.Char
import           Data.Function
import           Data.Functor
import           Data.Int
import qualified Data.IntMap                 as IM
import           Data.IORef
import           Data.List
import qualified Data.Map                    as M
import           Data.Maybe
import           Data.Monoid
import           Data.Ord
import qualified Data.Sequence               as Seq
import qualified Data.Set                    as S
import           Data.Tuple
import           Data.Word
import           Debug.Trace
import           System.IO
import           Text.Printf                 (printf)

import qualified Data.Vector                 as V
import qualified Data.Vector.Generic         as G
import qualified Data.Vector.Generic.Mutable as GM
import qualified Data.Vector.Unboxed         as U
import qualified Data.Vector.Unboxed.Mutable as UM

-- I/O

readInts :: C.ByteString -> [Int]
readInts = map fst . mapMaybe C.readInt . C.words

getInts :: IO [Int]
getInts = readInts <$> C.getLine

readNums :: Num a => C.ByteString -> [a]
readNums = map (fromIntegral . fst) . mapMaybe C.readInteger . C.words

getNums :: Num a => IO [a]
getNums = readNums <$> C.getLine

cast :: (Integral a, Num b) => a -> b
cast = fromIntegral
{-# INLINE cast #-}

rep :: Int -> Int -> (Int -> IO ()) -> IO ()
rep i j m = go i where
  go !i
    | i < j = m i >> go (i+1)
    | otherwise = return ()
{-# INLINE rep #-}

rrep :: Int -> Int -> (Int -> IO ()) -> IO ()
rrep i j m = go i where
  go !i
    | i > j = m (i-1) >> go (i-1)
    | otherwise = return ()
{-# INLINE rrep #-}

-----

main :: IO ()
main = do
  a <- readLn
  b <- readLn
  print $ min (f$a-b) (f$b-a)

f n | n >= 0 = n
    | otherwise = 10+n

Submission Info

Submission Time
Task B - 錠
User tanakh
Language Haskell (GHC 7.4.1)
Score 100
Code Size 2152 Byte
Status AC
Exec Time 532 ms
Memory 1440 KB

Judge Result

Set Name all
Score / Max Score 100 / 100
Status
AC × 90
Set Name Test Cases
all 0_1.txt, 0_2.txt, 0_3.txt, 0_4.txt, 0_5.txt, 0_6.txt, 0_7.txt, 0_8.txt, 0_9.txt, 1_0.txt, 1_2.txt, 1_3.txt, 1_4.txt, 1_5.txt, 1_6.txt, 1_7.txt, 1_8.txt, 1_9.txt, 2_0.txt, 2_1.txt, 2_3.txt, 2_4.txt, 2_5.txt, 2_6.txt, 2_7.txt, 2_8.txt, 2_9.txt, 3_0.txt, 3_1.txt, 3_2.txt, 3_4.txt, 3_5.txt, 3_6.txt, 3_7.txt, 3_8.txt, 3_9.txt, 4_0.txt, 4_1.txt, 4_2.txt, 4_3.txt, 4_5.txt, 4_6.txt, 4_7.txt, 4_8.txt, 4_9.txt, 5_0.txt, 5_1.txt, 5_2.txt, 5_3.txt, 5_4.txt, 5_6.txt, 5_7.txt, 5_8.txt, 5_9.txt, 6_0.txt, 6_1.txt, 6_2.txt, 6_3.txt, 6_4.txt, 6_5.txt, 6_7.txt, 6_8.txt, 6_9.txt, 7_0.txt, 7_1.txt, 7_2.txt, 7_3.txt, 7_4.txt, 7_5.txt, 7_6.txt, 7_8.txt, 7_9.txt, 8_0.txt, 8_1.txt, 8_2.txt, 8_3.txt, 8_4.txt, 8_5.txt, 8_6.txt, 8_7.txt, 8_9.txt, 9_0.txt, 9_1.txt, 9_2.txt, 9_3.txt, 9_4.txt, 9_5.txt, 9_6.txt, 9_7.txt, 9_8.txt
Case Name Status Exec Time Memory
0_1.txt AC 532 ms 1432 KB
0_2.txt AC 27 ms 1436 KB
0_3.txt AC 28 ms 1388 KB
0_4.txt AC 27 ms 1308 KB
0_5.txt AC 27 ms 1304 KB
0_6.txt AC 27 ms 1312 KB
0_7.txt AC 27 ms 1308 KB
0_8.txt AC 27 ms 1312 KB
0_9.txt AC 28 ms 1384 KB
1_0.txt AC 28 ms 1312 KB
1_2.txt AC 28 ms 1428 KB
1_3.txt AC 28 ms 1308 KB
1_4.txt AC 28 ms 1312 KB
1_5.txt AC 29 ms 1316 KB
1_6.txt AC 27 ms 1308 KB
1_7.txt AC 27 ms 1440 KB
1_8.txt AC 29 ms 1308 KB
1_9.txt AC 29 ms 1308 KB
2_0.txt AC 27 ms 1308 KB
2_1.txt AC 28 ms 1388 KB
2_3.txt AC 29 ms 1308 KB
2_4.txt AC 30 ms 1300 KB
2_5.txt AC 27 ms 1312 KB
2_6.txt AC 28 ms 1436 KB
2_7.txt AC 28 ms 1368 KB
2_8.txt AC 27 ms 1440 KB
2_9.txt AC 27 ms 1312 KB
3_0.txt AC 27 ms 1312 KB
3_1.txt AC 29 ms 1312 KB
3_2.txt AC 26 ms 1312 KB
3_4.txt AC 29 ms 1312 KB
3_5.txt AC 27 ms 1392 KB
3_6.txt AC 28 ms 1312 KB
3_7.txt AC 28 ms 1308 KB
3_8.txt AC 28 ms 1436 KB
3_9.txt AC 28 ms 1304 KB
4_0.txt AC 30 ms 1316 KB
4_1.txt AC 29 ms 1304 KB
4_2.txt AC 28 ms 1424 KB
4_3.txt AC 28 ms 1312 KB
4_5.txt AC 28 ms 1308 KB
4_6.txt AC 28 ms 1384 KB
4_7.txt AC 27 ms 1312 KB
4_8.txt AC 28 ms 1308 KB
4_9.txt AC 28 ms 1308 KB
5_0.txt AC 28 ms 1304 KB
5_1.txt AC 27 ms 1308 KB
5_2.txt AC 28 ms 1312 KB
5_3.txt AC 28 ms 1308 KB
5_4.txt AC 27 ms 1308 KB
5_6.txt AC 28 ms 1312 KB
5_7.txt AC 28 ms 1308 KB
5_8.txt AC 27 ms 1312 KB
5_9.txt AC 28 ms 1308 KB
6_0.txt AC 28 ms 1312 KB
6_1.txt AC 28 ms 1308 KB
6_2.txt AC 27 ms 1432 KB
6_3.txt AC 27 ms 1304 KB
6_4.txt AC 28 ms 1308 KB
6_5.txt AC 28 ms 1312 KB
6_7.txt AC 27 ms 1312 KB
6_8.txt AC 27 ms 1304 KB
6_9.txt AC 28 ms 1304 KB
7_0.txt AC 27 ms 1432 KB
7_1.txt AC 28 ms 1428 KB
7_2.txt AC 28 ms 1368 KB
7_3.txt AC 28 ms 1312 KB
7_4.txt AC 28 ms 1432 KB
7_5.txt AC 27 ms 1308 KB
7_6.txt AC 28 ms 1432 KB
7_8.txt AC 28 ms 1312 KB
7_9.txt AC 28 ms 1432 KB
8_0.txt AC 29 ms 1308 KB
8_1.txt AC 28 ms 1312 KB
8_2.txt AC 27 ms 1432 KB
8_3.txt AC 28 ms 1396 KB
8_4.txt AC 28 ms 1308 KB
8_5.txt AC 28 ms 1304 KB
8_6.txt AC 40 ms 1432 KB
8_7.txt AC 29 ms 1392 KB
8_9.txt AC 27 ms 1428 KB
9_0.txt AC 27 ms 1432 KB
9_1.txt AC 28 ms 1312 KB
9_2.txt AC 27 ms 1308 KB
9_3.txt AC 28 ms 1312 KB
9_4.txt AC 28 ms 1312 KB
9_5.txt AC 28 ms 1304 KB
9_6.txt AC 28 ms 1308 KB
9_7.txt AC 28 ms 1308 KB
9_8.txt AC 28 ms 1308 KB