Bernoulli numbers: Difference between revisions

← Older editNewer edit →
Content deleted Content added
Hout (talk | contribs)
9,665 edits
Hout (talk | contribs)
9,665 edits
→‎Haskell - Derivation from Faulhaber's triangle: Rearranged Bernouilli function a little
Line 1,238: Line 1,238:
scanl
scanl
(\rs n ->
(\rs n ->
let xs = zipWith ((*) . (n %)) [2 ..] rs
((:) =<< (-) 1 . sum) --
in 1 - sum xs : xs)
(zipWith ((*) . (n %)) [2 ..] rs))
[] .
[] .
enumFromTo 0
enumFromTo 0
Retrieved from "https://rosettacode.org/wiki/Bernoulli_numbers"