*** empty log message ***

original commit: 2ba12c3e85ed45d45ac8ceaea50af899c841e76b
tokens
Scott Owens 20 years ago
parent 7af68362b3
commit a70c571026

@ -170,8 +170,10 @@
(vector->list x)))) (vector->list x))))
(vector->list table)) (vector->list table))
(length (hash-table-map ht cons))))) (length (hash-table-map ht cons)))))
(printf "size: ~aKB~n" (/ (* 4.0 (+ 2 num-states (* 2 num-vectors) num-entries (printf "~a states, ~aKB~n"
(* 5 num-different-entries))) 1024))) num-states
(/ (* 4.0 (+ 2 num-states (* 2 num-vectors) num-entries
(* 5 num-different-entries))) 1024)))
(values table (dfa-start-state dfa) (dfa->actions dfa) (dfa->no-look dfa) (values table (dfa-start-state dfa) (dfa->actions dfa) (dfa->no-look dfa)
(unbox disappeared-uses)))) (unbox disappeared-uses))))
) )

Loading…
Cancel
Save