2012-02-03から1日間の記事一覧
(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-pr…