2009-12-04から1日間の記事一覧

Project Euler Problem 29

問題29: 2[=>問題文] 問題29の解答 (list + delete-dups) ;; Emacs Lisp (require 'cl) (require 'bigint) ;integer-to-bigint, bigint* (defun problem029a (limit) (length (delete-dups (do ((a 2 (1+ a)) (lis)) ((> a limit) lis) (let ((n (integer-to…