IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

[utilities] compact sort-and-delete-duplicates

Browse Source 
This is still readable IMHO. kons is the result constructor, and adds
item to result iff different from previous add.
This commit is contained in:
Christopher Lam 2019-09-10 00:34:25 +08:00
parent ff8c5725cd
commit 70cb3a0b97
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
libgnucash/scm/utilities.scm
View File

@ -188,12 +188,8 @@
;; uses quicksort internally. ;; uses quicksort internally.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define* (sort-and-delete-duplicates lst < #:optional (= =)) (define* (sort-and-delete-duplicates lst < #:optional (= =))
(let lp ((lst (sort lst <)) (result '())) (define (kons a b) (if (and (pair? b) (= a (car b))) b (cons a b)))
(cond (reverse (fold kons '() (sort lst <))))
((null? lst) '())
((null? (cdr lst)) (reverse (cons (car lst) result)))
((= (car lst) (cadr lst)) (lp (cdr lst) result))
(else (lp (cdr lst) (cons (car lst) result))))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;