私は機能を持っています:
powerOf :: Int -> Int -> Int
OS の使用例:
*Main Data.List> powerOf 100 2
2
*Main Data.List> powerOf 100 5
2
2 つの質問があります。最初 - 機能しない理由:
map (powerOf 100) [2, 5]
[2、2]を取得したい。
そして2問目。pariatl 関数を作成しようとしています。このようなもの:
powerOfN :: Int -> Int
powerOfN num = powerOf num
そのように使用するには:
let powerOf100 = powerOfN 100
powerOf100 2
powerOf100 5
しかし、私はエラーメッセージを受け取りました:
simplifier.hs:31:15:
Couldn't match expected type `Int'
against inferred type `Int -> Int'
In the expression: powerOf num
In the definition of `powerOfN': powerOfN num = powerOf num
これは5月のコードでいっぱいです:
divided :: Int -> Int -> Bool
divided a b =
let x = fromIntegral a
y = fromIntegral b
in (a == truncate (x / y) * b)
listOfDividers :: Int -> [Int]
listOfDividers num =
let n = fromIntegral num
maxN = truncate (sqrt n)
in [n | n <- [1.. maxN], divided num n]
isItSimple :: Int -> Bool
isItSimple num = length(listOfDividers num) == 1
listOfSimpleDividers :: Int -> [Int]
listOfSimpleDividers num = [n | n <- listOfAllDividers, isItSimple n]
where listOfAllDividers = listOfDividers num
powerOfInner :: Int -> Int -> Int -> Int
powerOfInner num p power
| divided num p = powerOfInner (quot num p) p (power + 1)
| otherwise = power
powerOf :: Int -> Int -> Int
powerOf num p = powerOfInner num p 0
powerOfN :: Int -> Int
powerOfN num = powerOf num
powerOf num の p の最大パワーを返します。例: 100 = 2 * 2 * 5 *5、したがって powerOf 100 2 = 2. 10 = 2 * 5、したがって powerOf 10 2 = 1.
エラーを修正するには?ありがとう。