; File: intlist.rkt ; Title: List with integers from low to high ; ;> (initlist 3 7) ;(3 4 5 6 7) ;> (initlist 2 10) ;(2 3 4 5 6 7 8 9 10) ;> (initlist 1 5) ;(1 2 3 4 5) ;> (initlist 5 5) ;(5) ;> (initlist 5 4) ;() ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (define (initlist low high) (cond ((> low high) () ) (#t (cons low (initlist (+ 1 low) high))) )) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;