PEをMathematicaで

Project Eulerに挑戦してみよう

Project Euler 13 / 大きな数の首位10桁

以下の50桁の数字100個の合計の上から10桁を求めなさい。

37107287533902102798797998220837590246510135740250

46376937677490009712648124896970078050417018260538

(中略)

53503534226472524250874054075591789781264330331690

Problem 13 - Project Euler


総和を b とすると,その桁数は n=IntegerLength[b]。b を 10^(n-10) で割った商を求めます。本当に割って ガウス記号をかぶせるよりも Quotient で商を求めるほうが速いようです。