range   xtlang


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/libs/base/prelude.xtm

Implementation

;; tail recursive version of range
(bind-func range:[List{!a}*,!a,!a,!a]*
  (lambda (mn mx i)
    (let ((rng (lambda (m x lst)
                 (if (< x m)
                     lst
                     (rng m (- x i) (Cons x lst))))))
      (rng mn mx (Nil)))))


Back to Index

Similar Entries

  • adrange    xtlang
  • adrange    xtlang
  • adrange    xtlang
  • limit-range    scheme
  • range    scheme
  • range    xtlang
  • range    xtlang
  • range    xtlang
  • range    xtlang
  • range    xtlang
  • range    xtlang
  • range    xtlang
  • range    xtlang
  • range-limit    scheme
  • range-limit    xtlang
  • range_limit    xtlang
  • range_limit    xtlang
  • set_range    xtlang
  • srange    xtlang