結果

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

テストケース

テストケース表示
入力 結果 実行時間
使用メモリ
challenge01.txt AC 3 ms
1,904 KB
challenge02.txt AC 3 ms
1,928 KB
sample01.txt AC 3 ms
1,912 KB
sample02.txt AC 3 ms
1,900 KB
sample03.txt AC 3 ms
1,916 KB
test01.txt AC 3 ms
1,904 KB
test02.txt AC 3 ms
1,904 KB
test03.txt AC 4 ms
1,908 KB
test04.txt AC 3 ms
1,908 KB
test05.txt AC 4 ms
1,912 KB
test06.txt AC 3 ms
1,920 KB
test07.txt AC 3 ms
1,920 KB
test08.txt AC 3 ms
1,920 KB
test09.txt AC 3 ms
1,916 KB
test10.txt AC 3 ms
1,920 KB
test11.txt AC 3 ms
1,924 KB
test12.txt AC 3 ms
1,932 KB
test13.txt AC 3 ms
1,932 KB
test14.txt AC 3 ms
1,924 KB
test15.txt AC 3 ms
1,924 KB
test16.txt AC 3 ms
1,908 KB
test17.txt AC 3 ms
1,924 KB
test18.txt AC 4 ms
1,924 KB
test19.txt AC 3 ms
1,936 KB
test20.txt AC 3 ms
1,940 KB
テストケース一括ダウンロード
コンパイルメッセージ
Loaded package environment from /root/.ghc/x86_64-linux-8.8.1/environments/default
[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