입으로는 ㅈㄴ 쉽고 루프 돌리면된다고 입터는데

실제로 코드를 단 한줄도 못보여주는 개발자는 거르고 봄

못 짜거나 코드를 짜도 보여주는게 민망해서거든

정말 쉬운거 맞으면 댓글 쓰는 20초면 짜서 보여줄 수 있잖아? 이렇게

fib = 0 : 1 : zipWith (+) fib (tail fib) 


코드 잘 짜는 사람치고 코드 감추는거 한번도 못봤음

오히려 자기가 짠 코드 보여주려고 난리지


구-구-단

defun mult-table-row (min-level max-level column mult)

  (format t "|~{ ~dx~d=~2d |~}~%"

          (loop repeat column

             for level from min-level to max-level

             append `(,level ,mult ,(* level mult)))))


(defun mult-table (column)

  (loop for level from 1 to 9 by column do

       (loop for mult from 1 to 9 do

            (mult-table-row level 9 column mult))

       (princ #Newline)))