40 lines
898 B
Factor
40 lines
898 B
Factor
USING: math arrays sequences kernel random splitting strings unicode.case ;
|
|
IN: strings.lib
|
|
|
|
: char>digit ( c -- i ) 48 - ;
|
|
|
|
: string>digits ( s -- seq ) [ char>digit ] { } map-as ;
|
|
|
|
: >Upper ( str -- str )
|
|
dup empty? [
|
|
unclip ch>upper 1string prepend
|
|
] unless ;
|
|
|
|
: >Upper-dashes ( str -- str )
|
|
"-" split [ >Upper ] map "-" join ;
|
|
|
|
: lower-alpha-chars ( -- seq )
|
|
26 [ CHAR: a + ] map ;
|
|
|
|
: upper-alpha-chars ( -- seq )
|
|
26 [ CHAR: A + ] map ;
|
|
|
|
: numeric-chars ( -- seq )
|
|
10 [ CHAR: 0 + ] map ;
|
|
|
|
: alpha-chars ( -- seq )
|
|
lower-alpha-chars upper-alpha-chars append ;
|
|
|
|
: alphanumeric-chars ( -- seq )
|
|
alpha-chars numeric-chars append ;
|
|
|
|
: random-alpha-char ( -- ch )
|
|
alpha-chars random ;
|
|
|
|
: random-alphanumeric-char ( -- ch )
|
|
alphanumeric-chars random ;
|
|
|
|
: random-alphanumeric-string ( length -- str )
|
|
[ drop random-alphanumeric-char ] map "" like ;
|
|
|