Как рассчитать степенную функцию путем построения списка с к элементам, все будучи п, а затем с помощью функции продукта

Question

я преуспела с одним методом:

power1 :: Integer -> Integer -> Integer 
power1 n k | k < 0 = error "power not defined for negative exponent" 
      | otherwise = product (replicate (fromInteger k) n) 

Но как вы это делаете с список внутри функции? Я пытался решить это часами, но я не могу это понять.

power1 :: Integer -> Integer -> Integer 
power1 n k=product 

Answer 1

Вот способ сделать это с списковыми:

power1 n k = product [n | _ <- [1 .. k]] 

Примечания хотя, что и этот путь, и тот, который вы написали не очень эффективны.