pascal

[cleberlr]

Could I offer a Pascal version of this code? Using FreePascal 3.3 compiler is almost as fast than C version.

---

{$mode delphi} program leibniz;

uses Windows, Messages, SysUtils, Classes, DateUtils;

var file_contents: String; t0,t2: Int64; i,rounds: Integer; input_file: TextFile; x,pi: Double; Frequency: int64;

begin // Read the file into a string QueryPerformanceFrequency(Frequency); AssignFile(input_file,'rounds.txt'); Reset(input_file); Readln(input_file, file_contents); CloseFile(input_file);

rounds := StrToInt(file_contents); // convert into an Integer QueryPerformanceCounter(t0);

x := 1.0; pi := 1.0;

for i := 2 to rounds + 1 do begin x:= x -1; pi:= pi + (x / (2.0 i - 1.0)); end;

pi:= pi * 4;

QueryPerformanceCounter(t2); Writeln(Format('%.16f',[pi])); Writeln('time: '+Format('%.3f',[1000*(t2-t0)/Frequency])+' msec'); end.

---

If you want test a binary (that not use rounds.txt, only a fix value, 1000000), I uploaded an optimized binary in https://pixeldrain.com/u/jMFWXYIO I ran some tests using the fastest binary that I could compile for my machine (Ryzen 7 1700).. C -> 0.141ms C++ -> 0.141ms pascal -> 0.157ms python -> 378.7ms

[niklas-heer]

@cleberlr very interesting results thank you for sharing👍 If you open up a pull-request I will gladly expect it, but right now I'm not actively working on this project.