Daily Archives: July 18, 2024

World Cup 94, 2

Posted on by

Find the sum of the digits in the number \displaystyle{100!}.

import Data.Char ( digitToInt )

p_20 = sum
       $ map digitToInt
       $ show $ product [1..100]


λ> p_20
648

— Haskell official

— Me@2024-07-17 03:44:42 PM

.

.

2024.07.18 Thursday (c) All rights reserved by ACHK