Determine if a string is collapsible: Difference between revisions
Determine if a string is collapsible (view source)
Revision as of 13:41, 22 February 2021
, 3 years agoAdded Delphi example
Not a robot (talk | contribs) (Add Cowgol) |
MaiconSoft (talk | contribs) (Added Delphi example) |
||
Line 1,010:
old: <<< --- Harry S Truman >>>, length = 72
new: <<< - Hary S Truman >>>, length = 17</pre>
=={{header|Delphi}}==
{{libheader| System.SysUtils}}
{{Trans|D}}
<lang Delphi>
program Determine_if_a_string_is_collapsible;
{$APPTYPE CONSOLE}
uses
System.SysUtils;
procedure collapsible(s: string);
var
c, last: char;
len: Integer;
begin
writeln('old: <<<', s, '>>>, length = ', s.length);
write('new: <<<');
last := #0;
len := 0;
for c in s do
begin
if c <> last then
begin
write(c);
inc(len);
end;
last := c;
end;
writeln('>>>, length = ', len, #10);
end;
begin
collapsible('');
collapsible('"If I were two-faced, would I be wearing this one?" --- Abraham Lincoln ');
collapsible('..1111111111111111111111111111111111111111111111111111111111111117777888');
collapsible('I never give ''em hell, I just tell the truth, and they think it''s hell. ');
collapsible(' --- Harry S Truman ');
readln;
end.</lang>
=={{header|F_Sharp|F#}}==
| |||