結果
問題 | No.401 数字の渦巻き |
ユーザー |
|
提出日時 | 2020-01-15 16:53:26 |
言語 | Haskell (9.10.1) |
結果 |
AC
|
実行時間 | 4 ms / 2,000 ms |
コード長 | 735 bytes |
コンパイル時間 | 9,684 ms |
コンパイル使用メモリ | 181,248 KB |
実行使用メモリ | 7,040 KB |
最終ジャッジ日時 | 2025-01-03 10:11:15 |
合計ジャッジ時間 | 10,913 ms |
ジャッジサーバーID (参考情報) |
judge3 / judge2 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
other | AC * 30 |
コンパイルメッセージ
Loaded package environment from /home/judge/.ghc/x86_64-linux-9.10.1/environments/default [1 of 2] Compiling Main ( Main.hs, Main.o ) [2 of 2] Linking a.out
ソースコード
main = readLn >>= putStr . output . (solve 1)solve::Int->Int->Intsolve m 1 = [[m]]solve m 2 = [ [m, m + 1], [m + 3, m + 2] ]solve m n = top ++ mids ++ botwhere centerArr = (solve (m + 4 * n - 4) (n - 2))top = [ [ i | i <- [m .. m + n - 1] ] ]mids = [ row i n m (centerArr !! i) | i <- [0 .. n - 3] ]bot = [ reverse [ i | i <- [m + 2 * n - 2 .. m + 3 * n - 3] ] ]row::Int->Int->Int->Int->Introw i n m centers = left ++ centers ++ rightwhere left = [m + 4 * n - 5 - i]right = [m + n + i]output::Int->Stringoutput = unlines . (map (\xs -> unwords $ map show' xs))show'::Int->Stringshow' n = reverse $ take 3 $ reverse $ "00" ++ show n