Problem 13

(require 'calc-ext)
(defvar calc-command-flags nil)

(with-temp-buffer
  (insert-file-contents-literally (car argv))
  (let ((sum 0))
    (while (re-search-forward "[0-9]\\{50\\}" nil t)
      (setq sum (math-add sum (math-read-number (match-string-no-properties 0)))) )
    (princ (substring (math-format-value sum) 0 10))
    (princ "\n") ))

メモ

• 100個の50桁の数字は別ファイルに用意. 引数でファイル名を与える.