Sha256: 8ed4116fc5b2a4a6ed9bfc1380ea63bcce20770600cbdd55e0ec7d2166b0e862
Contents?: true
Size: 455 Bytes
Versions: 153
Compression:
Stored size: 455 Bytes
Contents
unit uHamming;
interface
type
THamming = class
public
class function compute(s1, s2: string): integer; static;
end;
implementation
uses System.SysUtils;
class function THamming.compute(s1, s2: string): integer;
var i: integer;
begin
if s1.Length <> s2.Length then
raise EArgumentException.Create('Arguments are not same length');
result := 0;
for i := Low(s1) to High(s1) do
result := result + ord(s1[i] <> s2[i]);
end;
end.
Version data entries
153 entries across 153 versions & 1 rubygems