提出 #679230

ソースコード 拡げる

import Control.Applicative

solve :: Int -> Int -> String
solve x y 
	| x < y = "Better"
	| x > y = "Worse"
	| otherwise = "Invalid"

main = do	
	[x,y] <- map read . words <$> getLine
	putStrLn $ solve x y

提出情報

提出日時
問題 A - テスト
ユーザ rinkou
言語 Haskell (Haskell Platform 2014.2.0.0)
得点 100
コード長 215 Byte
結果 AC
実行時間 33 ms
メモリ 1432 KiB

ジャッジ結果

セット名 Sample Dataset1 All
得点 / 配点 0 / 0 50 / 50 50 / 50
結果
AC × 2
AC × 11
AC × 32
セット名 テストケース
Sample s0.txt, s1.txt
Dataset1 000.txt, 001.txt, 002.txt, 003.txt, 004.txt, 005.txt, 006.txt, 007.txt, 008.txt, 009.txt, s0.txt
All 000.txt, 001.txt, 002.txt, 003.txt, 004.txt, 005.txt, 006.txt, 007.txt, 008.txt, 009.txt, 010.txt, 011.txt, 012.txt, 013.txt, 014.txt, 015.txt, 016.txt, 017.txt, 018.txt, 019.txt, 020.txt, 021.txt, 022.txt, 023.txt, 024.txt, 025.txt, 026.txt, 027.txt, 028.txt, 029.txt, s0.txt, s1.txt
ケース名 結果 実行時間 メモリ
000.txt AC 33 ms 1432 KiB
001.txt AC 29 ms 1300 KiB
002.txt AC 30 ms 1296 KiB
003.txt AC 30 ms 1428 KiB
004.txt AC 29 ms 1304 KiB
005.txt AC 29 ms 1304 KiB
006.txt AC 29 ms 1308 KiB
007.txt AC 29 ms 1308 KiB
008.txt AC 31 ms 1304 KiB
009.txt AC 29 ms 1300 KiB
010.txt AC 29 ms 1304 KiB
011.txt AC 29 ms 1308 KiB
012.txt AC 29 ms 1308 KiB
013.txt AC 29 ms 1304 KiB
014.txt AC 30 ms 1380 KiB
015.txt AC 29 ms 1304 KiB
016.txt AC 29 ms 1304 KiB
017.txt AC 29 ms 1304 KiB
018.txt AC 29 ms 1308 KiB
019.txt AC 29 ms 1428 KiB
020.txt AC 29 ms 1300 KiB
021.txt AC 29 ms 1308 KiB
022.txt AC 28 ms 1432 KiB
023.txt AC 29 ms 1356 KiB
024.txt AC 29 ms 1308 KiB
025.txt AC 29 ms 1308 KiB
026.txt AC 29 ms 1308 KiB
027.txt AC 29 ms 1304 KiB
028.txt AC 29 ms 1304 KiB
029.txt AC 29 ms 1360 KiB
s0.txt AC 28 ms 1300 KiB
s1.txt AC 29 ms 1304 KiB