[오일러프로젝트] 20번문제

n! 이라는 표기법은 n × (n − 1) × ... × 3 × 2 × 1을 뜻합니다.

예를 들자면 10! = 10 × 9 × ... × 3 × 2 × 1 = 3628800 이 되는데,
여기서 10!의 각 자리수를 더해 보면 3 + 6 + 2 + 8 + 8 + 0 + 0 = 27 입니다.

100! 의 자리수를 모두 더하면 얼마입니까?


간만에 노멀한 문제. 씐나!

 

Python

	import math
	a=math.factorial(100)
	a=str(int(a))
	l=list()
	l+=a
	print(sum([int(i) for i in l]))

view raw 20.py hosted with ❤ by GitHub

Ruby

	a=(1..100).inject(:*)
	l=a.to_s.split(//)
	r = l.inject{|sum,x| sum.to_i + x.to_i}
	p r

view raw 20.rb hosted with ❤ by GitHub

Perl

	#!/usr/bin/perl
	use strict;
	use warnings;
	use bigint;
	my $factorial_result = 1;
	foreach ((1..100)) {
	$factorial_result = $factorial_result * $_;
	}
	my @l = split //, $factorial_result;
	my $r;
	foreach (@l) {
	$r+=$_;
	}
	print $r;

view raw 20.pl hosted with ❤ by GitHub

외국 오일러프로젝트의 다른 개발자의 Perl코드..

	#!/usr/bin/perl
	use strict;
	use warnings;
	use Math::BigInt;
	my $sum = 0;
	map { $sum += $_ } split '', Math::BigInt->new( 100 )->bfac()->bstr();
	print "Sum is $sum\n";

view raw 20_2.pl hosted with ❤ by GitHub