lispの練習のため、AtCoderを始めましたが、while
の使い方が良くわかりません。
rubyで言うところの下記の様なコードを書きたいのですが、どうしたら良いのでしょうか?
#!/usr/bin/ruby
divided = -1
odd = false
input = gets
input = gets
numbers = input.chomp.split(" ")
numbers = numbers.map { |x| x.to_i }
while (odd != true)
numbers.each { |x|
if x % 2 != 0 then
odd = true
end
}
numbers = numbers.map { |x| x / 2 }
divied += 1
end
printf("%d\n", divided)
入力を数値のリストにするところまでは出来ていて、こんな感じです。
; 引数をリストに変換
(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))
(defun half (number) (/ number 2))
; 1行読み捨て
(read)
; n個の整数を読む
(defparameter args (read-line *standard-input* nil nil))
; n個の整数をリストに
(defparameter numbers (split-by-space args))
(defparameter divided 0)
;;