Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-20 06:09:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Reducing floating point errors in iota.

Browse source
This commit is contained in:
Alex Shinn 2012-01-04 15:11:12 +09:00
parent a81004672d
commit 944561b4da
1 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lib/srfi/1/constructors.scm
View file

@ -1,5 +1,5 @@
;; constructors.scm -- list construction utilities
;; Copyright (c) 2009 Alex Shinn. All rights reserved.
;; Copyright (c) 2009-2012 Alex Shinn. All rights reserved.
;; BSD-style license: http://synthcode.com/license.txt
(define (xcons a b) (cons b a))
@ -29,8 +29,7 @@
(define (iota count . o)
(let ((start (if (pair? o) (car o) 0))
(step (if (and (pair? o) (pair? (cdr o))) (cadr o) 1)))
(let lp ((i count) (n (+ start (* (- count 1) step))) (res '()))
(let lp ((i count) (res '()))
(if (<= i 0)
res
(lp (- i 1) (- n step) (cons n res))))))
(lp (- i 1) (cons (+ start (* (- i 1) step)) res))))))