提出 #1318485

ソースコード 拡げる

solve :: [Integer] -> String
solve [a,b]
  | a >	b = "GREATER"
  | b >	a = "LESS"
  | otherwise =	"EQUAL"

main = getContents >>= putStrLn . solve . map read . lines

提出情報

提出日時
問題 B - Comparison
ユーザ sato
言語 Haskell (GHC 7.10.3)
得点 200
コード長 171 Byte
結果 AC
実行時間 2 ms
メモリ 636 KiB

コンパイルエラー

Main.hs:3:8: Warning: Tab character

Main.hs:4:8: Warning: Tab character

Main.hs:5:16: Warning: Tab character

ジャッジ結果

セット名 Sample All
得点 / 配点 0 / 0 200 / 200
結果
AC × 4
AC × 14
セット名 テストケース
Sample 00-00.txt, 00-01.txt, 00-02.txt, 00-03.txt
All 00-00.txt, 00-01.txt, 00-02.txt, 00-03.txt, 01-00.txt, 01-01.txt, 01-02.txt, 01-03.txt, 01-04.txt, 01-05.txt, 01-06.txt, 01-07.txt, 01-08.txt, 01-09.txt
ケース名 結果 実行時間 メモリ
00-00.txt AC 2 ms 508 KiB
00-01.txt AC 2 ms 508 KiB
00-02.txt AC 2 ms 508 KiB
00-03.txt AC 2 ms 508 KiB
01-00.txt AC 2 ms 508 KiB
01-01.txt AC 2 ms 508 KiB
01-02.txt AC 2 ms 636 KiB
01-03.txt AC 2 ms 508 KiB
01-04.txt AC 2 ms 508 KiB
01-05.txt AC 2 ms 508 KiB
01-06.txt AC 2 ms 508 KiB
01-07.txt AC 2 ms 380 KiB
01-08.txt AC 2 ms 508 KiB
01-09.txt AC 2 ms 508 KiB