Haskell程序使用库函数查找数字的幂

本教程将帮助我们使用库函数找到一个数字的幂。基值和指数值作为参数被传递，用来寻找传递的基值的指数幂。并显示最终的输出结果。

例如，对于基数=2；指数=3，它将返回8。

语法

power x y = product (replicate (fromInteger y) x)

乘积函数计算列表中所有元素的乘积

power x y = foldl (*) 1 (replicate (fromInteger y) x)

Foldl将列表中的第一项和第二个参数应用到它们身上，然后它将这个结果和第二个参数送入函数，并继续进行，直到最后一项。

power x y = foldr (*) 1 (replicate (fromInteger y) x)

Foldr函数将接受第二个参数和列表中的最后一项来应用该函数，然后它将从最后的倒数第二项开始，并给出结果，这样一直持续到最后。

算法

第1步 – 定义幂函数
第2步 – 程序执行将从主函数开始。main()函数拥有整个程序的控制权。
第3步 – 变量 “base “和 “exponent “被初始化。它将包含基值和指数值。
第4步 – 通过使用’putStrLn’语句显示最终的结果值。

使用复制函数和列表

在这个例子中，replicate函数用来创建一个x重复y次的列表，product函数用来计算该列表中各元素的乘积，即x提高到y的幂。

例1

power :: Integer -> Integer -> Integer
power x y = product (replicate (fromInteger y) x)

main :: IO()
main = do
   let base = 5
   let exponent = 3
   let result = power base exponent
   putStrLn ("Result: " ++ show result)

输出

Result: 125

使用 foldl 函数

在这个例子中，foldl函数被用来对replicate创建的列表中的每个元素进行操作，并累积结果。

例2

power :: Integer -> Integer -> Integer
power x y = foldl (*) 1 (replicate (fromInteger y) x)

main :: IO()
main = do
   let base = 5
   let exponent = 3
   let result = power base exponent
   putStrLn ("Result: " ++ show result)

输出

Result: 125

使用库函数和通过使用 foldr 函数

在这个例子中，foldr函数被用来对replicate创建的列表中的每个元素进行操作，并将结果按相反的顺序累积。

例三

power :: Integer -> Integer -> Integer
power x y = foldr (*) 1 (replicate (fromInteger y) x)

main :: IO()
main = do
   let base = 5
   let exponent = 3
   let result = power base exponent
   putStrLn ("Result: " ++ show result)

输出

Result: 125

使用幂函数

在这个例子中，函数的使用是通过调用power x y，其中x是基数，y是指数。例如，power 2 3将返回8。

例4:

power :: Integer -> Integer -> Integer
power x 0 = 1
power x y = x * power x (y-1)

main :: IO()
main = do
   let base = 5
   let exponent = 3
   let result = power base exponent
   putStrLn ("Result: " ++ show result)