mes: Add drop, drop-right.
authorJan Nieuwenhuizen <janneke@gnu.org>
Sat, 26 May 2018 18:47:33 +0000 (20:47 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Sat, 26 May 2018 18:47:33 +0000 (20:47 +0200)
* module/srfi/srfi-1.mes (drop, drop-right): New function.

module/srfi/srfi-1.mes

index 494a197e2e3202546a7ebe050cf4572fb106469d..62d470186d710df04c0bec5bae7160d560daa20a 100644 (file)
               (loop (cdr lst))
                 (cons (car lst) (loop (cdr lst))))))))
 
+(define (drop lst n)
+  (list-tail lst n))
+
+(define (drop-right lst n)
+  (list-head lst (- (length lst) n)))
+
 (include-from-path "srfi/srfi-1.scm")