12 lines
375 B
Text
12 lines
375 B
Text
func Code(Str); \Return a simple, perfect hash code for the Keys used here
|
|
char Str;
|
|
return Str(2) & 7;
|
|
|
|
int Keys, Values, I, Hash(8);
|
|
[Keys:= ["first", "second", "third", "fourth", "fifth", "sixth"];
|
|
Values:= [1, 2, 3, 4, 5, 6];
|
|
for I:= 0 to 6-1 do
|
|
Hash(Code(Keys(I))):= Values(I);
|
|
IntOut(0, Hash(Code("second"))); CrLf(0);
|
|
IntOut(0, Hash(Code("sixth"))); CrLf(0);
|
|
]
|