秋高气爽。

    烟云高悬于蔚蓝天际，暖暖的秋日下花草树木一片热烈色彩，成熟的味道混合了微风淡淡阵阵，而窗外的大榆树又搅动的日光斑驳，搞的人心迷动，真是一个午睡的好时候啊！

    “张草，你上来回答这个问题！”

    讲台上的王老师看着一个个迷迷瞪瞪的小脸蛋有些无奈，只得喊起了她最喜欢的一个学生，因为喊别人也没用。

    听到老师喊自己，坐在倒数第二排的张草“唰”的一下站了起来，双手往后一背。

    “排列是指从个元素中取出n个元素，n小于或等于，组成一列，共计乘以括号减1乘以括号减2个。”

    “很好！”，王老师赞许的点点头，沉吟了一下，又问：“嗯，那么你有没有办法实现这个算法？你明白我的意思么？”

    “老师，我明白。”张草说。

    “那么，你给同学们说一下吧。”

    “嗯，这个问题与摩托车的里程计类似，所以可以通过模拟里程计实现，具体就是，将这个个元素作为一个列表，然后复制个这样的列表，然后通过对它们的索引操作就可以实现。”

    “很好，你上来，写在黑板上吧！”

    “额，这个这个”，张草脸色变了，似乎有些害怕。

    见状，王老师笑眯眯的鼓励道：“嗨，大胆一点嘛，我相信你。”

    “不是的，额，额，我说的这个不是我可以写的那个”，张草犹犹豫豫的说道。

    “嗯？”

    “因为那个算法我说不清楚，所以就说了这个”，张草低着脑袋回道。

    “你上来写写我看看再说吧。”

    闻听此言，张草便把屁股后的板凳往后一踢，就要举步往讲台上走，却只听得身后“哎吆”，接着是一阵课桌板凳的稀里哗啦声，他忙往回看，只见自己的漂亮女同桌正一屁股坐在地上呢。

    他看看地上的同桌，又看看讲台上的老师，见老师啥也没说，他便又放心大胆的往前走去。

    来到讲台上，找一没有字的板块，然后捏起一根粉笔，张草开始写。

    (defun pailie (lst)

    (let((bx (nreverse (apcar 'length lst)))

    (bx一len (length bx))

    (bc (ake一list bx一len :itial一elent 0))

    (bn (ake一list bx一len :itial一elent nil))

    (lst1 (nreverse (py一tree lst)))

    (nu 0)

    (fn1 '(bda (nu)

    (d一tis (c bx一len bc)

    (ultiple一vae一bd (b1 b2)(fl一一r nu (nth c bx))

    (if (zer一p b1)

    (pr一gn (setf (nth c bc) b2)(fill bc 0 :start (1 c))(retu bc))

    (pr一gn (setf (nth c bc) b2)(setf nu b1)))))))

    (fn2 '(bda ()

    (d一tis (c bx一len bn)

    (setf (nth (一 bx一len 1 c) bn)(nth (nth c bc)(nth c lst1))))))

    (fn3 '(bda (nu)(funcall fn1 n

『加入书签，方便阅读』