26 lines
1.2 KiB
Mathematica
26 lines
1.2 KiB
Mathematica
|
function r = squeezee(s,c)
|
||
|
|
ix = [];
|
||
|
|
c = unique(c);
|
||
|
|
for k=1:length(c)
|
||
|
|
ix=[ix; find((s(1:end-1)==s(2:end)) & (s(1:end-1)==c(k)))+1];
|
||
|
|
end
|
||
|
|
r=s;
|
||
|
|
r(ix)=[];
|
||
|
|
|
||
|
|
fprintf(1,'Character to be squeezed: "%s"\n',c);
|
||
|
|
fprintf(1,'Input: <<<%s>>> length: %d\n',s,length(s));
|
||
|
|
fprintf(1,'Output: <<<%s>>> length: %d\n',r,length(r));
|
||
|
|
fprintf(1,'Character to be squeezed: "%s"\n',c);
|
||
|
|
|
||
|
|
end
|
||
|
|
|
||
|
|
|
||
|
|
squeezee('', ' ')
|
||
|
|
squeezee('║╚═══════════════════════════════════════════════════════════════════════╗', '-')
|
||
|
|
squeezee('║"If I were two-faced, would I be wearing this one?" --- Abraham Lincoln ║', '7')
|
||
|
|
squeezee('║..1111111111111111111111111111111111111111111111111111111111111117777888║', '.')
|
||
|
|
squeezee('║I never give ''em hell, I just tell the truth, and they think it''s hell. ║', '.')
|
||
|
|
squeezee('║ --- Harry S Truman ║', '.')
|
||
|
|
squeezee('║ --- Harry S Truman ║', '-')
|
||
|
|
squeezee('║ --- Harry S Truman ║', 'r')
|