pascalabcnet/TestSuite/intellisense_tests/lambdas1.pas

uses Graph3D, GraphWPFBase;
procedure p(f:complex->real);
begin
  
end;

procedure test;
begin
  var a := new System.Collections.Generic.List<string>();
  a.Add('abc');
  a.Add('def');
  var b := a.SelectMany(x{@parameter x: string;@} -> x).Select(x{@parameter x: string;@} -> x);
  foreach var c in b do
    writeln(c);
end;
begin
  var f1:complex->real:=x{@parameter x: Complex;@}->Sqr(x.Real)+Sqr(x.Imaginary);
  var f2: function(c: complex): real := x{@parameter x: Complex;@}->Sqr(x.Real)+Sqr(x.Imaginary);
  f1 := x{@parameter x: Complex;@}->Sqr(x.Real)+Sqr(x.Imaginary);
  var f3:(real,complex)->real:=(y{@parameter y: real;@},
  x{@parameter x: Complex;@})->Sqr(x.Real)+Sqr(x.Imaginary);
  p(x{@parameter x: Complex;@}->Sqr(x.Real)+Sqr(x.Imaginary));
  var f4: string->() := x{@parameter x: string;@}->writeln(x);
  var f5: IntFunc := x{@parameter x: integer;@}->x*4;
  var f6: RealFunc := x{@parameter x: real;@}->x*4;
  Range(1,20).Select(x{@parameter x: integer;@}->x*x).Println;
  MainWindow.Closed += procedure(sender,e{@parameter e: EventArgs;@}) -> begin Halt; end;
  var s := ' hello  aha paap   zz ';
  s.ToWords.Where(w -> w{@parameter w: string;@}.Inverse = w).
        OrderBy(s->s{@parameter s: string;@}.Length).Println(',');
end.