ゆとり受け身マンだけどプログラミング勉強する #28

28以下、名無しにかわりましてVIPがお送りします:2019/05/01(水) 14:17:39.34 ID:5pqJBtWE

(defun abcd(y)
  (if(= y 10) (print (abc y))
    (progn
      (defun abc(x)
        (if(= x (* y 10)) nil
          (cons x (abc (+ x y)))
        )
      )
      (print (abc y))
      (abcd (+ y 1))
    )
  )
)
(print (abcd 1))

このスレッドを全て表示


このスレッドは過去ログです。