Lah numbers: Difference between revisions
m
→{{header|Haskell}}: Pruning of some minor redundancy
m (→{{header|Haskell}}: An applicative pruning of some minor redundancy.) |
m (→{{header|Haskell}}: Pruning of some minor redundancy) |
||
Line 467:
<lang haskell>import Text.Printf (printf)
import Control.Monad (when)
factorial
Line 485 ⟶ 484:
| otherwise = f n `div` f k `div` factorial (n - k)
where
f = (*)
printLah :: (Word, Word) -> IO ()
| |||