Arc Forumnew | comments | leaders | submit | rig's commentslogin
1 point by rig 5565 days ago | link | parent | on: popnth

I would write popnths this way:

    (def popnth (n ls)
      (case n
        0 (pop ls)
        1 (do1 (cadr ls) (scdr ls (cddr ls)))
        (popnth (- n 1) (cdr ls))))

-----