USING: accessors assocs combinators kernel locals math
math.ranges memoize sequences strings hashtables
math.parser grouping ;
+QUALIFIED: assocs
IN: benchmark.hashtables
MEMO: strings ( -- str )
] map drop
keys [
- hash [ 1 + ] change-at
+ hash [ 1 + ] assocs:change-at
] each ;
: string-mix ( hash -- )