提出 #674487

ソースコード 拡げる

main :: IO()
main = do
	[w, h] <- (map read) . words <$> getLine
	let ratio = w / h
	if (ratio > 1.7)
		then putStrLn "16:9"
		else putStrLn "4:3"

提出情報

提出日時
問題 A - テレビ
ユーザ aruneko99
言語 Haskell (GHC 7.10.3)
得点 100
コード長 152 Byte
結果 AC
実行時間 16 ms
メモリ 508 KiB

コンパイルエラー

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

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

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

Main.hs:6:1: Warning: Tab character

Main.hs:7:1: Warning: Tab character

ジャッジ結果

セット名 Sample All
得点 / 配点 0 / 0 100 / 100
結果
AC × 3
AC × 25
セット名 テストケース
Sample example_01.txt, example_02.txt, example_03.txt
All 16_9_01.txt, 16_9_02.txt, 16_9_03.txt, 16_9_04.txt, 16_9_05.txt, 16_9_06.txt, 16_9_07.txt, 16_9_08.txt, 16_9_09.txt, 16_9_10.txt, 16_9_max.txt, 4_3_01.txt, 4_3_02.txt, 4_3_03.txt, 4_3_04.txt, 4_3_05.txt, 4_3_06.txt, 4_3_07.txt, 4_3_08.txt, 4_3_09.txt, 4_3_10.txt, 4_3_max.txt, example_01.txt, example_02.txt, example_03.txt
ケース名 結果 実行時間 メモリ
16_9_01.txt AC 5 ms 508 KiB
16_9_02.txt AC 5 ms 508 KiB
16_9_03.txt AC 5 ms 508 KiB
16_9_04.txt AC 5 ms 508 KiB
16_9_05.txt AC 7 ms 508 KiB
16_9_06.txt AC 16 ms 508 KiB
16_9_07.txt AC 5 ms 508 KiB
16_9_08.txt AC 5 ms 508 KiB
16_9_09.txt AC 5 ms 508 KiB
16_9_10.txt AC 5 ms 508 KiB
16_9_max.txt AC 5 ms 508 KiB
4_3_01.txt AC 5 ms 508 KiB
4_3_02.txt AC 5 ms 508 KiB
4_3_03.txt AC 5 ms 508 KiB
4_3_04.txt AC 5 ms 508 KiB
4_3_05.txt AC 5 ms 508 KiB
4_3_06.txt AC 5 ms 508 KiB
4_3_07.txt AC 5 ms 508 KiB
4_3_08.txt AC 5 ms 508 KiB
4_3_09.txt AC 5 ms 508 KiB
4_3_10.txt AC 5 ms 508 KiB
4_3_max.txt AC 5 ms 508 KiB
example_01.txt AC 5 ms 508 KiB
example_02.txt AC 5 ms 508 KiB
example_03.txt AC 5 ms 508 KiB