add accumulator
parent
db3ac4d75f
commit
004dd0dc5e
extra/sequences/lib
|
@ -140,3 +140,6 @@ PRIVATE>
|
|||
: ?second ( seq -- second/f ) 1 swap ?nth ; inline
|
||||
: ?third ( seq -- third/f ) 2 swap ?nth ; inline
|
||||
: ?fourth ( seq -- fourth/f ) 3 swap ?nth ; inline
|
||||
|
||||
: accumulator ( quot -- quot vec )
|
||||
V{ } clone [ [ push ] curry compose ] keep ;
|
||||
|
|
Loading…
Reference in New Issue