Submission #17866037

Source Code Expand

main = sol <$> get >>= print

get = map read . words <$> getLine

sol [n,a,b] = min (n*a) b

Submission Info

Submission Time
Task A - Parking
User karoyakani
Language Haskell (GHC 8.8.3)
Score 100
Code Size 95 Byte
Status AC
Exec Time 6 ms
Memory 3928 KiB

Compile Error

Loaded package environment from /home/contestant/.ghc/x86_64-linux-8.8.3/environments/default

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 100 / 100
Status
AC × 3
AC × 10
Set Name Test Cases
Sample sample_01.txt, sample_02.txt, sample_03.txt
All 01.txt, 02.txt, 03.txt, 04.txt, 05.txt, 06.txt, 07.txt, sample_01.txt, sample_02.txt, sample_03.txt
Case Name Status Exec Time Memory
01.txt AC 6 ms 3852 KiB
02.txt AC 2 ms 3928 KiB
03.txt AC 2 ms 3636 KiB
04.txt AC 2 ms 3704 KiB
05.txt AC 2 ms 3764 KiB
06.txt AC 4 ms 3760 KiB
07.txt AC 2 ms 3760 KiB
sample_01.txt AC 2 ms 3924 KiB
sample_02.txt AC 2 ms 3840 KiB
sample_03.txt AC 2 ms 3860 KiB