結果
問題 | No.739 大事なことなので2度言います |
ユーザー |
|
提出日時 | 2019-12-26 01:31:57 |
言語 | Haskell (9.10.1) |
結果 |
AC
|
実行時間 | 2 ms / 2,000 ms |
コード長 | 242 bytes |
コンパイル時間 | 5,487 ms |
コンパイル使用メモリ | 172,160 KB |
実行使用メモリ | 6,824 KB |
最終ジャッジ日時 | 2024-10-01 14:58:30 |
合計ジャッジ時間 | 1,873 ms |
ジャッジサーバーID (参考情報) |
judge2 / judge4 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 4 |
other | AC * 7 |
コンパイルメッセージ
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:5:170: 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."
|
5 | main = interact ) (map splitAt [1..]) . repeat . head . words
| ^^^^
[2 of 2] Linking a.out
ソースコード
-- Practice yukicoder-- author: Leonardone @ NEETSDKASUmain = interact $ maybe "NO" id . lookup True . return . flip (,) "YES" . any (uncurry (==)) . takeWhile (not . null . snd) . zipWith ($) (map splitAt[1..]) . repeat . head . words