プログラミングのお題スレ Part13

プログラミングのお題スレ Part13at TECH

プログラミングのお題スレ Part13 - 暇つぶし2ch671:デフォルトの名無しさん
19/03/13 22:22:09.99 H95Q/dPG.net
こうかな？
;; Common Lisp
(defun seq-sq-list (n)
　　　　　 (labels ((sub (i r)
　　　　　　　　　　　(if (zerop i)
　　　　　　　　　　　　　r
　　　　　　　　　　　　　(sub (1- i) (if (zerop (mod i n))
　　　　　　　　　　　　　　　　　　　　　(cons (list i) r)
　　　　　　　　　　　　　　　　　　　　　(cons (cons i (car r)) (cdr r)))))))
　　　　　　 (sub (* n n) nil)))

次ページ

続きを表示

1を表示