steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

write a replace word and 2seq>assoc

db4
Doug Coleman 2008-03-14 12:56:36 -05:00
parent c4b5e783db
commit d6fb777e50
2 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/assocs/lib/lib.factor
View File

@ -1,4 +1,4 @@
USING: assocs kernel vectors sequences namespaces ; USING: arrays assocs kernel vectors sequences namespaces ;
IN: assocs.lib IN: assocs.lib
: >set ( seq -- hash ) : >set ( seq -- hash )
@ -35,3 +35,6 @@ IN: assocs.lib
[ with each ] curry assoc-each ; inline [ with each ] curry assoc-each ; inline
: insert ( value variable -- ) namespace insert-at ; : insert ( value variable -- ) namespace insert-at ;
: 2seq>assoc ( keys values exemplar -- assoc )
>r 2array flip r> assoc-like ;

6
extra/sequences/lib/lib.factor
View File

@ -3,7 +3,8 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: combinators.lib kernel sequences math namespaces assocs USING: combinators.lib kernel sequences math namespaces assocs
random sequences.private shuffle math.functions mirrors random sequences.private shuffle math.functions mirrors
arrays math.parser math.private sorting strings ascii macros ; arrays math.parser math.private sorting strings ascii macros
assocs.lib ;
IN: sequences.lib IN: sequences.lib
: each-withn ( seq quot n -- ) nwith each ; inline : each-withn ( seq quot n -- ) nwith each ; inline
@ -220,3 +221,6 @@ PRIVATE>
: nths ( indices seq -- seq' ) : nths ( indices seq -- seq' )
[ swap nth ] with map ; [ swap nth ] with map ;
: replace ( str oldseq newseq -- str' )
H{ } 2seq>assoc [ dupd at* [ nip ] [ drop ] if ] curry map ;