16 lines
471 B
Common Lisp
16 lines
471 B
Common Lisp
|
[let defun [mac [name args body]
|
||
|
|
[list let name nil]
|
||
|
|
[list = name [list fun args body]]]]
|
||
|
|
|
||
|
|
[defun square [x] [* x x]]
|
||
|
|
|
||
|
|
[let inc [mac [s] [list [q =] s [list [q +] s 1]]]]
|
||
|
|
|
||
|
|
[defun to-upper [str] [capture-upper [print str]]]
|
||
|
|
[defun to-lower [str] [capture-lower [print str]]]
|
||
|
|
|
||
|
|
[defun last [x] [if [cdr x] [last [cdr x]] [car x]]]
|
||
|
|
[defun del-last [x] [if [cdr [cdr x]] [del-last [cdr x]] [setcdr x nil]]]
|
||
|
|
|
||
|
|
[defun nth [a n] [if [is n 0] [car a] [nth [cdr a] [- n 1]]]]
|