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

base32: faster inverse operation.

clean-macosx-x86-32
John Benediktsson 2019-04-02 17:26:50 -07:00
parent e2b689a636
commit 338b739f30
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
extra/base32/base32.factor
View File

@ -1,15 +1,16 @@
! Copyright (C) 2019 John Benediktsson ! Copyright (C) 2019 John Benediktsson
! See http://factorcode.org/license.txt for BSD license ! See http://factorcode.org/license.txt for BSD license
USING: ascii assocs kernel literals math sequences ; USING: ascii assocs byte-arrays kernel literals math sequences ;
IN: base32 IN: base32
<PRIVATE <PRIVATE
<< <<
CONSTANT: ALPHABET "0123456789ABCDEFGHJKMNPQRSTVWXYZ" CONSTANT: ALPHABET $[ "0123456789ABCDEFGHJKMNPQRSTVWXYZ" >byte-array ]
>> >>
CONSTANT: INVERSE $[ 256 [ ALPHABET index 0xff or ] B{ } map-integers ]
CONSTANT: CHECKSUM $[ ALPHABET "*~$=U" append ] CONSTANT: CHECKSUM $[ ALPHABET "*~$=U" append ]
: normalize-base32 ( seq -- seq' ) : normalize-base32 ( seq -- seq' )
@ -20,7 +21,7 @@ CONSTANT: CHECKSUM $[ ALPHABET "*~$=U" append ]
} substitute ; } substitute ;
: parse-base32 ( seq -- base32 ) : parse-base32 ( seq -- base32 )
0 swap [ [ 32 * ] [ ALPHABET index + ] bi* ] each ; 0 swap [ [ 32 * ] [ INVERSE nth + ] bi* ] each ;
PRIVATE> PRIVATE>