Archive for 2015年3月|Monthly archive page

projecteuler20

投稿日 2015年3月1日
Filed under: Projecteuler | タグ:
* コメントを残す

　projecteuler の 問題20 は、100 の階乗を求め、各桁を足した和を求めるという問題。
　桁数に制限のない大整数のある newLISP とって、得意とするところ。

> (apply * (map bigint (sequence 1 100)))
93326215443944152681699238856266700490715968264381621468592963895217599993229915
608941463976156518286253697920827223758251185210916864000000000000000000000000L
> (apply + (map int (explode (chop (string (apply * (map bigint (sequence 1 100))))))))
648
>

　これでおしまい。答えは 648 。
　これでは、解説しようが無い（笑）

　以上、如何でしょうか？