ch7.hs

ch7.hs

snoc :: a -> [a] -> [a]
snoc x xs = xs ++ [x]

rr :: [a] -> [a]
rr  = foldr (snoc) []

rre :: [a] -> [a]
rre = foldr ( \ x xs -> xs ++ [x] ) [] -- why is this wrong 

{- | 
ch7.hs:18:15: error:
313    • Couldn't match expected type ‘[a]’
314                  with actual type ‘[[a]] -> [[a]]’
315    • In the first argument of ‘foldr’, namely
316        ‘(\ _ x xs -> xs ++ [x])’
317      In the expression: foldr (\ _ x xs -> xs ++ [x]) []
318      In an equation for ‘rre’: rre = foldr (\ _ x xs -> xs ++ [x]) []
319    • Relevant bindings include
320        rre :: [a] -> [a] (bound at ch7.hs:18:1)
321   |
32218 | rre = foldr ( \_ x xs -> xs ++ [x] ) []
323   |               ^^^^^^^^^^^^^^^^^^^^
324Failed, no modules loaded.

-}