PartialSum для чисел

Configuration/GlobalAssemblyInfo.cs

@@ -15,7 +15,7 @@ internal static class RevisionClass
 	public const string Major = "3";
 	public const string Minor = "8";
 	public const string Build = "1";
-	public const string Revision = "2990";
+	public const string Revision = "2991";
 
         public const string MainVersion = Major + "." + Minor;
 	public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision;

Configuration/Version.defs

@@ -1,4 +1,4 @@
-%COREVERSION%=1
-%REVISION%=2990
 %MINOR%=8
+%REVISION%=2991
+%COREVERSION%=1
 %MAJOR%=3

PABCNetHelp/LangGuide/PABCSystemUnit/Files/Extension methods for sequence of T.html

@@ -18,6 +18,7 @@
 <param name="Keyword" value="Order">
 <param name="Keyword" value="OrderDescending">
 <param name="Keyword" value="Pairwise">
+<param name="Keyword" value="PartialSum">
 <param name="Keyword" value="Partition">
 <param name="Keyword" value="Print">
 <param name="Keyword" value="PrintLines">
@@ -111,6 +112,12 @@
 <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Ïðåâðàùàåò ïîñëåäîâàòåëüíîñòü â ïîñëåäîâàòåëüíîñòü ïàð ñîñåäíèõ ýëåìåíòîâ</td></tr>
 <tr><td><code><b>function</b> Pairwise&lt;T, Res&gt;(Self: <b>sequence </b>  <b>of</b> T; func: (T,T)-&gt;Res): <b>sequence </b>  <b>of</b> Res;</code>
 <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Ïðåâðàùàåò ïîñëåäîâàòåëüíîñòü â ïîñëåäîâàòåëüíîñòü ïàð ñîñåäíèõ ýëåìåíòîâ, ïðèìåíÿåò func ê êàæäîé ïàðå ïîëó÷åííûõ ýëåìåíòîâ è ïîëó÷àåò íîâóþ ïîñëåäîâàòåëüíîñòü</td></tr>
+<tr><td><code><b>function</b> PartialSum(Self: <b>sequence </b>  <b>of</b> integer): <b>sequence </b>  <b>of</b> integer;</code>
+<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Возвращает последовательность частичных сумм элементов последовательности</td></tr>
+<tr><td><code><b>function</b> PartialSum(Self: <b>sequence </b>  <b>of</b> real): <b>sequence </b>  <b>of</b> real;</code>
+<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Возвращает последовательность частичных сумм элементов последовательности</td></tr>
+<tr><td><code><b>function</b> PartialSum(Self: <b>sequence </b>  <b>of</b> BigInteger): <b>sequence </b>  <b>of</b> BigInteger;</code>
+<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Возвращает последовательность частичных сумм элементов последовательности</td></tr>
 <tr><td><code><b>function</b> Partition&lt;T&gt;(Self: <b>sequence </b>  <b>of</b> T; cond: T-&gt;boolean): (<b>sequence </b>  <b>of</b> T, <b>sequence </b>  <b>of</b> T);</code>
 <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Ðàçäåëÿåò ïîñëåäîâàòåëüíîñòü íà äâå ïî çàäàííîìó óñëîâèþ. Ðåàëèçóåòñÿ äâóõïðîõîäíûì àëãîðèòìîì</td></tr>
 <tr><td><code><b>function</b> Partition&lt;T&gt;(Self: <b>sequence </b>  <b>of</b> T; cond: (T,integer)-&gt;boolean): (<b>sequence </b>  <b>of</b> T, <b>sequence </b>  <b>of</b> T);</code>

Release/pabcversion.txt

@@ -1 +1 @@
-3.8.1.2990
+3.8.1.2991

ReleaseGenerators/PascalABCNET_version.nsh

@@ -1 +1 @@
-!define VERSION '3.8.1.2990'
+!define VERSION '3.8.1.2991'

TestSuite/CompilationSamples/PABCSystem.pas

@@ -9898,6 +9898,39 @@ begin
     Result *= f(x);
 end;
 
+/// Возвращает последовательность частичных сумм элементов последовательности
+function PartialSum(Self: sequence of integer): sequence of integer; extensionmethod;
+begin
+ var s := 0;
+ foreach var item in Self do
+ begin
+   s += item;
+   yield s;
+ end;
+end;
+
+/// Возвращает последовательность частичных сумм элементов последовательности
+function PartialSum(Self: sequence of real): sequence of real; extensionmethod;
+begin
+ var s := 0.0;
+ foreach var item in Self do
+ begin
+   s += item;
+   yield s;
+ end;
+end;
+
+/// Возвращает последовательность частичных сумм элементов последовательности
+function PartialSum(Self: sequence of BigInteger): sequence of BigInteger; extensionmethod;
+begin
+ var s := 0bi;
+ foreach var item in Self do
+ begin
+   s += item;
+   yield s;
+ end;
+end;
+
 /// Возвращает сумму элементов последовательности, спроектированных на числовое значение - пока не работает для Lst(1,2,3)
 {function Sum<T>(Self: sequence of T; f: T->BigInteger): BigInteger; extensionmethod;
 begin

bin/Lib/PABCSystem.pas

@@ -9898,6 +9898,39 @@ begin
     Result *= f(x);
 end;
 
+/// Возвращает последовательность частичных сумм элементов последовательности
+function PartialSum(Self: sequence of integer): sequence of integer; extensionmethod;
+begin
+ var s := 0;
+ foreach var item in Self do
+ begin
+   s += item;
+   yield s;
+ end;
+end;
+
+/// Возвращает последовательность частичных сумм элементов последовательности
+function PartialSum(Self: sequence of real): sequence of real; extensionmethod;
+begin
+ var s := 0.0;
+ foreach var item in Self do
+ begin
+   s += item;
+   yield s;
+ end;
+end;
+
+/// Возвращает последовательность частичных сумм элементов последовательности
+function PartialSum(Self: sequence of BigInteger): sequence of BigInteger; extensionmethod;
+begin
+ var s := 0bi;
+ foreach var item in Self do
+ begin
+   s += item;
+   yield s;
+ end;
+end;
+
 /// Возвращает сумму элементов последовательности, спроектированных на числовое значение - пока не работает для Lst(1,2,3)
 {function Sum<T>(Self: sequence of T; f: T->BigInteger): BigInteger; extensionmethod;
 begin