Submission #6512936

Source Code Expand

main :: IO()
main = do
    [a,b] <- map read . words <$> getLine
    print $ getsolve a b
    
    
getsolve :: Int -> Int -> Int
getsolve a b
    | a > b		= a * (b+1)
    | otherwise	= (a+1) * b

Submission Info

Submission Time
Task A - ゲーム
User venusb
Language Haskell (GHC 7.10.3)
Score 100
Code Size 206 Byte
Status AC
Exec Time 2 ms
Memory 508 KB

Compile Error

Main.hs:9:12: Warning: Tab character

Main.hs:10:16: Warning: Tab character

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 100 / 100
Status
AC × 3
AC × 23
Set Name Test Cases
Sample sample-01.txt, sample-02.txt, sample-03.txt
All sample-01.txt, sample-02.txt, sample-03.txt, test-01.txt, test-02.txt, test-03.txt, test-04.txt, test-05.txt, test-06.txt, test-07.txt, test-08.txt, test-09.txt, test-10.txt, test-11.txt, test-12.txt, test-13.txt, test-14.txt, test-15.txt, test-16.txt, test-17.txt, test-18.txt, test-19.txt, test-20.txt
Case Name Status Exec Time Memory
sample-01.txt AC 2 ms 508 KB
sample-02.txt AC 2 ms 508 KB
sample-03.txt AC 2 ms 508 KB
test-01.txt AC 2 ms 508 KB
test-02.txt AC 2 ms 508 KB
test-03.txt AC 2 ms 508 KB
test-04.txt AC 2 ms 508 KB
test-05.txt AC 2 ms 508 KB
test-06.txt AC 2 ms 508 KB
test-07.txt AC 2 ms 508 KB
test-08.txt AC 2 ms 508 KB
test-09.txt AC 2 ms 508 KB
test-10.txt AC 2 ms 508 KB
test-11.txt AC 2 ms 508 KB
test-12.txt AC 2 ms 508 KB
test-13.txt AC 2 ms 508 KB
test-14.txt AC 2 ms 508 KB
test-15.txt AC 2 ms 508 KB
test-16.txt AC 2 ms 508 KB
test-17.txt AC 2 ms 508 KB
test-18.txt AC 2 ms 508 KB
test-19.txt AC 2 ms 508 KB
test-20.txt AC 2 ms 508 KB