fixes & updates
added uniq function task.json doc updates
This commit is contained in:
@@ -85,8 +85,21 @@
|
||||
(defun make-list (size)
|
||||
(make-list-of size nil))
|
||||
|
||||
(defun uniq (lst)
|
||||
(do
|
||||
(define rslt '())
|
||||
(define i 0)
|
||||
(define lst_len (len lst))
|
||||
(while (< i lst_len)
|
||||
(define e (index lst i))
|
||||
(if (not (member rslt e))
|
||||
(define rslt (push rslt e)))
|
||||
|
||||
(define i (inc i)))
|
||||
|
||||
rslt
|
||||
))
|
||||
|
||||
; quicksort
|
||||
(defun quick-sort-by (l cmp)
|
||||
(if (<= (len l) 1)
|
||||
l
|
||||
|
||||
Reference in New Issue
Block a user