take functions added

stdlib/stdlib.lsp

@@ -60,7 +60,7 @@
 (defun tenth (l) (index l 9))
 (defun nth (i l) (index l (- i 1)))
 
-; return 1 when list contains item otherwise 0
+; return 1 when list contains item otherwise nil
 (defun member (lst itm) 
     (do
         ; TODO check if is empty list
@@ -74,7 +74,6 @@
                 (set! i (+ i 1))
                 ))
 
-        ; TODO when nil will be implemented itm / nil
         (if (!= -1 found_index)
             #t
             nil)
@@ -122,6 +121,11 @@
             ))
         rslt
     ))
+
+(defun take (lst n)
+	(if (> (len lst) n)
+		(map (lambda (i) (index lst i)) (range 0 n))
+		lst))
     
 (defun quick-sort-by (l cmp)
     (if (<= (len l) 1)