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

add array-map and array-for-each

This commit is contained in:
Yuichi Nishiwaki 2014-07-15 22:45:04 +09:00
parent 318475c14b
commit 632529c9a5
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
piclib/picrin/array.scm
View File

@ -81,6 +81,12 @@
(define (array . objs) (define (array . objs)
(list->array objs)) (list->array objs))
(define (array-map proc ary)
(list->array (map proc (array->list ary))))
(define (array-for-each proc ary)
(for-each proc (array->list ary)))
(export make-array (export make-array
array array
array? array?
@ -91,5 +97,7 @@
array-pop! array-pop!
array-shift! array-shift!
array-unshift! array-unshift!
array-map
array-for-each
array->list array->list
list->array)) list->array))