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

sequences.abbrev: small refactoring

db4
Maximilian Lupke 2009-07-20 01:40:20 +02:00
parent 8e9badd4f5
commit 52e09199e1
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/sequences/abbrev/abbrev.factor
View File

@ -6,7 +6,7 @@ IN: sequences.abbrev
<PRIVATE <PRIVATE
: prefixes ( seq -- prefixes ) : prefixes ( seq -- prefixes )
dup length [1,b] [ dupd head ] map nip ; dup length [1,b] [ head ] with map ;
: (abbrev) ( seq -- assoc ) : (abbrev) ( seq -- assoc )
[ prefixes ] keep 1array '[ _ ] H{ } map>assoc ; [ prefixes ] keep 1array '[ _ ] H{ } map>assoc ;