|
| From: | Simon Albrecht |
| Subject: | Re: Scheme question: convert a range |
| Date: | Mon, 16 Nov 2015 22:22:37 +0100 |
| User-agent: | Mozilla/5.0 (X11; Linux x86_64; rv:38.0) Gecko/20100101 Thunderbird/38.3.0 |
On 16.11.2015 22:20, Thomas Morley wrote:
(define (foo pair)
(if (and (integer? (car pair)) (integer? (cdr pair)))
(iota (1+ (interval-length pair)) (car pair) 1))
#f)
(foo '(3 . 7))
--> (3 4 5 6 7)
An equally good solution. Thank you, Simon
| [Prev in Thread] | Current Thread | [Next in Thread] |