Sha256: 92edc73a7dd7bab8bdd26f71438cfd8360724bac7c0a2a49546135ff423f1b2a
Contents?: true
Size: 785 Bytes
Versions: 51
Compression:
Stored size: 785 Bytes
Contents
unit uBracketPush;
interface
type
TBracketPush = class
private
class var
fBrackets: string;
fPreviousLength: integer;
public
class function IsPaired(aInput: string): boolean;
end;
implementation
uses SysUtils;
{ BracketPush }
class function TBracketPush.IsPaired(aInput: string): boolean;
var
aChar: char;
begin
fBrackets := '';
for aChar in aInput do
if aChar in ['[',']','{','}','(',')'] then
fBrackets := fBrackets + aChar;
fPreviousLength := length(fBrackets);
while length(fBrackets) > 0 do
begin
fBrackets := fBrackets.Replace('[]', '').Replace('{}', '').Replace('()', '');
if length(fBrackets) = fPreviousLength then
exit(false);
fPreviousLength := length(fBrackets);
end;
result := true;
end;
end.
Version data entries
51 entries across 51 versions & 1 rubygems