conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fixed trivial bugs

This commit is contained in:
stibear 2014-02-11 22:53:51 +09:00
parent 88706bddad
commit 95561ba3e8
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
piclib/srfi/1.scm
View File

@ -244,7 +244,7 @@
(map third list) (map third list)
(map fourth list))) (map fourth list)))
(define (unzip3 list) (define (unzip5 list)
(values (map first list) (values (map first list)
(map second list) (map second list)
(map third list) (map third list)
@ -260,7 +260,8 @@
(export length length+ (export length length+
append append! concatenate concatenate! append append! concatenate concatenate!
reverse reverse! append-reverse append-reverse! reverse reverse! append-reverse append-reverse!
zip unzip1 unzip2 unzip3 unzip4 unzip5) zip unzip1 unzip2 unzip3 unzip4 unzip5
count)
;; # Fold, unfold & map ;; # Fold, unfold & map
;; map for-each ;; map for-each
@ -355,6 +356,7 @@
(define (append-map! f . clists) (define (append-map! f . clists)
(apply append! (apply map f clists))) (apply append! (apply map f clists)))
;; means for inter-referential definition
(define pair-for-each #f) (define pair-for-each #f)
(define (map! f list . lists) (define (map! f list . lists)
@ -365,8 +367,8 @@
(let ((head (map car lists)) (let ((head (map car lists))
(rest (map cdr lists))) (rest (map cdr lists)))
(set-car! list (apply f (car list) head)) (set-car! list (apply f (car list) head))
(rec (cdr list) tail))))) (rec (cdr list) rest)))))
list1) list)
(define (map-in-order f clist . clists) (define (map-in-order f clist . clists)
(if (null? clists) (if (null? clists)
@ -444,7 +446,7 @@
(remove! pred list))) (remove! pred list)))
(define (remove! pred list) (define (remove! pred list)
(filter! (lambda (x) (net (pred x))) list)) (filter! (lambda (x) (not (pred x))) list))
(export filter partition remove (export filter partition remove
filter! partition! remove!) filter! partition! remove!)
@ -505,7 +507,7 @@
(define (span! pred clist) (define (span! pred clist)
(values (take-while! pred clist) (values (take-while! pred clist)
(drop-while! pred clist))) (drop-while pred clist)))
(define (break pred clist) (define (break pred clist)
(values (take-while (lambda (x) (not (pred x))) clist) (values (take-while (lambda (x) (not (pred x))) clist)
@ -513,7 +515,7 @@
(define (break! pred clist) (define (break! pred clist)
(values (take-while! (lambda (x) (not (pred x))) clist) (values (take-while! (lambda (x) (not (pred x))) clist)
(drop-while! (lambda (x) (not (pred x))) clist))) (drop-while (lambda (x) (not (pred x))) clist)))
(define (any pred clist . clists) (define (any pred clist . clists)
(if (null? clists) (if (null? clists)