Integer roots: Difference between revisions

Integer roots (view source)

22 bytes removed , 5 years ago

m

→‎{{header|Haskell}}: Avoided shadowing of `sequence` (standard Traversable function name)

9,655

edits

Revision as of 22:18, 19 April 2019 (view source) Hout (talk \| contribs) m (→‎{{header\|Haskell}}: (applied hindent)) ← Older edit		Revision as of 22:26, 19 April 2019 (view source) Hout (talk \| contribs) m (→‎{{header\|Haskell}}: Avoided shadowing of `sequence` (standard Traversable function name)) Newer edit →
Line 311: {{trans\|Python}} <lang haskell>root :: Integer -> Integer -> Integer root a b = findAns ~~sequence~~$ iterate (\x -> (a1 * x + b `div` (x ^ a1)) `div` a) 1 where ~~sequence = iterate (\x -> (a1 * x + b `div` (x ^ a1)) `div` a) 1~~ a1 = a - 1 findAns (x:xs@(y:z:_))