結果

問題 No.3 ビットすごろく
ユーザー 3405691582
提出日時 2017-01-21 14:47:54
言語 Haskell
(9.10.1)
結果
AC  
実行時間 4,471 ms / 5,000 ms
コード長 646 bytes
コンパイル時間 8,102 ms
コンパイル使用メモリ 171,136 KB
実行使用メモリ 13,948 KB
最終ジャッジ日時 2024-07-01 08:21:57
合計ジャッジ時間 62,975 ms
ジャッジサーバーID
(参考情報)
judge1 / judge3
このコードへのチャレンジ
(要ログイン)
ファイルパターン 結果
other AC * 33
権限があれば一括ダウンロードができます
コンパイルメッセージ
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 #

import Data.Array

numOfOne 0 = 0
numOfOne n = mod n 2 + numOfOne (div n 2)
prev i = i - numOfOne i
next i = i + numOfOne i

type Board = Array Int Int
update :: Board -> Board
update b = foldl update' b [first..last] where
  (first,last) = bounds b
  update' b' i =
    let
      b'' = if prev i >= first && b!i+1 < b'!prev i then b'//[(prev i,b!i+1)] else b'
      b''' = if next i <= last && b!i+1 < b''!next i then b''//[(next i,b!i+1)] else b''
    in
      b'''

main = do
  n <- fmap read getLine
  let
    b = (listArray (1,n) $ repeat (n+1))//[(1,1)]
    b' = (iterate update b)!!(n-1)
  putStrLn . show $ if b'!n < n+1 then b'!n else -1
0