Rosetta Code

Stirling numbers of the first kind: Difference between revisions

Page Discussion

Stirling numbers of the first kind (view source)

Revision as of 02:26, 29 June 2020

14 bytes removed ,  3 years ago
m
→‎{{header|Haskell}}
Line 513:
| n > 0 && k == 0 = pure 0
| k > n = pure 0
| otherwise = do(\f1 f2 -> f1 + pred n * f2) <$>
f1memo stirling1 (pred n, pred k) <-*> memo stirling1 (pred n, pred k)
f2 <- memo stirling1 (pred n, k)
pure (f1 + pred n * f2)
 
stirling1Memo :: Integral n => (n, n) -> n
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/292547"