返回一個連接字符串在Haskell遞歸函數

Question

我試圖寫在Haskell的函數，將採取一個整數，並返回字符串

例如，一個級聯（次輸入的號碼），

輸入： 3

輸出：HI1 \ nhi2 \ nhi3

main = do 

    let str = func 2 "" 
    putStrLn str 

func :: Int -> String -> String 
func i str = do 
     if i>(-1) 
      then do 
       str ++ "hi" ++ (show i) 
       func (i-1) str 

     else str 

感謝你！

Answer 1

使你的代碼的「工作」（後來我將解釋雙引號），最簡單的方法就是直接調用func與連接字符串作爲參數，無中間步驟：

func :: Int -> String -> String 
func i str = do 
     if i > (-1) 
      then func (i-1) (str ++ "hi" ++ (show i) ++ "\n")  
      else str 

我也將換行符添加到輸出中，這意味着結果的最後一個字符將成爲新行。因此，最好寫

let str = func 2 "" 
putStr str 

這樣你就可以避免在最後一個額外的新行。

我的第一句話雙引號中寫道「作品」，因爲我的代碼打印

hi2 
hi1 
hi0 

您需要修改func從而使線以相反的順序打印。提示：您可以將行存儲在列表中，並在最後反轉列表。

P.S.我不確定零是否應該是有效的後綴。如果不是，那麼您必須更改您的if聲明中的條件。

Answer 2

這是一個更慣用的溶液比使用if-else

，將採取的整數，並返回一個連接起來的功能（次數輸入）串

func :: Int -> String -> String 
func 0 s = "" 
func n s = s ++ func (n - 1) s 

main = putStrLn (func 3 "hi") 

輸出

hihihi 

Answer 3

我想知道'對數'解決方案更快：

main = putStrLn $mul 7 "Hi" 

mul :: Int -> String -> String 
mul 0 _ = "" 
mul 1 s = s 
mul _ "" = "" 
mul n s = let 
      (q, r) = n `quotRem` 2 
      s' = mul q s 
    in (if r == 1 then s else "") ++ s' ++ s'