function hash( st : string ): longint;
  var i, h, g : longint;
  begin
    h := 0;
   for i := 1 to length(st) do  // 这个是不是可以用 len = length(s);代替呢
      begin
      h := h shl 4 + ord( st[i] );
      g := h and ($f0000000);
      if g>0 then h := h xor( g shr 24 );
      h := h and (not g);
      end;
    h := h mod m;
    hash := h;
    {h := 0;
    for i := 1 to length(st) do
      h := (h*256 + ord( st[i] )) mod m;}
  end;

• 还是TLE...但是您能帮忙看程序。。已经很感谢您了 (0) fujieyun 2005-08-23 19:04:13
  • 我不懂pascal，不过建议你把每个字符串的长度存好，不要用一次算一次 (0) sunmoonstar_love 2005-08-23 19:15:47
    • 可是我每个字符串也只算了一次。。。。。 (0) fujieyun 2005-08-23 19:26:23
      • 这题好像有个空输入文件?这个会不会死循环? (0) ArXoR 2005-08-23 19:34:26
        • 空输入是0s出possible.... (0) fujieyun 2005-08-23 20:09:17
        • 居然会有空输入..... (0) FinalLaugh 2005-08-31 23:11:59