読者です 読者をやめる 読者になる 読者になる

PEをMathematicaで

Project Eulerに挑戦してみよう

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

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

37107287533902102798797998220837590246510135740250

46376937677490009712648124896970078050417018260538

(中略)

53503534226472524250874054075591789781264330331690

Problem 13 - Project Euler

おぼえたてのリスト操作で解きました。

  1. Total でリストの総和を求める
  2. IntegerDigits でリストに直す
  3. Take で首位10桁の数字からなるリストを作る
  4. FromDigits で数に直す

追記(2017/05/07)

元記事を書いたのは2ヶ月前。今書くとしたら Floor や IntegerLength を使います。