diff options
| -rw-r--r-- | lib.functions.lisp | 4 | ||||
| -rw-r--r-- | packages.lisp | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/lib.functions.lisp b/lib.functions.lisp index 30c1e64..8eb2304 100644 --- a/lib.functions.lisp +++ b/lib.functions.lisp @@ -32,3 +32,7 @@ each member is STEP distance apart." (fn take (n lst) (-> (fixnum list) list) (subseq lst 0 n)) + +(fn split (n lst) (-> (fixnum list) list) + (cons (take n lst) + (subseq lst n))) diff --git a/packages.lisp b/packages.lisp index 58c848e..72d4dc5 100644 --- a/packages.lisp +++ b/packages.lisp @@ -29,7 +29,7 @@ (:use :cl :lib.macros) (:export :parse-integer* - :range :take)) + :range :take :split)) (defpackage main (:use :cl :lib.macros) |