Archive for 2015年3月|Monthly archive page

projecteuler20

 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 。
 これでは、解説しようが無い(笑)

 以上、如何でしょうか?

広告