Overview
| Comment: | smaz-tools: fix computation of the first score in Worst_Index |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
18a2c1690b872c0086430a397f3a9d7f |
| User & Date: | nat on 2016-11-20 20:20:27 |
| Other Links: | manifest | tags |
Context
|
2016-11-21
| ||
| 20:40 | tools/smaz: fix direct dictionaries ignoring variable-length config check-in: b141a142f0 user: nat tags: trunk | |
|
2016-11-20
| ||
| 20:20 | smaz-tools: fix computation of the first score in Worst_Index check-in: 18a2c1690b user: nat tags: trunk | |
|
2016-11-19
| ||
| 21:35 | smaz-tools: refactor scoring in To_Scored_Word check-in: 25e91595e4 user: nat tags: trunk | |
Changes
Modified src/natools-smaz-tools.adb from [b14093a8af] to [c3782681ba].
| ︙ | ︙ | |||
851 852 853 854 855 856 857 |
function Worst_Index
(Dict : in Dictionary;
Counts : in Dictionary_Counts;
Method : in Methods.Enum)
return Ada.Streams.Stream_Element
is
Result : Ada.Streams.Stream_Element := 0;
| | | 851 852 853 854 855 856 857 858 859 860 861 862 863 864 865 |
function Worst_Index
(Dict : in Dictionary;
Counts : in Dictionary_Counts;
Method : in Methods.Enum)
return Ada.Streams.Stream_Element
is
Result : Ada.Streams.Stream_Element := 0;
Worst_Score : Score_Value := Score (Dict, Counts, 0, Method);
S : Score_Value;
begin
for I in 1 .. Dict.Dict_Last loop
S := Score (Dict, Counts, I, Method);
if S < Worst_Score then
Result := I;
|
| ︙ | ︙ |