（德芬·卡恩斯（I l）；表頭，保留表L前面的I-1元素，函數返回新表。
（如果= i（長度l））
l
程序
（設置l（反向l）
I（-（長度l）I 1）
l（cdr nth I l）
)
（反向l型）
)
)
)
（defun cdrnth（I l）；表結束，表L後面的I元素被刪除，函數返回到新表。
（重復（1+I）（setq l（cdr l）））
)
（德芬·德爾恩斯（I l）；刪除表L中的第I個元素，函數返回壹個新表。
（append（carnth I l）（cdrnth I l））
)
（defun min 2 max（l/LP a I k）；表格中的數字按從小到大排序。
（while（& gt；（長度l）0）
（setq LP（cons（setq a（apply‘max l））LP））
（設置i 0
k t
)
（而k
如果的話
（setq knil
l（delnth I l）
)
（setq I（1+I））
)
)
)
線性規劃(Linear Programming)
)
程序運行和結果:
命令:（min 2 max‘（1 2 5 4 3））
函數返回值:（1 2 3 4 5）