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

Cleanup

db4
Slava Pestov 2008-05-22 17:28:15 -05:00
parent 9061a0a18c
commit 17f6513602
1 changed files with 5 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
extra/strings/lib/lib.factor
View File

@ -1,10 +1,7 @@
USING: math arrays sequences kernel random splitting strings unicode.case ; USING: math math.ranges arrays sequences kernel random splitting
strings unicode.case ;
IN: strings.lib IN: strings.lib
: char>digit ( c -- i ) 48 - ;
: string>digits ( s -- seq ) [ char>digit ] { } map-as ;
: >Upper ( str -- str ) : >Upper ( str -- str )
dup empty? [ dup empty? [
unclip ch>upper 1string prepend unclip ch>upper 1string prepend
@ -14,13 +11,13 @@ IN: strings.lib
"-" split [ >Upper ] map "-" join ; "-" split [ >Upper ] map "-" join ;
: lower-alpha-chars ( -- seq ) : lower-alpha-chars ( -- seq )
26 [ CHAR: a + ] map ; CHAR: a CHAR: z [a,b] ;
: upper-alpha-chars ( -- seq ) : upper-alpha-chars ( -- seq )
26 [ CHAR: A + ] map ; CHAR: A CHAR: Z [a,b] ;
: numeric-chars ( -- seq ) : numeric-chars ( -- seq )
10 [ CHAR: 0 + ] map ; CHAR: 0 CHAR: 9 [a,b] ;
: alpha-chars ( -- seq ) : alpha-chars ( -- seq )
lower-alpha-chars upper-alpha-chars append ; lower-alpha-chars upper-alpha-chars append ;