8 lines
188 B
ObjectPascal
8 lines
188 B
ObjectPascal
begin
|
|
var a := new List<integer>(arr(1, 2));
|
|
match a with
|
|
integer(var c): write(1);
|
|
boolean(var s): write(2);
|
|
List<integer>(var l) when l.Count > 0 :write(3)
|
|
end;
|
|
end. |