Submission #3977995


Source Code Expand

structure C  = Char
structure I  = Int
structure L  = List
structure SC = StringCvt
structure T  = TextIO

fun scan rdr strm = SOME (SC.splitl (not o C.isSpace) rdr (SC.skipWS rdr strm))

fun next () = valOf (T.scanStream scan T.stdIn)

fun nextInt () = valOf (T.scanStream (I.scan SC.DEC) T.stdIn)

fun grd (x, l, u) = if x < l then l else if x > u then u else x

val () =
    let
        val (N, A, B) = (nextInt (), nextInt (), nextInt ())
        val l = L.tabulate (N, fn _ => (next (), grd (nextInt (), A, B)))
        val pos = foldl (fn ((ew, d), p) =>
                            if ew = "East" then p + d else p - d) 0 l
    in
        if pos = 0 then print "0\n"
        else if pos > 0 then print ("East " ^ (I.toString pos) ^ "\n")
        else print ("West " ^ (I.toString (I.abs pos)) ^ "\n")
    end

Submission Info

Submission Time
Task B - 双子とスイカ割り
User masquerade0324
Language Standard ML (MLton 20100608)
Score 100
Code Size 841 Byte
Status AC
Exec Time 1 ms
Memory 384 KB

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 100 / 100
Status
AC × 3
AC × 36
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, test-21.txt, test-22.txt, test-23.txt, test-24.txt, test-25.txt, test-26.txt, test-27.txt, test-28.txt, test-29.txt, test-30.txt, sample-01.txt, sample-02.txt, sample-03.txt
Case Name Status Exec Time Memory
sample-01.txt AC 1 ms 256 KB
sample-02.txt AC 1 ms 256 KB
sample-03.txt AC 1 ms 256 KB
test-01.txt AC 1 ms 256 KB
test-02.txt AC 1 ms 256 KB
test-03.txt AC 1 ms 256 KB
test-04.txt AC 1 ms 256 KB
test-05.txt AC 1 ms 256 KB
test-06.txt AC 1 ms 256 KB
test-07.txt AC 1 ms 256 KB
test-08.txt AC 1 ms 256 KB
test-09.txt AC 1 ms 256 KB
test-10.txt AC 1 ms 256 KB
test-11.txt AC 1 ms 256 KB
test-12.txt AC 1 ms 384 KB
test-13.txt AC 1 ms 384 KB
test-14.txt AC 1 ms 384 KB
test-15.txt AC 1 ms 384 KB
test-16.txt AC 1 ms 384 KB
test-17.txt AC 1 ms 384 KB
test-18.txt AC 1 ms 384 KB
test-19.txt AC 1 ms 384 KB
test-20.txt AC 1 ms 384 KB
test-21.txt AC 1 ms 384 KB
test-22.txt AC 1 ms 384 KB
test-23.txt AC 1 ms 384 KB
test-24.txt AC 1 ms 384 KB
test-25.txt AC 1 ms 384 KB
test-26.txt AC 1 ms 384 KB
test-27.txt AC 1 ms 384 KB
test-28.txt AC 1 ms 384 KB
test-29.txt AC 1 ms 384 KB
test-30.txt AC 1 ms 384 KB