結果

問題 No.384 マス埋めゲーム2
ユーザー はむ吉🐹
提出日時 2016-07-01 22:36:58
言語 Haskell
(8.6.2)
結果
AC  
実行時間 3 ms
コード長 295 Byte
コンパイル時間 1,196 ms
使用メモリ 8,916 KB
最終ジャッジ日時 2019-08-22 10:05:25

テストケース

テストケース表示
入力 結果 実行時間
使用メモリ
challenge01.txt AC 3 ms
6,872 KB
challenge02.txt AC 2 ms
6,868 KB
sample01.txt AC 2 ms
6,868 KB
sample02.txt AC 2 ms
6,868 KB
sample03.txt AC 2 ms
6,872 KB
test01.txt AC 2 ms
6,868 KB
test02.txt AC 3 ms
6,868 KB
test03.txt AC 3 ms
8,916 KB
test04.txt AC 3 ms
6,872 KB
test05.txt AC 2 ms
6,872 KB
test06.txt AC 2 ms
6,872 KB
test07.txt AC 2 ms
6,872 KB
test08.txt AC 3 ms
6,872 KB
test09.txt AC 2 ms
6,872 KB
test10.txt AC 2 ms
6,868 KB
test11.txt AC 2 ms
6,872 KB
test12.txt AC 3 ms
6,868 KB
test13.txt AC 2 ms
6,868 KB
test14.txt AC 3 ms
6,872 KB
test15.txt AC 2 ms
6,868 KB
test16.txt AC 3 ms
6,868 KB
test17.txt AC 2 ms
6,868 KB
test18.txt AC 2 ms
6,868 KB
test19.txt AC 3 ms
6,872 KB
test20.txt AC 3 ms
6,872 KB
テストケース一括ダウンロード
コンパイルメッセージ
[1 of 1] Compiling Main             ( Main.hs, Main.o )
Linking a.out ...

ソースコード

diff #
import Control.Applicative ((<$>))
import Data.Int (Int64)

judge :: Integral a => a -> a -> a -> a -> Bool
judge h w n k = (h + w - 2) `mod` n == k - 1

main :: IO ()
main = do
    [h, w, n, k] <- fmap read . words <$> getLine :: IO [Int64]
    putStrLn $ if judge h w n k then "YES" else "NO"
0