提出 #690204

ソースコード 拡げる

import Control.Applicative

main::IO()
main = do
	[a,b] <- (map read.words) <$> getLine
	putStrLn $ show $ ceiling $ b/a

提出情報

提出日時
問題 A - お茶
ユーザ gotchman01
言語 Haskell (GHC 7.10.3)
得点 100
コード長 127 Byte
結果 AC
実行時間 6 ms
メモリ 508 KiB

コンパイルエラー

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

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

ジャッジ結果

セット名 All Testset1
得点 / 配点 50 / 50 50 / 50
結果
AC × 22
AC × 11
セット名 テストケース
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
Testset1 000.txt, 002.txt, 003.txt, 004.txt, 005.txt, 006.txt, 007.txt, 008.txt, 009.txt, 010.txt, 011.txt
ケース名 結果 実行時間 メモリ
000.txt AC 5 ms 508 KiB
001.txt AC 5 ms 508 KiB
002.txt AC 5 ms 508 KiB
003.txt AC 5 ms 508 KiB
004.txt AC 5 ms 508 KiB
005.txt AC 5 ms 508 KiB
006.txt AC 5 ms 508 KiB
007.txt AC 5 ms 508 KiB
008.txt AC 5 ms 508 KiB
009.txt AC 5 ms 508 KiB
010.txt AC 5 ms 508 KiB
011.txt AC 5 ms 508 KiB
012.txt AC 5 ms 508 KiB
013.txt AC 6 ms 508 KiB
014.txt AC 5 ms 508 KiB
015.txt AC 6 ms 508 KiB
016.txt AC 5 ms 508 KiB
017.txt AC 5 ms 508 KiB
018.txt AC 5 ms 508 KiB
019.txt AC 6 ms 508 KiB
020.txt AC 5 ms 508 KiB
021.txt AC 6 ms 508 KiB