結果

問題 No.116 門松列(1)
ユーザー 情報学生
提出日時 2019-08-16 12:02:03
言語 Haskell
(9.10.1)
結果
AC  
実行時間 3 ms / 5,000 ms
コード長 486 bytes
コンパイル時間 8,107 ms
コンパイル使用メモリ 172,544 KB
実行使用メモリ 5,376 KB
最終ジャッジ日時 2024-09-22 02:13:36
合計ジャッジ時間 9,149 ms
ジャッジサーバーID
（参考情報） 		judge4 / judge1
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 3
other AC * 21
権限があれば一括ダウンロードができます
コンパイルメッセージ
Loaded package environment from /home/judge/.ghc/x86_64-linux-9.8.2/environments/default
[1 of 2] Compiling Main             ( Main.hs, Main.o )

Main.hs:6:16: warning: [GHC-63394] [-Wx-partial]
    In the use of ‘tail’
    (imported from Prelude, but defined in GHC.List):
    "This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty."
  |
6 |         f xs = tail xs ++ [head xs]
  |                ^^^^

Main.hs:6:28: warning: [GHC-63394] [-Wx-partial]
    In the use of ‘head’
    (imported from Prelude, but defined in GHC.List):
    "This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty."
  |
6 |         f xs = tail xs ++ [head xs]
  |                            ^^^^

Main.hs:15:90: warning: [GHC-63394] [-Wx-partial]
    In the use of ‘tail’
    (imported from Prelude, but defined in GHC.List):
    "This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty."
   |
15 | main = interact $ show . length . filter id . map isKadomatsu . triple_pair . map read . tail . words
   |                                                                                          ^^^^
[2 of 2] Linking a.out

ソースコード

diff # 

triple_pair :: [Int] -> [(Int, Int, Int)]
triple_pair xs = (init . init) $ zip3 xs (f xs) (f (f xs))
    where
        f :: [Int] -> [Int]
        f [] = []
        f xs = tail xs ++ [head xs]

isKadomatsu :: (Int, Int, Int) -> Bool
isKadomatsu (a, b, c)
    | a > b && b < c && a /= c = True
    | a < b && b > c && a /= c = True
    | otherwise                = False

main :: IO ()
main = interact $ show . length . filter id . map isKadomatsu . triple_pair . map read . tail . words
0