From 63fd991e58228643ac975c07d51ff3030eea257e Mon Sep 17 00:00:00 2001 From: Jonathan Chan Date: Fri, 10 Dec 2021 22:24:45 -0800 Subject: [PATCH] Implement range* as in-inclusive-range. --- lib.rkt | 10 ++-------- 1 file changed, 2 insertions(+), 8 deletions(-) diff --git a/lib.rkt b/lib.rkt index 8280a40..8be0596 100644 --- a/lib.rkt +++ b/lib.rkt @@ -194,14 +194,8 @@ (define (snoc lst v) (append lst (list v))) -;; range* : number? -> (listof number?) -;; range* : number? -> number? -> [number?] -> (listof number?) -;; Like range, but with an inclusive right end -(define-syntax range* - (syntax-rules () - [(_ n) (range (add1 n))] - [(_ from to) (range from (add1 to))] - [(_ from to step) (range from (add1 to) step)])) +;; range* : number? -> number? -> [number?] -> (streamof number?) +(define range* in-inclusive-range) ;; scanl : (a -> a -> a) -> (listof a) -> (listof a) ;; foldl that accumulates partial results in a list