Stirling numbers of the second kind: Difference between revisions

m
(added Haskell)
Line 475:
mapM_ (\row -> printf "%2d|" (fst $ head row) >>
mapM_ (printf "%10d" . uncurry stirling2) row >> printf "\n") table
printf "\nThe maximum value of S1S2(100, k):\n%d\n" $
maximum ([stirling2 100 n | n <- [1..100]] :: [Integer])
where
Line 497:
12| 0 1 2047 86526 611501 1379400 1323652 627396 159027 22275 1705 66 1
 
The maximum value of S1S2(100, k):
7769730053598745155212806612787584787397878128370115840974992570102386086289805848025074822404843545178960761551674</pre>
 
=={{header|J}}==
<pre>
Anonymous user