1から入力1
までの整数の各桁の和が入力2
以上入力3
である数の合計を求めるプログラムを書いています。
そのために、関数split-by-digit
を作りましたが実際にloop
で1から入力1
までの回数繰り返し処理を行おうとすると、split-by-digit
の引数がBit
型でReal
ではないと怒られます。
loop
を整数で繰り返すまたはBit
型をInteger
型にキャストするにはどうしたら良いでしょうか?
以下が実際に書いたプログラムになります。
;; 数字列を分割
;; 数字列を分割
(defun split-by-space (string)
(loop for i = 0 then (1+ j)
as j = (position #\Space string :start i)
collect (read-from-string (subseq string i j))
while j))
;; 桁が2桁の場合10の位と1の位を合計
(defun split-by-digit (number)
(format t "~a~%" (type-of number))
(if (< number 10)
number
(let* ((tenth (ceiling (floor number 10)))
(oneth (mod number 10)))
(+ tenth oneth))))
;; 入力を分割
(defparameter args (split-by-space (read-line *standard-input* nil nil)))
(defparameter maximum (car args))
(defparameter begin-from (cadr args))
(defparameter end-to (caddr args))
(defparameter summation 0)
;; maximum まで繰り返し
(loop for i real from 1 to maximum
with val = 0
do (setq val (split-by-digit i))
(if (and (<= begin-from val) (>= end-to val))
(setq summation (+ summation i))))
(format t "~a~%" summation)
実行し、入力を与えると
Unhandled TYPE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING
{7005540003}>:
The value
NUMBER
is not of type
REAL
というエラーが出ます
(if (< number 10) 'number ...
となっている部分ですが、'number
は symbol になります。これはどの様な意図なのでしょうか? また、loop 部分の閉じ括弧が一つ多いです。format
を最後に持ってきたときのミスだと思います。 'numberはnumberに束縛されている値を返したいですnumber
でよいかと思います。また、また、(and (>= begin-from val) (<= end-to val))
は逆で、(and (<= begin-from val) (>= end-to val))
だろうかと思います。12 4 8
を入力すると30
が返ります。これは想定通りの結果でしょうか?