jak napisać powrócić Haskell

Question

Chcę moja funkcja showStackHead wziąć stos wydrukować głowę i powrót resztki, tutaj jest mój kod --code

showStackHead xx 
       | xx == [] = return [] 
       | otherwise = do putStrLn("result:" ++ (head xx)) 
           return (tail xx) 

kiedy uruchomić ten kod, kompilator mówi mi tam jest błędem parsowania na temat drugiego powrotu, więc jaki jest właściwy sposób napisania tej funkcji?

Answer 1

wcięcie do „powrotu” do tej samej głębokości jak „putStrLn”, tak jak poniżej:

showStackHead xs 
    | xs == [] = return [] 
    | otherwise = do putStrLn ("result:" ++ (head xs)) 
        return (tail xs) 

Answer 2

Tak na marginesie, twój showStackHead mogłyby być czystsze za pomocą dopasowywania wzorców. Pozwolić ci na porzucenie porównania strażnika, głowy i ogona:

#! /usr/bin/env runhaskell 


showStackHead []  = return [] 
showStackHead (x:xs) = do 
    putStrLn $ "result: " ++ [x] 
    return xs 


main :: IO() 
main = do 
    let s1 = [] 
    r1 <- showStackHead s1 
    putStrLn $ "returned: " ++ r1 

    putStrLn "---" 

    let s2 = "foo" 
    r2 <- showStackHead s2 
    putStrLn $ "returned: " ++ r2 

    putStrLn "---" 

    let s3 = "q" 
    r3 <- showStackHead s3 
    putStrLn $ "returned: " ++ r3