在haskell中将一个元素从一个列表移动到另一个列表

moveElement :: Eq a => a -> [a] -> [a] -> Maybe ([a], [a])
moveElement _ [] _ = Nothing  -- 如果sourceList为空，返回Nothing表示无法移动元素
moveElement element (x:xs) destList
  | element == x = Just (xs, element : destList)  -- 如果找到要移动的元素，将其从sourceList中移除，并添加到destinationList中
  | otherwise = case moveElement element xs destList of
                  Just (newSourceList, newDestList) -> Just (x : newSourceList, newDestList)  -- 递归继续查找要移动的元素
                  Nothing -> Nothing  -- 如果在sourceList中未找到要移动的元素，返回Nothing表示无法移动元素

sourceList :: [Int]
sourceList = [1, 2, 3, 4, 5]

destinationList :: [Int]
destinationList = []

elementToMove :: Int
elementToMove = 3

result :: Maybe ([Int], [Int])
result = moveElement elementToMove sourceList destinationList

case result of
  Just (newSourceList, newDestList) -> do
    putStrLn $ "移动后的源列表: " ++ show newSourceList
    putStrLn $ "移动后的目标列表: " ++ show newDestList
  Nothing ->
    putStrLn "未找到要移动的元素"

移动后的源列表: [1,2,4,5]
移动后的目标列表: [3]