Merge branch 'master' of https://github.com/pascalabcnet/pascalabcnet …

…into test

Configuration/GlobalAssemblyInfo.cs

@@ -15,7 +15,7 @@ internal static class RevisionClass
 	public const string Major = "3";
 	public const string Minor = "9";
 	public const string Build = "0";
-	public const string Revision = "3521";
+	public const string Revision = "3523";
 
         public const string MainVersion = Major + "." + Minor;
 	public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision;

Configuration/Version.defs

@@ -1,4 +1,4 @@
 %MINOR%=9
-%REVISION%=3521
+%REVISION%=3523
 %COREVERSION%=0
 %MAJOR%=3

Release/pabcversion.txt

@@ -1 +1 @@
-3.9.0.3521
+3.9.0.3523

ReleaseGenerators/PascalABCNET_version.nsh

@@ -1 +1 @@
-!define VERSION '3.9.0.3521'
+!define VERSION '3.9.0.3523'

TestSuite/CompilationSamples/School.pas

@@ -1,4 +1,4 @@
-/// Учебный модуль, реализующий базовые алгоритмы информатики (31.07.2024)
+/// Учебный модуль, реализующий базовые алгоритмы информатики (01.08.2024)
 unit School;
 
 interface
@@ -200,9 +200,6 @@ function LCM(a, b: int64): int64;
 /// Возвращает НОД и НОК пары чисел
 function НОДНОК(a, b: int64): (int64, int64);
 
-/// Разложение числа на простые множители
-function Factorize(n: integer): List<integer>;
-
 /// возвращает True, если число n простое и False в противном случае
 function IsPrime(n: integer): boolean;
 
@@ -215,16 +212,31 @@ function Primes(m, n: integer): List<integer>;
 /// Первые k простых чисел 
 function FirstPrimes(k: integer): List<integer>;
 
-/// Количество простых делителей числа n
+/// Разложение числа на простые множители (список всех его простых делителей)
+function Factorize(n: integer): List<integer>;
+
+/// Список уникальных простых делителей числа n
+/// Для n < 2 возвращается пустой список.
+/// Для простого n возвращается список из одного числа n.
+/// Для составных чисел при n >= 4 возвращается список уникальных простых делителей.
+function PrimeDivisors(n: integer): List<integer>;
+
+/// Количество уникальных простых делителей числа n
 /// Для n < 2 возвращается 0.
 /// Для простых чисел возвращается 1.
 /// Для составных чисел при n >= 4 возвращается количество уникальных простых делителей.
 function PrimeDivisorsCount(n: integer): integer;
 
-/// Количество простых факторов числа n
+/// Список простых факторов (простых делителей) числа n
+/// Для n < 2 возвращается пустой список.
+/// Для простого n возвращается список из одного числа n.
+/// Для составных чисел n >= 4 возвращается список всех простых факторов.
+function PrimeFactors(n: integer): List<integer>;
+
+/// Количество простых факторов (простых делителей) числа n
 /// Для n < 2 возвращается 0.
 /// Для простых чисел возвращается 1.
-/// Для составных чисел при n >= 4 возвращается количество простых делителей.
+/// Для составных чисел при n >= 4 возвращается количество всех простых факторов.
 function PrimeFactorsCount(n: integer): integer;
 
 /// Возвращает целочисленный список расширенного представления
@@ -677,35 +689,6 @@ function НОД(Self: (integer, integer)): integer; extensionmethod;
 
 {$endregion}
 
-{$region Factorize}
-
-/// Разложение числа n на простые множители
-function Factorize(n: integer): List<integer>;
-begin
-  n := Abs(n);
-  Result := new List<integer>;
-  foreach var Divisor in LPrimes do
-  begin
-    while (Sqr(Divisor) <= n) and (n >= Divisor) do  
-      if n mod Divisor = 0 then
-      begin
-        Result.Add(Divisor);
-        n := n div Divisor;
-      end
-      else
-        break;
-    if n < Divisor then
-      break
-  end;  
-  Result.Add(n)
-end;
-
-/// Разложение числа на простые множители
-function Factorize(Self: integer): List<integer>; extensionmethod :=
-Factorize(Self);
-
-{$endregion}
-
 {$region Primes}
 
 // Внутреняя процедура для заполнения LPrimes
@@ -830,7 +813,7 @@ function FirstPrimes(k: integer): List<integer>;
   begin
     Result := LPrimes;
     var kprimes := nPrimeDivs; // количество найденных простых чисел
-    var n := maxPrimeDiv + 2; // очередной кандидат на простое число
+    var n := maxPrimeDiv + 2;  // очередной кандидат на простое число
     repeat
       if n.IsPrime then
       begin
@@ -842,7 +825,38 @@ function FirstPrimes(k: integer): List<integer>;
   end
 end;
 
