結果
問題 | No.279 木の数え上げ |
ユーザー |
![]() |
提出日時 | 2019-08-21 16:04:10 |
言語 | Haskell (9.10.1) |
結果 |
AC
|
実行時間 | 180 ms / 2,000 ms |
コード長 | 327 bytes |
コンパイル時間 | 8,788 ms |
コンパイル使用メモリ | 171,264 KB |
実行使用メモリ | 48,768 KB |
最終ジャッジ日時 | 2024-10-09 05:17:15 |
合計ジャッジ時間 | 3,732 ms |
ジャッジサーバーID (参考情報) |
judge4 / judge3 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
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 ) [2 of 2] Linking a.out
ソースコード
main::IO()main = getLine >>= print.solvesolve::String->Intsolve s = minimum [t, r, e]wherexs = filter (\x -> x == 't' || x == 'r' || x == 'e') st = length $ filter (\x -> x == 't') xsr = length $ filter (\x -> x == 'r') xse = flip div 2 $ length $ filter (\x -> x == 'e') xs