Anonymous user
Entropy: Difference between revisions
m
In Free Pascal/Delphi, dynamic arrays are zero-based.
m (In Free Pascal/Delphi, dynamic arrays are zero-based.) |
|||
Line 802:
VAR u,s,p,o: CARDINAL;
BEGIN
SetLength(frequencies, Length(ustr)+1);
p := 0;
FOR u := 1 TO length(ustr) DO
| |||