factor/extra/strings/lib/lib.factor

USING: math arrays sequences kernel splitting strings ;
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 swap append
!     ] unless ;

! : >Upper-dashes ( str -- str )
!     "-" split [ >Upper ] map "-" join ;