Problem 5

Project Euler 
(require 'cl)

(defun make-1-to-n-list (n)
  (loop for i from 1 to n collect i))

(princ (apply #'lcm (make-1-to-n-list (string-to-number (car argv)))))
(princ "\n")

追記

  • make-1-to-n-list を定義しなくても, emacs の標準関数により汎用的な関数 number-

sequence というものがあることを後で知った.

(number-sequence 1 10)  ;=>  (1 2 3 4 5 6 7 8 9 10)

参考サイト