Date: | Mon Aug 17 10:27:15 1993 | |
Subject: | Re: delete_nth | |
From: | johnw (John Williams) | |
Volume-ID: | 930817.04 |
Ok, here's my plain and simple version: define delete_nth(n, list) -> list; lvars n, list; returnif(n == 0); repeat n times dest(list) -> list endrepeat; ->; repeat n - 1 times conspair(list) -> list endrepeat enddefine; I've not used "fast_" and "fi_" procedures for clarity. John. |