3.10.0

Configuration/GlobalAssemblyInfo.cs

@@ -13,9 +13,9 @@ using System.Runtime.CompilerServices;
 internal static class RevisionClass
 {
 	public const string Major = "3";
-	public const string Minor = "9";
+	public const string Minor = "10";
 	public const string Build = "0";
-	public const string Revision = "3531";
+	public const string Revision = "3533";
 
         public const string MainVersion = Major + "." + Minor;
 	public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision;

Configuration/Version.defs

@@ -1,4 +1,4 @@
-%MINOR%=9
-%REVISION%=3531
+%MINOR%=10
+%REVISION%=3533
 %COREVERSION%=0
 %MAJOR%=3

InstallerSamples/WhatsNew/3_10_0/DrawPoints.pas

@@ -0,0 +1,11 @@
+uses Turtle;
+
+begin
+  Window.Title := 'DrawPoints';
+  var n := 1000;
+  var d := 10;
+  var a := ArrRandomReal(n,-d,d);
+  DrawPoints(a[::2],a[1::2]);
+  a := ArrRandomReal(n,-d,d);
+  DrawPoints(a[::2],a[1::2]);
+end.

InstallerSamples/WhatsNew/3_10_0/TurtleNew.pas

@@ -0,0 +1,28 @@
+uses Turtle;
+
+procedure Hilbert(level: integer; angle,step: real);
+begin
+  if level = 0 then
+    exit;
+  TurnRight(angle);
+  Hilbert(level-1, -angle, step);
+  
+  Forw(step);
+  TurnLeft(angle);
+  Hilbert(level-1, angle, step);
+  
+  Forw(step);
+  Hilbert(level-1, angle, step);
+  
+  TurnLeft(angle);
+  Forw(step);
+  Hilbert(level-1, -angle, step);
+  TurnRight(angle);
+end;
+
+begin
+  SetWidth(2);
+  ToPoint(-9,-9);
+  Down;
+  Hilbert(6,90,0.3);
+end.

Release/pabcversion.txt

@@ -1 +1 @@
-3.9.0.3531
+3.10.0.3533

ReleaseGenerators/PascalABCNET_version.nsh

@@ -1 +1 @@
-!define VERSION '3.9.0.3531'
+!define VERSION '3.10.0.3533'

TestSuite/CompilationSamples/PABCSystem.pas

@@ -11352,9 +11352,9 @@ begin
 end;
 
 /// Разбивает последовательность на серии длины size
-function Batch<T>(Self: sequence of T; size: integer): sequence of sequence of T; extensionmethod;
+function Batch<T>(Self: sequence of T; size: integer): sequence of array of T; extensionmethod;
 begin
-  var buf := new List<T>;
+  var buf := new List<T>(size);
   foreach var elm in Self do begin
     buf.Add(elm);
     if buf.Count=size then begin
@@ -11368,10 +11368,10 @@ begin
 end;
 
 /// Разбивает последовательность на серии длины size и применяет проекцию к каждой серии
-function Batch<T, Res>(Self: sequence of T; size: integer; proj: Func<IEnumerable<T>, Res>): sequence of Res; extensionmethod;
+function Batch<T, Res>(Self: sequence of T; size: integer; proj: Func<array of T, Res>): sequence of Res; extensionmethod;
 begin
   //Result := SeqWhile(Self, v -> v.Skip(size), v -> v.Count > 0).Select(v -> v.Take(size)).Select(ss -> proj(ss));
-  Result := Self.Batch(size).Select(ss -> proj(ss));
+  Result := Self.Batch(size).Select(proj);
 end;
 
 ///--