?? danger.hs.txt
字號:
-- Problem In Danger-- Algorithm Recursion-- Runtime O(log(n))-- Author Walter Guttmann-- Date 06.05.2001main :: IO ()main = do input <- readFile "danger.in" mapM_ (print . solve) $ takeWhile (> 0) $ map (round . read) $ words inputsolve :: Int -> Intsolve n | n == 1 = 1 | n `mod` 2 == 1 = solve ((n-1) `div` 2) * 2 + 1 | otherwise = solve (n `div` 2) * 2 - 1?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -