fixes & updates

added uniq function
task.json
doc updates
This commit is contained in:
2021-03-06 19:05:37 +01:00
parent 903c8fd49d
commit eed18e0f90
7 changed files with 66 additions and 41 deletions

View File

@@ -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