結果

問題 No.566 だいたい完全二分木
ユーザー momen999
提出日時 2019-03-22 01:11:49
言語 Haskell
(8.8.1)
結果
AC  
実行時間 4 ms
コード長 251 Byte
コンパイル時間 5,984 ms
使用メモリ 5,324 KB
最終ジャッジ日時 2020-02-03 17:20:52

テストケース

テストケース表示
入力 結果 実行時間
使用メモリ
test_02.in AC 0 ms
3,784 KB
test_03.in AC 4 ms
3,600 KB
test_04.in AC 4 ms
3,792 KB
test_05.in AC 0 ms
3,752 KB
test_06.in AC 0 ms
3,660 KB
test_07.in AC 0 ms
3,884 KB
test_08.in AC 4 ms
3,940 KB
test_09.in AC 0 ms
4,096 KB
test_10.in AC 4 ms
4,860 KB
test_11.in AC 4 ms
4,788 KB
test_12.in AC 4 ms
5,324 KB
テストケース一括ダウンロード
コンパイルメッセージ
Loaded package environment from /root/.ghc/x86_64-linux-8.8.1/environments/default
[1 of 1] Compiling Main             ( Main.hs, Main.o )
Linking a.out ...

ソースコード

diff #
f :: [Int] -> [Int]
f [] = []
f ks = ks !! l : f a ++ f b where
    l = length ks `div` 2
    a = take l ks
    b = tail $ drop l ks

main = readLn >>= putStrLn . unwords . map show . swap . f . (\k -> [1 .. 2^k - 1]) where
    swap (n:ns) = ns ++ [n]
0