Submission #2545879


Source Code Expand

structure SC = StringCvt
structure T  = TextIO

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

val () =
    let
      val (a, b, c, d) = (nextInt (), nextInt (), nextInt (), nextInt ())
    in
      print (Int.toString (Int.max (a * b, c * d)) ^ "\n")
    end

Submission Info

Submission Time
Task A - Two Rectangles
User masquerade0324
Language Standard ML (MLton 20100608)
Score 100
Code Size 289 Byte
Status AC
Exec Time 1 ms
Memory 256 KB

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 100 / 100
Status
AC × 2
AC × 10
Set Name Test Cases
Sample sample_01.txt, sample_02.txt
All sample_01.txt, sample_02.txt, subtask_1_abmax_01.txt, subtask_1_allmax_01.txt, subtask_1_cdmax_01.txt, subtask_1_rand_01.txt, subtask_1_rand_02.txt, subtask_1_rand_03.txt, subtask_1_same_01.txt, subtask_1_same_02.txt
Case Name Status Exec Time Memory
sample_01.txt AC 1 ms 256 KB
sample_02.txt AC 1 ms 256 KB
subtask_1_abmax_01.txt AC 1 ms 256 KB
subtask_1_allmax_01.txt AC 1 ms 256 KB
subtask_1_cdmax_01.txt AC 1 ms 256 KB
subtask_1_rand_01.txt AC 1 ms 256 KB
subtask_1_rand_02.txt AC 1 ms 256 KB
subtask_1_rand_03.txt AC 1 ms 256 KB
subtask_1_same_01.txt AC 1 ms 256 KB
subtask_1_same_02.txt AC 1 ms 256 KB