[LUGOS-PROG] bijektivna preslikava iz stringa v int

[Uroš Gaber]

Najlazje da ga izracunas na podlagi ASCII kod iz stringa:
 
v pascalu:
 
function genKey(key: string): integer;
var keyc: integer;
begin
  for i:=1 to length(key) do
    keyc:=keyc+ord(key[i]);
  genKey:=keyc;
end;

Lep pozdrav!

Uroš Gaber
 <http://www.powercom-si.com/> PowerCom Gaber & Globočnik d.n.o.
Kersnikova 6, 1234 Mengeš, Slovenia
P.E.: Cesta talcev 19b, 1230 Domžale, Slovenia
Mobile: +386 (0)40 848-001
Fax: +386 (0)40 848-026
Phone office: +386 (0)1 724-84-26
Fax office: +386 (0)1 724-84-27
eMail:  <mailto:uros at powercom-si.com> uros at powercom-si.com
-----Original Message-----
From: Simon Mavsar [mailto:simon.mavsar at hermes.si] 
Sent: Wednesday, January 09, 2002 3:30 PM
To: 'lugos-prog at lugos.si'
Subject: [LUGOS-PROG] bijektivna preslikava iz stringa v int


Zivjo,
 
Ima kdo kaksno idejo za generiranje kljuca tipa integer iz stringa?
Preslikava mora biti bijektivna. (dva razlicna stringa ne smeta dati
istega kljuca).
 
Primer:     (char *) string -- > (long int ) key
 
Lp,
Simon
 
 
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://liste2.lugos.si/pipermail/lugos-prog/attachments/20020109/a7cf3fde/attachment-0001.htm