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 |
|
|
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 |