PartitionPoints

Убрано Range(a,b,n)
This commit is contained in:
Mikhalkovich Stanislav 2018-11-18 18:36:43 +03:00
parent a7ab51e434
commit 9bccecd38a
8 changed files with 19 additions and 23 deletions

View file

@ -15,7 +15,7 @@ internal static class RevisionClass
public const string Major = "3";
public const string Minor = "4";
public const string Build = "2";
public const string Revision = "1865";
public const string Revision = "1869";
public const string MainVersion = Major + "." + Minor;
public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision;

View file

@ -1,4 +1,4 @@
%COREVERSION%=2
%REVISION%=1865
%REVISION%=1869
%MINOR%=4
%MAJOR%=3

View file

@ -98,9 +98,9 @@
<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> 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>
<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>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Разделяет последовательности на две по заданному условию, в котором участвует индекс</td></tr>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Разделяет последовательность на две по заданному условию, в котором участвует индекс. Реализуется двухпроходным алгоритмом</td></tr>
<tr><td><code><b>function</b> Print&lt;T&gt;(Self: <b>sequence </b> <b>of</b> T; delim: string): <b>sequence </b> <b>of</b> T;</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Âûâîäèò ïîñëåäîâàòåëüíîñòü íà ýêðàí, èñïîëüçóÿ delim â êà÷åñòâå ðàçäåëèòåëÿ</td></tr>
<tr><td><code><b>function</b> Print&lt;T&gt;(Self: <b>sequence </b> <b>of</b> T): <b>sequence </b> <b>of</b> T;</code>
@ -124,7 +124,7 @@
<tr><td><code><b>function</b> SortedDescending&lt;T&gt;(Self: <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> SplitAt&lt;T&gt;(Self: <b>sequence </b> <b>of</b> T; ind: integer): (<b>sequence </b> <b>of</b> T, <b>sequence </b> <b>of</b> T);</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Разбивает последовательности на две в позиции ind</td></tr>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Разбивает последовательность на две в позиции ind. Реализуется двухпроходным алгоритмом</td></tr>
<tr><td><code><b>function</b> Tabulate&lt;T, T1&gt;(Self: <b>sequence </b> <b>of</b> T; F: T-&gt;T1): <b>sequence </b> <b>of</b> (T, T1);</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Òàáóëèðóåò ôóíêöèþ ïîñëåäîâàòåëüíîñòüþ</td></tr>
<tr><td><code><b>function</b> TakeLast&lt;T&gt;(Self: <b>sequence </b> <b>of</b> T; count: integer): <b>sequence </b> <b>of</b> T;</code>
@ -136,11 +136,11 @@
<tr><td><code><b>function</b> ToSortedSet&lt;T&gt;(Self: <b>sequence </b> <b>of</b> T): SortedSet&lt;T&gt;;</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Âîçâðàùàåò ìíîæåñòâî SortedSet ïî äàííîé ïîñëåäîâàòåëüíîñòè</td></tr>
<tr><td><code><b>function</b> UnZipTuple&lt;T, T1&gt;(Self: <b>sequence </b> <b>of</b> (T, T1)): (<b>sequence </b> <b>of</b> T, <b>sequence </b> <b>of</b> T1);</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Разъединяет последовательность двухэлементных кортежей на две последовательности</td></tr>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Разъединяет последовательность двухэлементных кортежей на две последовательности. Реализуется двухпроходным алгоритмом</td></tr>
<tr><td><code><b>function</b> UnZipTuple&lt;T, T1, T2&gt;(Self: <b>sequence </b> <b>of</b> (T, T1, T2)): (<b>sequence </b> <b>of</b> T, <b>sequence </b> <b>of</b> T1, <b>sequence </b> <b>of</b> T2);</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Разъединяет последовательность трехэлементных кортежей на три последовательности</td></tr>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Разъединяет последовательность трехэлементных кортежей на три последовательности. Реализуется многопроходным алгоритмом</td></tr>
<tr><td><code><b>function</b> UnZipTuple&lt;T, T1, T2, T3&gt;(Self: <b>sequence </b> <b>of</b> (T, T1, T2, T3)): (<b>sequence </b> <b>of</b> T, <b>sequence </b> <b>of</b> T1, <b>sequence </b> <b>of</b> T2, <b>sequence </b> <b>of</b> T3);</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Разъединяет последовательность четырехэлементных кортежей на четыре последовательности</td></tr>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Разъединяет последовательность четырехэлементных кортежей на четыре последовательности. Реализуется многопроходным алгоритмом</td></tr>
<tr><td><code><b>function</b> WriteLines(Self: <b>sequence </b> <b>of</b> string; fname: string): <b>sequence </b> <b>of</b> string;</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Âûâîäèò ïîñëåäîâàòåëüíîñòü ñòðîê â ôàéë</td></tr>
<tr><td><code><b>function</b> ZipTuple&lt;T, T1&gt;(Self: <b>sequence </b> <b>of</b> T; a: <b>sequence </b> <b>of</b> T1): <b>sequence </b> <b>of</b> (T, T1);</code>

View file

@ -27,9 +27,9 @@
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Изменяет порядок элементов в списке на противоположный</td></tr>
<tr><td><code><b>procedure</b> Reverse&lt;T&gt;(a: List&lt;T&gt;; index, count: integer);</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Изменяет порядок элементов на противоположный в диапазоне списка длины count, начиная с индекса index</td></tr>
<tr><td><code><b>procedure</b> SetLength(<b>var</b> a: <b>array</b> <b>of</b> T);</code>
<tr><td><code><b>procedure</b> SetLength(<b>var</b> a: <b>array</b> <b>of</b> T; n: integer);</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Устанавливает длину одномерного динамического массива. Старое содержимое сохраняется</td></tr>
<tr><td><code><b>procedure</b> SetLength(<b>var</b> a: <b>array</b> <b>of</b> T; n1,n2,...: integer);</code>
<tr><td><code><b>procedure</b> SetLength(<b>var</b> a: <b>array</b> [,...,] <b>of</b> T; n1,n2,...: integer);</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Устанавливает размеры n-мерного динамического массива. Старое содержимое сохраняется</td></tr>
<tr><td><code><b>procedure</b> Shuffle&lt;T&gt;(a: <b>array</b> <b>of</b> T);</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Перемешивает динамический массив случайным образом</td></tr>

View file

@ -1,5 +1,5 @@
<HTML><HEAD><object type="application/x-oleobject" classid="clsid:1e2a7bd0-dab9-11d0-b93a-00c04fc99f9e">
<param name="Keyword" value="Partition">
<param name="Keyword" value="PartitionPoints">
<param name="Keyword" value="Range">
<param name="Keyword" value="ReadSeqInteger">
<param name="Keyword" value="ReadSeqIntegerWhile">
@ -16,14 +16,12 @@
<param name="Keyword" value="SeqWhile"></object>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251"><link rel="StyleSheet" href="../../../default.css">
</HEAD><body><H1>Ïîäïðîãðàììû äëÿ ãåíåðàöèè ïîñëåäîâàòåëüíîñòåé</H1>
<table border=0 cellpadding=5><tr><td><code><b>function</b> Partition(a, b: real; n: integer): <b>sequence </b> <b>of</b> real;</code>
<table border=0 cellpadding=5><tr><td><code><b>function</b> PartitionPoints(a, b: real; n: integer): <b>sequence </b> <b>of</b> real;</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Âîçâðàùàåò ïîñëåäîâàòåëüíîñòü âåùåñòâåííûõ â òî÷êàõ ðàçáèåíèÿ îòðåçêà [a,b] íà n ðàâíûõ ÷àñòåé</td></tr>
<tr><td><code><b>function</b> Range(a, b: integer): <b>sequence </b> <b>of</b> integer;</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Âîçâðàùàåò ïîñëåäîâàòåëüíîñòü öåëûõ îò a äî b</td></tr>
<tr><td><code><b>function</b> Range(c1, c2: char): <b>sequence </b> <b>of</b> char;</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Âîçâðàùàåò ïîñëåäîâàòåëüíîñòü ñèìâîëîâ îò c1 äî c2</td></tr>
<tr><td><code><b>function</b> Range(a, b: real; n: integer): <b>sequence </b> <b>of</b> real;</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Âîçâðàùàåò ïîñëåäîâàòåëüíîñòü âåùåñòâåííûõ â òî÷êàõ ðàçáèåíèÿ îòðåçêà [a,b] íà n ðàâíûõ ÷àñòåé (Èñïîëüçóéòå Partition)</td></tr>
<tr><td><code><b>function</b> Range(a, b, step: integer): <b>sequence </b> <b>of</b> integer;</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Âîçâðàùàåò ïîñëåäîâàòåëüíîñòü öåëûõ îò a äî b ñ øàãîì step</td></tr>
<tr><td><code><b>function</b> ReadSeqInteger(n: integer): <b>sequence </b> <b>of</b> integer;</code>

View file

@ -1 +1 @@
!define VERSION '3.4.2.1865'
!define VERSION '3.4.2.1869'

View file

@ -1675,12 +1675,12 @@ function Length(a: System.Array): integer;
///- function Length(a: array of T; dim: integer): integer;
/// Возвращает длину динамического массива по размерности dim
function Length(a: System.Array; dim: integer): integer;
///- procedure SetLength(var a: array of T);
///- procedure SetLength(var a: array of T; n: integer);
/// Устанавливает длину одномерного динамического массива. Старое содержимое сохраняется
//procedure SetLength(var a: System.Array);
///- procedure SetLength(var a: array of T; n1,n2,...: integer);
//procedure SetLength<T>(var a: array of T; n: integer);
///- procedure SetLength(var a: array [,...,] of T; n1,n2,...: integer);
/// Устанавливает размеры n-мерного динамического массива. Старое содержимое сохраняется
//procedure SetLength(var a: System.Array);
//procedure SetLength<T>(var a: array[,...,] of T; n: integer);
///- function Copy(a: array of T): array of T;
/// Создаёт копию динамического массива
function Copy(a: System.Array): System.Array;
@ -1716,10 +1716,8 @@ procedure Shuffle<T>(l: List<T>);
function Range(a, b: integer): sequence of integer;
/// Возвращает последовательность символов от c1 до c2
function Range(c1, c2: char): sequence of char;
/// Возвращает последовательность вещественных в точках разбиения отрезка [a,b] на n равных частей (Используйте Partition)
function Range(a, b: real; n: integer): sequence of real;
/// Возвращает последовательность вещественных в точках разбиения отрезка [a,b] на n равных частей
function Partition(a, b: real; n: integer): sequence of real;
function PartitionPoints(a, b: real; n: integer): sequence of real;
/// Возвращает последовательность целых от a до b с шагом step
function Range(a, b, step: integer): sequence of integer;
/// Возвращает последовательность указанных элементов
@ -3934,7 +3932,7 @@ begin
end;
end;
function Partition(a, b: real; n: integer): sequence of real;
function PartitionPoints(a, b: real; n: integer): sequence of real;
begin
Result := Range(a, b, n)
end;

Binary file not shown.