Lah numbers: Difference between revisions
Content added Content deleted
Line 491: | Line 491: | ||
printf "Unsigned Lah numbers: L(n, k):\nn/k" |
printf "Unsigned Lah numbers: L(n, k):\nn/k" |
||
mapM_ (printf "%11d") ([0..12] :: [Word]) |
mapM_ (printf "%11d") ([0..12] :: [Word]) |
||
mapM_ printLah |
mapM_ printLah $ (,) <$> [0..12] <*> [0..12] |
||
printf "\nMaximum value from the L(100, *) row:\n%d\n" |
printf "\nMaximum value from the L(100, *) row:\n%d\n" |
||
(maximum $ lah 100 <$> ([0..100] :: [Integer]))</lang> |
(maximum $ lah 100 <$> ([0..100] :: [Integer]))</lang> |