Merge pull request #74 from ikelaiah/ikelaiah-rev05

Ikelaiah rev05

Author: gcarreno

entries/ikelaiah/README.md

@@ -55,7 +55,7 @@ Run `sha256sum` on your output.
 
 ```bash
 $ sha256sum.exe ikelaiah-output.txt
-db3d79d31b50daa8c03a1e4f2025029cb137f9971aa04129d8bca004795ae524 *ikelaiah-output.txt
+683bb3d247f53bab96e98983771d66bc9d7dbfb38aa3fecac4c04b8ab29e3032 *ikelaiah-output.txt
 ```
 
 ## Help
@@ -78,7 +78,7 @@ Use `-v` to check version.
 
 ```bash
 $ ./OneBRC.exe -v
-OneBRC version 1.3
+OneBRC version 1.5
 ```
 
 ## Authors
@@ -110,7 +110,12 @@ Iwan Kelaiah
   * Replaced `TFileStream` with `TBufferedFileStream`. Now, ~1 min faster. Total time for 1BRC (Object Pascal) is now approx. 11 mins on my laptop.
   * Replaced `TDictionary` with `TGHashMapQP`. Now ~4 mins faster. Total time for 1BRC (Object Pascal) is now approx. 7 mins on my laptop.
   * Replaced `StringReplace` with a simpler function avoiding creating a new string for each replacement. This saves 15-30 seconds on my laptop. The run time now is approx. 6-8 minutes.
-  * Updated the rounding method as per the latest README.md in the 1BRC GitHub page.
+  * Updated the rounding method as per the latest `README.md` in the 1BRC GitHub page.
+
+* 1.5 
+* Revision release - Sequential approach. 6-8 mins on my Inspiron 15 7510 laptop (No improvements on speed).
+* Encapsulate process in a class.
+* Updated the rounding method as per the latest `README.md` in the 1BRC GitHub page.
 
 ## License
 

entries/ikelaiah/src/OneBRC.lpr

@@ -36,7 +36,7 @@
   WeatherStation;
 
 const
-  version = '1.4';
+  version = '1.5';
 
 type
 
@@ -57,6 +57,7 @@   TOneBRC = class(TCustomApplication)
   var
     ErrorMsg: string;
     filename: string = '';
+    weatherStation: TWeatherStation;
   begin
     // quick check parameters
     ErrorMsg := CheckOptions('hvi:', ['help', 'version', 'input:']);
@@ -92,7 +93,7 @@   TOneBRC = class(TCustomApplication)
       filename := GetOptionValue('i', 'input');
     end;
 
-    if (length(filename) < 4) then
+    if not FileExists(fileName) then
     begin
       WriteLn('Input file seems invalid.');
       WriteHelp;
@@ -102,13 +103,17 @@   TOneBRC = class(TCustomApplication)
 
     // Start the main algorithm ////////////////////////////////////////////////
     try
-      WeatherStation.ProcessTempMeasurementsV4a(filename);
+      weatherStation := TWeatherStation.Create(filename);
+      try
+        weatherStation.ProcessMeasurements;
+      finally
+        weatherStation.Free;
+      end;
     except
       on E: Exception do
         WriteLn('Error: ' + E.Message);
     end;
 
-
     // Stop program loop ///////////////////////////////////////////////////////
     Terminate;
   end;