Merge branch 'main' of https://github.com/georges-hatem/1brc-ObjectPascal

Author: georges-hatem

entries/ikelaiah/README.md

@@ -136,6 +136,11 @@ Iwan Kelaiah
   * Use `ShortString` whenever possible. This saves approx 20 seconds.
   * Pre-allocate initial size for dictionaries. saves approx 20 seconds.
 
+* 1.10
+  * Revision release - Sequential approach. 3-5 mins on my Inspiron 15 7510 laptop, around 2m55s (a little improvement on speed).
+  * Reduced buffer for `TStreamReader` to `65536 * 2`. This saves approx 5 seconds.
+  * Changed hashmap from `TGHashMapLP` (linear probing) to `TGHashMapQP` (quadratic probing). This saves approx 5 seconds.
+
 ## License
 
 This project is licensed under the MIT License - see the LICENSE.md file for details

entries/ikelaiah/src/weatherstation.pas

@@ -35,11 +35,11 @@   TStat = record
 
 type
   // Using this dictionary, now approx 4 mins faster than Generics.Collections.TDictionary
-  TWeatherDictionaryLG = specialize TGHashMapLP<ShortString, PStat>;
+  TWeatherDictionaryLG = specialize TGHashMapQP<ShortString, PStat>;
 
 type
   // a type for storing valid lookup temperature
-  TValidTemperatureDictionary = specialize TGHashMapLP<ShortString, int64>;
+  TValidTemperatureDictionary = specialize TGHashMapQP<ShortString, int64>;
 
 type
   // Create a class to encapsulate the temperature observations of each weather station.
@@ -322,7 +322,7 @@ procedure TWeatherStation.ReadMeasurements;
   // Open the file for reading
   fileStream := TFileStream.Create(self.fname, fmOpenRead);
   try
-    streamReader := TStreamReader.Create(fileStream, 65536 * 32, False);
+    streamReader := TStreamReader.Create(fileStream, 65536 * 2, False);
     try
       // Read and parse chunks of data until EOF -------------------------------
       while not streamReader.EOF do