-/// Количество простых делителей числа n
+/// Список уникальных простых делителей числа n
+/// Для n < 2 возвращается пустой список.
+/// Для простого n возвращается список из одного числа n.
+/// Для составных чисел при n >= 4 возвращается список уникальных простых делителей.
+function PrimeDivisors(n: integer): List<integer>;
+begin
+  Result := new List<integer>;
+  if n < 2 then exit;
+  var (i, prime, m) := (0, LPrimes[0], n);
+  while Sqr(prime) <= n do
+  begin
+    if n mod prime = 0 then
+    begin
+      Result.Add(prime);
+      repeat
+        n := n div prime
+      until n mod prime <> 0
+    end;
+    Inc(i);
+    prime := LPrimes[i];
+  end;
+  if Result.Count = 0 then Result.Add(m)
+  else if n > 1 then Result.Add(n)
+end;
+
+/// Список уникальных простых делителей числа n
+/// Для n < 2 возвращается пустой список.
+/// Для простого n возвращается список из одного числа n.
+/// Для составных чисел при n >= 4 возвращается список уникальных простых делителей.
+function PrimeDivisors(Self: integer): List<integer>; extensionmethod := PrimeDivisors(Self);
+
+/// Количество уникальных простых делителей числа n
 /// Для n < 2 возвращается 0.
 /// Для простых чисел возвращается 1.
 /// Для составных чисел при n >= 4 возвращается количество уникальных простых делителей.
@@ -868,20 +882,49 @@ function PrimeDivisorsCount(n: integer): integer;
   else if n > 1 then Result += 1
 end;
 
-/// Количество простых делителей числа n
+/// Количество уникальных простых делителей числа n
 /// Для n < 2 возвращается 0.
 /// Для простых чисел возвращается 1.
 /// Для составных чисел при n >= 4 возвращается количество уникальных простых делителей.
 function PrimeDivisorsCount(Self: integer): integer; extensionmethod := PrimeDivisorsCount(Self);
 
-/// Количество простых факторов числа n
+/// Список простых факторов (простых делителей) числа n
+/// Для n < 2 возвращается пустой список.
+/// Для простого n возвращается список из одного числа n.
+/// Для составных чисел n >= 4 возвращается список всех простых факторов.
+function PrimeFactors(n: integer): List<integer>;
+begin
+  Result := new List<integer>;
+  if n < 2 then exit;
+  var (i, prime, m) := (0, LPrimes[0], n);
+  while Sqr(prime) <= n do
+  begin
+    while n mod prime = 0 do
+    begin
+      Result.Add(prime);
+      n := n div prime
+    end;
+    Inc(i);
+    prime := LPrimes[i];
+  end;
+  if Result.Count = 0 then Result.Add(m)
+  else if n > 1 then Result.Add(n)
+end;
+
+/// Список простых факторов (простых делителей) числа n
+/// Для n < 2 возвращается пустой список.
+/// Для простого n возвращается список из одного числа n.
+/// Для составных чисел n >= 4 возвращается список всех простых факторов.
+function PrimeFactors(Self: integer): List<integer>; extensionmethod := PrimeFactors(Self);
+
+/// Количество простых факторов (простых делителей) числа n
 /// Для n < 2 возвращается 0.
 /// Для простых чисел возвращается 1.
-/// Для составных чисел при n >= 4 возвращается количество простых делителей.
+/// Для составных чисел при n >= 4 возвращается количество всех простых факторов.
 function PrimeFactorsCount(n: integer): integer;
 begin
   Result := 0;
-  if n < 2 then Exit;
+  if n < 2 then exit;
   var (i, prime, DivIsPrime) := (0, LPrimes[0], True);
   while Sqr(prime) <= n do
   begin
@@ -898,12 +941,18 @@ function PrimeFactorsCount(n: integer): integer;
   else if n > 1 then Result += 1
 end;
 
-/// Количество простых факторов числа n
+/// Количество простых факторов (простых делителей) числа n
 /// Для n < 2 возвращается 0.
 /// Для простых чисел возвращается 1.
-/// Для составных чисел при n >= 4 возвращается количество простых делителей.
+/// Для составных чисел при n >= 4 возвращается количество всех простых факторов.
 function PrimeFactorsCount(Self: integer): integer; extensionmethod := PrimeFactorsCount(Self);
 
+/// Разложение числа на простые множители
+function Factorize(n: integer): List<integer> := PrimeFactors(n);
+
+/// Разложение числа на простые множители
+function Factorize(Self: integer): List<integer>; extensionmethod := PrimeFactors(Self);
+
 {$endregion}
 
 {$region Digits}

VisualPascalABCNET/Workbench/EditorServices.cs

@@ -156,7 +156,14 @@ public void ExecCopy()
 
         public void ExecPaste()
         {
-            CurrentCodeFileDocument.Paste(true);
+            try
+            {
+                CurrentCodeFileDocument?.Paste(true);
+            }
+            catch (Exception)
+            {
+
+            }
         }
 
         internal void NavigationLocationChanged()