結果

問題 No.588 空白と回文
ユーザー ffm
提出日時 2017-11-06 19:26:06
言語 Haskell
(9.10.1)
結果
AC  
実行時間 8 ms / 2,000 ms
コード長 162 bytes
コンパイル時間 5,703 ms
コンパイル使用メモリ 177,792 KB
実行使用メモリ 5,248 KB
最終ジャッジ日時 2024-11-24 04:03:59
合計ジャッジ時間 5,062 ms
ジャッジサーバーID
(参考情報)
judge2 / judge4
このコードへのチャレンジ
(要ログイン)
ファイルパターン 結果
other AC * 25
権限があれば一括ダウンロードができます
コンパイルメッセージ
Loaded package environment from /home/judge/.ghc/x86_64-linux-9.8.2/environments/default
[1 of 2] Compiling Main             ( Main.hs, Main.o )
[2 of 2] Linking a.out

ソースコード

diff #

f xs [] = 0
f xs yys@(y:ys) = g xs yys `max` (1 + g xs ys) `max` f (y:xs) ys
g xs ys = length (filter id $ zipWith (==) xs ys) * 2
main = print . f [] =<< getLine
0