Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 04:25:06 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added vector-fill!

Browse source
This commit is contained in:
Justin Ethier 2015-06-04 21:28:45 -04:00
parent 9ffeb29ec6
commit 969acc2b62
1 changed files with 26 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
scheme/base.sld
View file

@ -42,6 +42,8 @@
vector vector
vector-append vector-append
vector-copy vector-copy
;vector-copy!
vector-fill!
vector->list vector->list
vector->string vector->string
string->vector string->vector
@ -199,6 +201,30 @@
(vector-set! new-vec i (vector-ref vec i)) (vector-set! new-vec i (vector-ref vec i))
(loop (+ i 1) new-vec)))))) (loop (+ i 1) new-vec))))))
(loop start (make-vector (- end start) #f)))) (loop start (make-vector (- end start) #f))))
; TODO:
; (define (vector-copy! vec to at from . opts)
; (letrec ((len (vector-length vec))
; (start (if (> (length opts) 0) (car opts) 0))
; (end (if (> (length opts) 1) (cadr opts) len))
; (loop (lambda (i)
; (cond
; ((= i end) vec)
; (else
; (vector-set! vec i fill)
; (loop (+ i 1)))))))
; (loop start '())))
;; TODO: this len/start/end/loop pattern is common, could use a macro for it
(define (vector-fill! vec fill . opts)
(letrec ((len (vector-length vec))
(start (if (> (length opts) 0) (car opts) 0))
(end (if (> (length opts) 1) (cadr opts) len))
(loop (lambda (i)
(cond
((= i end) vec)
(else
(vector-set! vec i fill)
(loop (+ i 1)))))))
(loop start '())))
(define (boolean=? b1 b2 . bs) (define (boolean=? b1 b2 . bs)
(Cyc-obj=? boolean? b1 (cons b2 bs))) (Cyc-obj=? boolean? b1 (cons b2 bs)))