結果

問題 No.327 アルファベット列
コンテスト
ユーザー gemmaro
提出日時 2020-11-03 20:39:47
言語 Haskell
(9.10.1)
結果
AC  
実行時間 2 ms / 2,000 ms
コード長 429 bytes
コンパイル時間 8,499 ms
コンパイル使用メモリ 173,440 KB
実行使用メモリ 6,944 KB
最終ジャッジ日時 2024-07-22 09:11:56
合計ジャッジ時間 9,882 ms
ジャッジサーバーID
（参考情報） 		judge3 / judge5
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 3
other AC * 50
権限があれば一括ダウンロードができます
コンパイルメッセージ
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 #
raw source code 

import Data.Char (chr, ord)

l :: Int
l = length ['A'..'Z']

main :: IO ()
main = putStrLn . solve =<< readLn

solve :: Int -> String
solve = alphabet . solve'

solve' :: Int -> [Int]
solve' n = solve'' n []

solve'' :: Int -> [Int] -> [Int]
solve'' n xs = if d == 0 then xs' else solve'' (d - 1) xs'
        where (d, m) = n `divMod` l
              xs' = (m:xs)

alphabet :: [Int] -> String
alphabet = map (chr . (+ (ord 'A')))
0