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

Fix sorting.human docs

db4
Doug Coleman 2010-09-21 11:17:39 -05:00
parent 2e72e91f92
commit 7d1fa695c2
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/sorting/human/human-docs.factor
View File

@ -6,8 +6,8 @@ IN: sorting.human
HELP: find-numbers
{ $values
{ "string" string }
{ "seq" sequence }
{ "sequence" sequence }
{ "sequence'" sequence }
}
{ $description "Splits a string on numbers and returns a sequence of sequences and integers." } ;

8
basis/sorting/human/human.factor
View File

@ -5,13 +5,13 @@ sequences sorting.functor strings unicode.case
unicode.categories unicode.collation ;
IN: sorting.human
: cut-find ( seq pred -- before after )
: cut-find ( sequence pred -- before after )
[ drop ] [ find drop ] 2bi dup [ cut ] when ; inline
: cut3 ( seq pred -- first mid last )
: cut3 ( sequence pred -- first mid last )
[ cut-find ] keep [ not ] compose cut-find ; inline
: find-sequences ( sequence pred quot -- seq )
: find-sequences ( sequence pred quot -- sequences )
'[
[
_ cut3 [
@ -21,7 +21,7 @@ IN: sorting.human
] loop drop
] { } make ; inline
: find-numbers ( seq -- newseq )
: find-numbers ( sequence -- sequence' )
[ digit? ] [ string>number ] find-sequences ;
! For comparing integers or sequences