2009-11-23から1日間の記事一覧

Project Euler 多倍長演算ライブラリ

今後も使うかもしれないのでここにまとめておきます。 加算、乗算、累乗、階乗が実装済みです。 多倍長演算ライブラリ ;; ;; bigint.el ;; 利用するときは、このファイルをload-pathの通ったところに置いて ;; バイトコンパイルして、require してください。…

Project Euler Problem 20

問題20: 100! の各桁の数字の合計を求めよ。[=>問題文] 問題20の解答 ;; Emacs Lisp (require 'cl) (require 'bigint) (defun problem020 () (let ((str (bigint-to-string (bigint-fact 100)))) (apply #'+ (mapcar #'(lambda (c) (- c ?0)) str)))) (probl…