小编Tim*_*tzy的帖子

我的代码有问题，如下所示：

import Data.List

splitat _ [] = ([],[])
splitat element (head:tail)
  | element == head = ([],(head:tail))
  | otherwise = ([head]++fst(splitat element tail), snd(splitat element tail))

它在“元素”处拆分列表，然后将左右子列表组合成一个元组。然而，在第三行中，'splitat element tail' 命令被调用两次，一次通过'fst'，一次通过'snd'。有没有办法只评估这个术语 1 次以保持递归树的狭窄？

提前致谢。