結果
問題 |
No.327 アルファベット列
|
ユーザー |
![]() |
提出日時 | 2016-12-30 23:25:33 |
言語 | Haskell (9.10.1) |
結果 |
TLE
|
実行時間 | - |
コード長 | 379 bytes |
コンパイル時間 | 13,790 ms |
コンパイル使用メモリ | 176,256 KB |
実行使用メモリ | 18,304 KB |
最終ジャッジ日時 | 2024-12-16 04:18:39 |
合計ジャッジ時間 | 115,104 ms |
ジャッジサーバーID (参考情報) |
judge1 / judge5 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 3 |
other | AC * 15 TLE * 35 |
コンパイルメッセージ
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
ソースコード
import Control.Monad suc :: Char -> [Char] suc 'Z' = "AA" suc c = [succ c] suc' :: [Char] -> [Char] suc' [] = "A" suc' s | length c == 2 = (suc' $ init s) ++ [last c] | otherwise = init s ++ c where c = suc $ last s solve :: Integer -> String -> String solve 0 s = s solve n s = solve (pred n) (suc' s) main = do n <- readLn putStrLn $ solve n "A"