9 lines
144 B
Text
9 lines
144 B
Text
|
(defun identity
|
||
|
|
((`(,m ,n))
|
||
|
|
(identity m n))
|
||
|
|
((m)
|
||
|
|
(identity m m)))
|
||
|
|
|
||
|
|
(defun identity (m n)
|
||
|
|
(lists:duplicate m (lists:duplicate n 1)))
|