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

Add cut-all, human-sort to sequences.lib

db4
Doug Coleman 2007-12-18 02:37:06 -06:00
parent 523ca2033b
commit d2163097f0
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,5 +1,6 @@
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 ;
USING: arrays math.parser sorting strings ;
IN: sequences.lib IN: sequences.lib
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
@ -104,3 +105,20 @@ PRIVATE>
: power-set ( seq -- subsets ) : power-set ( seq -- subsets )
2 over length exact-number-strings swap [ nths ] curry map ; 2 over length exact-number-strings swap [ nths ] curry map ;
: cut-find ( seq pred -- before after )
dupd find drop dup [ cut ] when ;
: cut3 ( seq pred -- first mid last )
[ cut-find ] keep [ not ] compose cut-find ;
: (cut-all) ( seq pred quot -- )
[ >r cut3 r> dip >r >r , r> [ , ] when* r> ] 2keep
pick [ (cut-all) ] [ 3drop ] if ;
: cut-all ( seq pred quot -- first mid last )
[ (cut-all) ] { } make ;
: human-sort ( seq -- newseq )
[ dup [ digit? ] [ string>number ] cut-all ] { } map>assoc
sort-values keys ;