- プログラミングのお題スレ Part4
554 ：デフォルトの名無しさん[sage]：2014/07/23(水) 17:47:02.49 ID:DKcKEmnV - >>549 Common Lisp
(defparameter *input*
"145327698
839654127
672918543
496185372
218473956
753296481
367542819
984761235
521839764
")
(format t "~{~D~}~%"
(loop with c = #\1
with r = (make-list 9)
with s = (remove #\Newline *input*)
for i = (position c s) then (position c s :start (1+ i))
while i do (setf (elt r (mod i 9)) (floor i 9))
finally (return (mapcar #'1+ r))))
|
|