Anonymous function: Difference between revisions

Revision as of 22:51, 4 March 2024

Revision as of 15:59, 19 March 2024

Line 917:

begin

var n := 10000000;

var pp := Range(1,..n)

.Select(x ->Rec (Random(), Random()))

.Where(p ->sqr Sqr(p.Item1[0]) +sqr Sqr(p.Item2[1]) < 1)

.Count / n * 4;

Print(pp);

end.