Project Euler : Problem 020

Project Euler problems in Oforth . Feel free to post your own code.

Project Euler : Problem 020

Postby Franck » 02 Aug 2015 23:18

n! means n × (n − 1) × ... × 3 × 2 × 1

For example, 10! = 10 × 9 × ... × 3 × 2 × 1 = 3628800,
and the sum of the digits in the number 10! is 3 + 6 + 2 + 8 + 8 + 0 + 0 = 27.

Find the sum of the digits in the number 100!

Code: Select all
: sumDigits(n) { 0 while(n) [ n 10 /mod ->n + ] }

: fact(n) { | i | 1 n loop: i [ i * ] }

100 fact sumDigits
Franck
 
Posts: 159
Joined: 29 Oct 2014 19:01

Return to Project Euler in Oforth

Who is online

Users browsing this forum: No registered users and 1 guest

cron