Из PABCSystem убрана операция умножения последовательности на число как

дававшая неприятный эффект для множеств - множество умножать на число нельзя
This commit is contained in:
Mikhalkovich Stanislav 2019-12-18 07:34:17 +03:00
parent 88ff83f2c6
commit 1aeb653f85
5 changed files with 1948 additions and 1932 deletions

View file

@ -0,0 +1,8 @@
begin
var (a,b) := (3,2);
match (a,b) with
(var x,var y) when x < y: Print('a < b');
(var x,var y) when x = y: Print('a = b');
(var x,var y) when x > y: Print('a > b');
end;
end.

View file

@ -2,7 +2,7 @@
// This CSharp output file generated by Gardens Point LEX
// Version: 1.1.3.301
// Machine: DESKTOP-G8V08V4
// DateTime: 29.11.2019 19:33:24
// DateTime: 10.12.2019 15:11:23
// UserName: ?????????
// GPLEX input file <ABCPascal.lex>
// GPLEX frame file <embedded resource>

File diff suppressed because it is too large Load diff

View file

@ -2,7 +2,7 @@
<!-- syntaxdefinition for PascalABC.NET (c) Ivan Bondarev, Stanislav Mikhalkovich -->
<SyntaxDefinition name = "PascalABC.NET" extensions = ".pas;.paspart_">
<Properties>
<Property name="LineComment" value="//"/>
</Properties>

View file

@ -4066,19 +4066,17 @@ begin
Result := Result.Concat(a);
end;
///--
function operator*<T>(a: sequence of T; n: integer): sequence of T; extensionmethod;
{function operator*<T>(a: sequence of T; n: integer): sequence of T; extensionmethod;
begin
Result := System.Linq.Enumerable.Empty&<T>();
loop n do
Result := Result.Concat(a);
end;
///--
function operator*<T>(n: integer; a: sequence of T): sequence of T; extensionmethod;
begin
Result := a * n;
end;
end;}
///--
function operator in<T>(x: T; Self: sequence of T): boolean; extensionmethod;