4 lines
94 B
ObjectPascal
4 lines
94 B
ObjectPascal
|
begin
|
|||
|
|
var l: string -> integer := t->t.Where(c->c='0').Count;
|
|||
|
|
Assert(l('abc0')=1);
|
|||
|
|
end.
|