tcl
#91 bytes, 6508 collisions
91 bytes, 6502 collisions
proc H s {lmap c [split $s ""] {incr h [expr [scan $c %c]*875**[incr i]]};expr $h&0xFFFFFF}
Computer is still performing a search to evaluate if there is a value that causes less collisions than the 147 875 base, which is still the recordist.
