diff options
| -rw-r--r-- | module/util.scm | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/module/util.scm b/module/util.scm index 8cc0e032..00af7258 100644 --- a/module/util.scm +++ b/module/util.scm @@ -439,6 +439,19 @@ (cons (car rem) (loop (not flipflop) (cdr rem))) )))) +;; @example +;; (insert-ordered 5 (iota 10)) +;; ⇒ (0 1 2 3 4 5 5 6 7 8 9) +;; @end example +(define*-public (insert-ordered item collection optional: (< <)) + (cond [(null? collection) + (list item)] + [(< item (car collection)) + (cons item collection)] + [else + (cons (car collection) + (insert-ordered item (cdr collection) <))])) + (define-syntax -> |