31 lines
1.2 KiB
ObjectPascal
31 lines
1.2 KiB
ObjectPascal
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. |