相关疑难解决方法(0)

这是我的take版本使用foldr:

myTake n list = foldr step [] list
                where step x y | (length y) < n = x : y
                               | otherwise = y

main = do print $ myTake 2 [1,2,3,4]

输出不是我所期望的:

[3,4]

然后我尝试通过插入y自身的长度进行调试,结果是:

[3,2,1,0]

我不明白为什么长度按降序插入.也许我错过了一些明显的事