Submission #6512929

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 0
Code Size 204 Byte
Status WA
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 0 / 100
Status
AC × 1
WA × 2
AC × 5
WA × 18
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 WA 2 ms 508 KB
sample-02.txt WA 2 ms 508 KB
sample-03.txt AC 2 ms 508 KB
test-01.txt WA 2 ms 508 KB
test-02.txt WA 2 ms 508 KB
test-03.txt WA 2 ms 508 KB
test-04.txt AC 2 ms 508 KB
test-05.txt WA 2 ms 508 KB
test-06.txt WA 1 ms 508 KB
test-07.txt AC 2 ms 508 KB
test-08.txt WA 2 ms 508 KB
test-09.txt WA 2 ms 508 KB
test-10.txt AC 2 ms 508 KB
test-11.txt WA 2 ms 508 KB
test-12.txt WA 2 ms 508 KB
test-13.txt WA 2 ms 508 KB
test-14.txt WA 2 ms 508 KB
test-15.txt AC 2 ms 508 KB
test-16.txt WA 2 ms 508 KB
test-17.txt WA 2 ms 508 KB
test-18.txt WA 2 ms 508 KB
test-19.txt WA 2 ms 508 KB
test-20.txt WA 2 ms 508 KB