如何在haskell中除法，然后在列表中返回答案

-- 定义一个除法函数
divide :: Int -> Int -> Int
divide x y = x `div` y

-- 使用列表推导式进行除法操作并返回答案列表
divideList :: [Int] -> [Int] -> [Int]
divideList xs ys = [divide x y | x <- xs, y <- ys]

-- 示例用法
main :: IO ()
main = do
  let numbers = [10, 20, 30]
  let divisors = [2, 5]
  let result = divideList numbers divisors
  print result