11l

F collapse(s)   V cs = ‘’   V last = Char("\0")   L(c) s      I c != last         cs ‘’= c         last = c   R csV strings = [   ‘’,   ‘"If I were two-faced, would I be wearing this one?" --- Abraham Lincoln ’,   ‘..1111111111111111111111111111111111111111111111111111111111111117777888’,   ‘I never give 'em hell, I just tell the truth, and they think it's hell. ’,   ‘                                                   ---  Harry S Truman  ’,   ‘The better the 4-wheel drive, the further you'll be from help when ya get stuck!’,   ‘headmistressship’,   ‘aardvark’]L(s) strings   V c = collapse(s)   print(‘original  : length = ’s.len‘, string = <<<’s‘>>>’)   print(‘collapsed : length = ’c.len‘, string = <<<’c‘>>>’)   print()

Output:

8080 Assembly

bdos:equ5puts:equ9org100hjmpmain;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Collapse the $-terminated string at [HL]colaps:movb,m; B = last character seeninxh; First character never collapsesmovd,h; DE = output pointermove,lmova,b; Empty string?cpi'$'rz; Then do nothingcloop:mova,m; Get characterinxh; Advance pointercmpb; Same as last one?jzcloop; Then keep scanningmovb,a; Otherwise, it is a new onestaxd; Store it,inxd; and increment output pointer.cpi'$'; Reached the end?jnzcloop; If not, next characterret ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Code to print the output in the required formatmain:lxih,strs; List of string pointersloop:move,m; DE = string pointerinxhmovd,minxhmova,e; If zero, endoradrzpushh; Keep the list pointerpushd; Keep the string pointercallbrstr; Print original string in bracketspoph; Retrieve string pointerpushhcallcolaps; Collapse the stringpopd; Retrieve string pointercallbrstr; Print the collapsed string in bracketspoph; Retrieve the list pointerjmploop; Next string;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Print string at DE in brackets with lengthbrstr:pushd; Store string pointermvic,puts; Print opening bracketslxid,opencallbdospopd; Print original stringpushdmvic,putscallbdosmvic,puts; Print closing bracketslxid,close callbdospophcallstrlen; Find string lengthmova,bjmpprnum; Print string length;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Figure out the length of a string (max 255)strlen:mvib,0; Countermvia,'$'; Terminatorsloop:cmpm; Reached the end yet?rz; If so, stopinrb; If not, increment counter,inxh; and pointer,jmpsloop; and check next byte.;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Print number in A as decimalprnum:lxid,num; End of number stringprdgt:mvib,-1; Quotientploop:inrb; Increment quotientsui10; Subtract 10jncploop; Subtract until negativeadi'0'+10; Make ASCII digitdcxd; Store in number stringstaxdmova,b; If more digits,anaajnzprdgt; find next digitmvic,puts; When done, print stringjmpbdos;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Formatting stringsopen:db'<<<$'close:db'>>> $'db'***'num:db13,10,'$';;;Input stringsstrs:dwstr1,str2,str3,str4,str5,0str1:db'$'; Empty stringstr2:db'"If I were two-faced, would I be wearing 'db'this one?" --- Abraham Lincoln $'str3:db'..111111111111111111111111111111111111111'db'1111111111111111111111117777888$'str4:db'I never give ',39,'em hell, I just tell the truth, 'db'and they think it',39,'s hell. $'str5:db'                                              'db'      --- Harry S Truman  $'

Output:

Action!

PROC Collapse(CHAR ARRAY in,out)  BYTE i,j  CHAR c  j=1 c=0  FOR i=1 TO in(0)  DO    IF in(i)#c THEN      c=in(i)      out(j)=c      j==+1    FI  OD  out(0)=j-1RETURNPROC Test(CHAR ARRAY s)  CHAR ARRAY c(100)  BYTE CH=$02FC ;Internal hardware value for last key pressed  Collapse(s,c)  PrintF("<<<%S>>> (len=%B)%E",s,s(0))  PrintF("<<<%S>>> (len=%B)%E",c,c(0))  PutE()  PrintE("Press any key to continue")  PutE()  DO UNTIL CH#$FF OD  CH=$FFRETURNPROC Main()  Test("")  Test("""If I were two-faced, would I be wearing this one?"" --- Abraham Lincoln ")  Test("..1111111111111111111111111111111111111111111111111111111111111117777888")  Test("I never give 'em hell, I just tell the truth, and they think it's hell. ")  Test("                                                    --- Harry S Truman  ")RETURN

Output:

Ada

withAda.Text_IO;useAda.Text_IO;procedureTest_CollapsibleisprocedureCollapse(S:inString)isRes:String(1..S'Length);Len:Natural:=0;beginPut_Line("Input  = <<<"&S&">>>, length ="&S'Length'Image);forIinS'RangeloopifLen=0or elseS(I)/=Res(Len)thenLen:=Len+1;Res(Len):=S(I);endif;endloop;Put_Line("Output = <<<"&Res(1..Len)&">>>, length ="&Len'Image);endCollapse;beginCollapse("");Collapse("""If I were two-faced, would I be wearing this one?"" --- Abraham Lincoln ");Collapse("..1111111111111111111111111111111111111111111111111111111111111117777888");Collapse("I never give 'em hell, I just tell the truth, and they think it's hell. ");Collapse("                                                    --- Harry S Truman  ");endTest_Collapsible;

Output:

ALGOL 68

BEGIN    # returns a collapsed version of s                                    #    #         i.e. s with adjacent duplicate characters removed           #    PROC collapse = ( STRING s )STRING:        IF s = ""        THEN ""   # empty string                                          #        ELSE      # non-empty string                                      #            [ LWB s : UPB s ]CHAR result;            INT     r pos   := LWB result;            result[ r pos ] := s[ LWB s ];            FOR s pos FROM LWB s + 1 TO UPB s DO                IF result[ r pos ] /= s[ s pos ] THEN                   r pos +:= 1;                   result[ r pos ] := s[ s pos ]                FI            OD;            result[ LWB result : r pos ]        FI # callapse # ;       # task test cases                                                     #    []STRING tests = ( ""                     , """If I were two-faced, would I be wearing this one?"" --- Abraham Lincoln "                     , "..1111111111111111111111111111111111111111111111111111111111111117777888"                     , "I never give 'em hell, I just tell the truth, and they think it's hell. "                     , "                                                    --- Harry S Truman  "                     );    FOR t pos FROM LWB tests TO UPB tests DO        STRING s = tests[ t pos ];        STRING c = collapse( s );        print( ( "       <<<", s, ">>> (length ", whole( ( UPB s + 1 ) - LWB s, 0 ), ")", newline ) );        print( ( "result <<<", c, ">>> (length ", whole( ( UPB c + 1 ) - LWB c, 0 ), ")", newline ) )    ODEND

Output:

APL

task←{⍝ Collapse a stringcollapse←{(1,¯1↓⍵≠1⌽⍵)/⍵}⍝ Given a function ⍺⍺, display a string in brackets,⍝ along with its length, and do the same for the result⍝ of applying ⍺⍺ to the string.display←{bracket←{(⍕⍴⍵),' «««',⍵,'»»»'}↑(⊂bracket⍵),(⊂bracket⍺⍺⍵)}⍝ Strings from the tasks1←''s2←'"If I were two-faced, would I be wearing this one?"'s2,←' --- Abraham Lincoln 's3←'..1111111111111111111111111111111111111111111111111's3,←'111111111111117777888's4←'I never give ''em hell, I just tell the truth, 's4,←'and they think it''s hell. 's5←'                                             's5,←'       --- Harry S Truman  'strs←s1s2s3s4s5⍝ Collapse each string and display it as specified↑collapsedisplay¨strs}

Output:

Arturo

lines:[{::}{:"If I were two-faced, would I be wearing this one?" --- Abraham Lincoln:}{:..1111111111111111111111111111111111111111111111111111111111111117777888:}{:I never give 'em hell, I just tell the truth, and they think it's hell.:}{:                                                    --- Harry S Truman:}]looplines'line->printsqueezeline

Output:

AutoHotkey

collapsible_string(str){fori,chinStrSplit(str){if(ch<>prev)res.=chprev:=ch}return"original string:`t"StrLen(str)" characters`t«««"str"»»»`nresultant string:`t"StrLen(res)" characters`t«««"res"»»»"}

data:=["","""If I were two-faced, would I be wearing this one?"" --- Abraham Lincoln ","..1111111111111111111111111111111111111111111111111111111111111117777888","I never give 'em hell, I just tell the truth, and they think it's hell. ","                                                    --- Harry S Truman  "]fori,vindataMsgBox%:=collapsible_string(v)return

AWK

# syntax: GAWK -f DETERMINE_IF_A_STRING_IS_COLLAPSIBLE.AWKBEGIN{for(i=1;i<=9;i++){for(j=1;j<=i;j++){arr[0]=arr[0]i}}arr[++n]=""arr[++n]="\"If I were two-faced, would I be wearing this one?\" --- Abraham Lincoln "arr[++n]="..1111111111111111111111111111111111111111111111111111111111111117777888"arr[++n]="I never give 'em hell, I just tell the truth, and they think it's hell. "arr[++n]="                                                    --- Harry S Truman  "arr[++n]="The better the 4-wheel drive, the further you'll be from help when ya get stuck!"arr[++n]="headmistressship"for(i=0;i<=n;i++){main(arr[i])}exit(0)}functionmain(str,c,i,new_str,prev_c){for(i=1;i<=length(str);i++){c=substr(str,i,1)if(prev_c!=c){prev_c=cnew_str=new_strc}}printf("old: %2d <<<%s>>>\n",length(str),str)printf("new: %2d <<<%s>>>\n\n",length(new_str),new_str)}

Output:

BaCon

DATA ""DATA "\"If I were two-faced, would I be wearing this one?\" --- Abraham Lincoln "DATA "..1111111111111111111111111111111111111111111111111111111111111117777888"DATA "I never give 'em hell, I just tell the truth, and they think it's hell. "DATA "                                                    --- Harry S Truman  "DATA "The better the 4-wheel drive, the further you'll be from help when ya get stuck!"DATA "headmistressship"DOTIMES 7    READ x$    found = 0    PRINT "<<<", x$, ">>> - length: ", LEN(x$)    PRINT "<<<";    FOR y = 1 TO LEN(x$)        IF MID$(x$, y, 1) <> MID$(x$, y+1, 1) THEN            PRINT MID$(x$, y, 1);            INCR found        ENDIF    NEXT    PRINT ">>> - length: ", foundDONE

Output:

BASIC

10READN%20FORA%=1TON%30READI$:GOSUB10040PRINTLEN(I$);"<<<";I$;">>>"50PRINTLEN(O$);"<<<";O$;">>>"55PRINT60NEXT70END100REM Collapse I$ into O$105IFI$=""THENO$=I$:RETURN110O$=SPACE$(LEN(I$))120P$=LEFT$(I$,1)130MID$(O$,1,1)=P$140O%=2150FORI%=2TOLEN(I$)160C$=MID$(I$,I%,1)170IFP$<>C$THENMID$(O$,O%,1)=C$:O%=O%+1:P$=C$180NEXT190O$=LEFT$(O$,O%-1)200RETURN400DATA5:REMThereare5strings410DATA""420DATA"'If I were two-faced, would I be wearing this one?' --- Abraham Lincoln "430DATA"..1111111111111111111111111111111111111111111111111111111111111117777888"440DATA"I never give 'em hell, I just tell the truth, and they think it's hell. "450DATA"                                                    --- Harry S Truman  "

Output:

Applesoft BASIC

10READN20FORA=1TON30READI$40GOSUB100"COLLAPSE50PRINTLEN(I$)" <<<"I$">>>"60PRINTLEN(O$)" <<<"O$">>>"70PRINT80NEXT90ENDREM COLLAPSE100O$=I$110IFLEN(I$)<2THENRETURN120O$=""130P$=""140FORI=1TOLEN(i$)150C$=MID$(I$,I,1)160IFC$<>P$THENO$=O$+C$170P$=C$180NEXTI190RETURN400DATA5410DATA""420DATA"'If I were two-faced, would I be wearing this one?' --- Abraham Lincoln "430DATA"..1111111111111111111111111111111111111111111111111111111111111117777888"440DATA"I never give 'em hell, I just tell the truth, and they think it's hell. "450DATA"                                                    --- Harry S Truman  "

BCPL

get "libhdr"// Collapse a stringlet collapse(in, out) = valof$(  let o = 0    for i = 1 to in%0        unless i>1 & in%i = in%(i-1)        $(  o := o + 1            out%o := in%i        $)    out%0 := o    resultis out$)// Print string with brackets and lengthlet brackets(s) be    writef("%N: <<<%S>>>*N", s%0, s)// Print original and collapsed versionlet show(s) be$(  let v = vec 1+255/BYTESPERWORD    brackets(s)    brackets(collapse(s, v))    wrch('*N')$)let start() be$(  show("")    show("*"If I were two-faced, would I be wearing this one?*" --- Abraham Lincoln ")    show("..1111111111111111111111111111111111111111111111111111111111111111111788")    show("I never give 'em hell, I just tell the truth, and they think it's hell. ")    show("                                                     --- Harry S Truman ")$)

Output:

BQN

Collapse←(1»≠⟜«)⊸/>⍉⊢‿Collapse(≠⋈"<<<"⊸∾∘∾⟜">>>")∘{𝕎𝕩}⌜⟨"The better the 4-wheel drive, the further you'll be from help when ya get stuck!""headmistressship""""""If I were two-faced, would I be wearing this one?"" --- Abraham Lincoln ""..1111111111111111111111111111111111111111111111111111111111111117777888""I never give 'em hell, I just tell the truth, and they think it's hell. ""                                                    --- Harry S Truman  "⟩

Output:

Bracmat

  ( colapse  =   previous    .   str      $ ( vap        $ ( (            =              .   !arg:!previous&                | !arg:?previous            )          . !arg          )        )  )& ( testcolapse  =   len    .   (len=.@(!arg:? [?arg)&!arg)      & out$(str$(««« !arg "»»» " len$!arg))      & colapse$!arg:?arg      & out$(str$(««« !arg "»»» " len$!arg))  )& testcolapse$&   testcolapse  $ "\"If I were two-faced, would I be wearing this one?\" --- Abraham Lincoln "&   testcolapse  $ "..1111111111111111111111111111111111111111111111111111111111111117777888"&   testcolapse  $ "I never give 'em hell, I just tell the truth, and they think it's hell. "&   testcolapse  $ "                                                    --- Harry S Truman  "

C

#include<string.h>#include<stdlib.h>#include<stdio.h>#define COLLAPSE 0#define SQUEEZE 1typedefstructcharList{charc;structcharList*next;}charList;/*Implementing strcmpi, the case insensitive string comparator, as it is not part of the C Standard Library.Comment this out if testing on a compiler where it is already defined.*/intstrcmpi(char*str1,char*str2){intlen1=strlen(str1),len2=strlen(str2),i;if(len1!=len2){return1;}else{for(i=0;i<len1;i++){if((str1[i]>='A'&&str1[i]<='Z')&&(str2[i]>='a'&&str2[i]<='z')&&(str2[i]-65!=str1[i]))return1;elseif((str2[i]>='A'&&str2[i]<='Z')&&(str1[i]>='a'&&str1[i]<='z')&&(str1[i]-65!=str2[i]))return1;elseif(str1[i]!=str2[i])return1;}}return0;}charList*strToCharList(char*str){intlen=strlen(str),i;charList*list,*iterator,*nextChar;list=(charList*)malloc(sizeof(charList));list->c=str[0];list->next=NULL;iterator=list;for(i=1;i<len;i++){nextChar=(charList*)malloc(sizeof(charList));nextChar->c=str[i];nextChar->next=NULL;iterator->next=nextChar;iterator=nextChar;}returnlist;}char*charListToString(charList*list){charList*iterator=list;intcount=0,i;char*str;while(iterator!=NULL){count++;iterator=iterator->next;}str=(char*)malloc((count+1)*sizeof(char));iterator=list;for(i=0;i<count;i++){str[i]=iterator->c;iterator=iterator->next;}free(list);str[i]='\0';returnstr;}char*processString(charstr[100],intoperation,charsqueezeChar){charList*strList=strToCharList(str),*iterator=strList,*scout;if(operation==SQUEEZE){while(iterator!=NULL){if(iterator->c==squeezeChar){scout=iterator->next;while(scout!=NULL&&scout->c==squeezeChar){iterator->next=scout->next;scout->next=NULL;free(scout);scout=iterator->next;}}iterator=iterator->next;}}else{while(iterator!=NULL&&iterator->next!=NULL){if(iterator->c==(iterator->next)->c){scout=iterator->next;squeezeChar=iterator->c;while(scout!=NULL&&scout->c==squeezeChar){iterator->next=scout->next;scout->next=NULL;free(scout);scout=iterator->next;}}iterator=iterator->next;}}returncharListToString(strList);}voidprintResults(charoriginalString[100],charfinalString[100],intoperation,charsqueezeChar){if(operation==SQUEEZE){printf("Specified Operation : SQUEEZE\nTarget Character : %c",squeezeChar);}elseprintf("Specified Operation : COLLAPSE");printf("\nOriginal %c%c%c%s%c%c%c\nLength : %d",174,174,174,originalString,175,175,175,(int)strlen(originalString));printf("\nFinal    %c%c%c%s%c%c%c\nLength : %d\n",174,174,174,finalString,175,175,175,(int)strlen(finalString));}intmain(intargc,char**argv){intoperation;charsqueezeChar;if(argc<3||argc>4){printf("Usage : %s <SQUEEZE|COLLAPSE> <String to be processed> <Character to be squeezed, if operation is SQUEEZE>\n",argv[0]);return0;}if(strcmpi(argv[1],"SQUEEZE")==0&&argc!=4){scanf("Please enter characted to be squeezed : %c",&squeezeChar);operation=SQUEEZE;}elseif(argc==4){operation=SQUEEZE;squeezeChar=argv[3][0];}elseif(strcmpi(argv[1],"COLLAPSE")==0){operation=COLLAPSE;}if(strlen(argv[2])<2){printResults(argv[2],argv[2],operation,squeezeChar);}else{printResults(argv[2],processString(argv[2],operation,squeezeChar),operation,squeezeChar);}return0;}

C#

usingSystem;usingstaticSystem.Linq.Enumerable;publicclassProgram{staticvoidMain(){string[]input={"","The better the 4-wheel drive, the further you'll be from help when ya get stuck!","headmistressship","\"If I were two-faced, would I be wearing this one?\" --- Abraham Lincoln ","..1111111111111111111111111111111111111111111111111111111111111117777888","I never give 'em hell, I just tell the truth, and they think it's hell. ","                                                    --- Harry S Truman  "};foreach(stringsininput){Console.WriteLine($"old: {s.Length} «««{s}»»»");stringc=Collapse(s);Console.WriteLine($"new: {c.Length} «««{c}»»»");}}staticstringCollapse(strings)=>string.IsNullOrEmpty(s)?"":s[0]+newstring(Range(1,s.Length-1).Where(i=>s[i]!=s[i-1]).Select(i=>s[i]).ToArray());}

Output:

C++

#include<string>#include<iostream>#include<algorithm>template<typenamechar_type>std::basic_string<char_type>collapse(std::basic_string<char_type>str){autoi=std::unique(str.begin(),str.end());str.erase(i,str.end());returnstr;}voidtest(conststd::string&str){std::cout<<"original string: <<<"<<str<<">>>, length = "<<str.length()<<'\n';std::stringcollapsed(collapse(str));std::cout<<"result string: <<<"<<collapsed<<">>>, length = "<<collapsed.length()<<'\n';std::cout<<'\n';}intmain(intargc,char**argv){test("");test("\"If I were two-faced, would I be wearing this one?\" --- Abraham Lincoln ");test("..1111111111111111111111111111111111111111111111111111111111111117777888");test("I never give 'em hell, I just tell the truth, and they think it's hell. ");test("                                                    --- Harry S Truman  ");return0;}

Output:

Clojure

(defncollapse[s](let[runs(partition-byidentitys)](apply str(map firstruns))))(defnrun-test[s](let[out(collapses)](str(format"Input: <<<%s>>> (len %d)\n"s(counts))(format"becomes: <<<%s>>> (len %d)\n"out(countout)))))

Output:

CLU

% Collapse a string collapse = proc (s: string) returns (string)    out: array[char] := array[char]$[]    last: char := '\000'        for c: char in string$chars(s) do        if c ~= last then            last := c            array[char]$addh(out,c)        end    end    return (string$ac2s(out))end collapse% Show a string in brackets, with its lengthbrackets = proc (s: string)    stream$putl(stream$primary_output(),                     int$unparse(string$size(s))                  || " <<<"                 || s                 || ">>>")end brackets% Show a string and its collapsed version, and the corresponding lengthsshow = proc (s: string)    brackets(s)    brackets(collapse(s))    stream$putl(stream$primary_output(), "")end show% Try the examples from the task descriptionstart_up = proc ()     examples: array[string] := array[string]$[        "",        "\"If I were two-faced, would I be wearing this one?\" --- Abraham Lincoln ",        "..1111111111111111111111111111111111111111111111111111111111111117777888",        "I never give 'em hell, I just tell the truth, and they think it's hell. ",        "                                                    --- Harry S Truman  "    ]        for ex: string in array[string]$elements(examples) do        show(ex)    endend start_up

Output:

Cowgol

include "cowgol.coh";include "strings.coh";# Collapse the string at in, and store the result in the given buffersub collapse(in: [uint8], out: [uint8]) is    var ch := [in];    in := @next in;     loop        if ch == 0 then            [out] := 0;            return;        elseif [in] != ch then            [out] := ch;            out := @next out;            ch := [in];        end if;        in := @next in;    end loop;end sub;# Given a string, collapse it and print all required outputsub show(str: [uint8]) is    sub bracket_length(str: [uint8]) is        print_i32(StrLen(str) as uint32);        print(" <<<");        print(str);        print(">>>");        print_nl();    end sub;        var buf: uint8[256];    collapse(str, &buf[0]);    bracket_length(str);    bracket_length(&buf[0]);    print_nl();end sub;# Strings from the taskvar strings: [uint8][] := {"","\"If I were two-faced, would I be wearing this one?\" --- Abraham Lincoln ","..1111111111111111111111111111111111111111111111111111111111111117777888","I never give 'em hell, I just tell the truth, and they think it's hell. ","                                                    --- Harry S Truman  "};# Collapse and print each stringvar i: @indexof strings := 0;while i < @sizeof strings loop    show(strings[i]);    i := i + 1;end loop;

Output:

Crystal

strings=["","\"If I were two-faced, would I be wearing this one?\" --- Abraham Lincoln ","..1111111111111111111111111111111111111111111111111111111111111117777888","I never give 'em hell, I just tell the truth, and they think it's hell. ","                                                   ---  Harry S Truman  ","The better the 4-wheel drive, the further you'll be from help when ya get stuck!","headmistressship","aardvark","😍😀🙌💃😍😍😍🙌",]strings.eachdo|str|puts"«««#{str}»»» (size#{str.size})"ssq=str.squeezeputs"«««#{ssq}»»» (size#{ssq.size})"putsend

D

importstd.stdio;voidcollapsible(strings){writeln("old: <<<",s,">>>, length = ",s.length);write("new: <<<");charlast='\0';intlen=0;foreach(c;s){if(c!=last){write(c);len++;}last=c;}writeln(">>>, length = ",len);writeln;}voidmain(){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  `);}

Output:

Delphi

programDetermine_if_a_string_is_collapsible;{$APPTYPE CONSOLE}usesSystem.SysUtils;procedurecollapsible(s:string);varc,last:char;len:Integer;beginwriteln('old: <<<',s,'>>>, length = ',s.length);write('new: <<<');last:=#0;len:=0;forcinsdobeginifc<>lastthenbeginwrite(c);inc(len);end;last:=c;end;writeln('>>>, length = ',len,#10);end;begincollapsible('');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.

DuckDB

createorreplacefunctionuniq(lst)aslist_filter(lst,(x,i)->i=1orlst[i-1]!=x);createorreplacefunctioncollapse(str)asstring_split(str,'').uniq().array_to_string('');.maxwidth200selectlength(s),collapse(s)ascollapsed,length(collapsed)fromunnest(['','"If I were two-faced, would I be wearing this one?" --- Abraham Lincoln ','..1111111111111111111111111111111111111111111111111111111111111117777888','I never give ''em hell, I just tell the truth, and they think it''s hell. ','                                                    --- Harry S Truman  '])_(s);

Output:

EasyLang

func$ collapse s$ .   for c$ in strchars s$      if c$ <> cc$ : r$ &= c$      cc$ = c$   .   return r$.s$[] &= ""s$[] &= "\"If I were two-faced, would I be wearing this one?\" --- Abraham Lincoln "s$[] &= "..1111111111111111111111111111111111111111111111111111111111111117777888"s$[] &= "I never give 'em hell, I just tell the truth, and they think it's hell. "s$[] &= "                                                    --- Harry S Truman  "for s$ in s$[]   print "«««" & s$ & "»»» (" & len s$ & ")"   r$ = collapse s$   print "«««" & r$ & "»»» (" & len r$ & ")"   print "".

Output:

ed

# by Artyom BologovHg/\(.\)\1*/s//\1/g,pQ

Output:

F#

// Collapse a String. Nigel Galloway: June 9th., 2020//As per the task description a function which 'determines if a character string is collapsible' by testing if any consecutive characters are the same.letisCollapsiblen=n|>Seq.pairwise|>Seq.tryFind(fun(n,g)->n=g)//As per the task description a function which 'if the string is collapsable, collapses the string (by removing immediately repeated characters).letcollapsen=matchisCollapsiblenwithSome_->leti=Seq.headnletfN=letmutableg=iin(funn->ifn=gthenfalseelseg<-n;true)letg=System.String([|yieldi;yield!Seq.tailn|>Seq.filterfN|])printfn"<<<%s>>> (length %d) colapses to <<<%s>>> (length %d)"nn.Lengthgg.Length|_->printfn"<<<%s>>> (length %d) does not colapse"nn.Lengthcollapse""collapse"\"If I were two-faced, would I be wearing this one?\" --- Abraham Lincoln "collapse"..1111111111111111111111111111111111111111111111111111111111111117777888"collapse"I never give 'em hell, I just tell the truth, and they think it's hell. "collapse"                                                    --- Harry S Truman  "collapse"withoutConsecutivelyRepeatedCharacters"

Output:

Factor

USING:formattingiokernelsbufssequencesstrings;IN:rosetta-code.string-collapse:(collapse)(str--str)unclip-slice1string>sbuf[overlastover=[drop][suffix!]if]reduce>string;:collapse(str--str)[""][(collapse)]if-empty;:.str(str--)duplength"«««%s»»» (length %d)\n"printf;:show-collapse(str--)["Before collapse: "write.str]["After  collapse: "writecollapse.str]binl;:collapse-demo(--){"""\"If I were two-faced, would I be wearing this one?\" --- Abraham Lincoln ""..1111111111111111111111111111111111111111111111111111111111111117777888""I never give 'em hell, I just tell the truth, and they think it's hell. ""                                                   ---  Harry S Truman  ""The better the 4-wheel drive, the further you'll be from help when ya get stuck!""headmistressship""aardvark""😍😀🙌💃😍😍😍🙌"}[show-collapse]each;MAIN:collapse-demo

Output:

FreeBASIC

ConstnumCad=5Data""Data"'If I were two-faced, would I be wearing this one?' --- Abraham Lincoln "Data"..1111111111111111111111111111111111111111111111111111111111111117777888"Data"I never give 'em hell, I just tell the truth, and they think it's hell. "Data"                                                    --- Harry S Truman  "DimSharedAsStringcadIN,cadOUTSubCollapseDimAsStringa,bIfcadIN=""ThencadOUT=cadIN:ExitSubcadOUT=Space(Len(cadIN))a=Left(cadIN,1)Mid(cadOUT,1,1)=aDimAsIntegertxtOUT=2ForiAsInteger=2ToLen(cadIN)b=Mid(cadIN,i,1)Ifa<>bThenMid(cadOUT,txtOUT,1)=b:txtOUT+=1:a=bNexticadOUT=Left(cadOUT,txtOUT-1)EndSubForjAsInteger=1TonumCadReadcadINCollapsePrint" <<<";cadIN;">>> (longitud ";Len(cadIN);_!")\n    se pliega a:\n <<<";cadOUT;">>> (longitud ";Len(cadOUT);!")\n"NextjSleep

Output:

Frink

collapse[str] := str =~ %s/(.)\1+/$1/glines = ["",         """"If I were two-faced, would I be wearing this one?" --- Abraham Lincoln ""","..1111111111111111111111111111111111111111111111111111111111111117777888","I never give 'em hell, I just tell the truth, and they think it's hell. ","                                                    --- Harry S Truman  "]for line = lines   println[collapse[line]]

Output:

FutureBasic

local fn CollapseString( inString as CFStringRef ) as CFStringRef  CFMutableStringRef outString = fn MutableStringWithCapacity(0)  long index  unichar prevChar = 0, currChar    for index = 0 to len(inString) - 1    currChar = fn StringCharacterAtIndex( inString, index )    if ( currChar != prevChar ) then MutableStringAppendFormat( outString, @"%C", currChar )    prevChar = currChar  nextend fn = outStringwindow 1, @"Collapse String", (0,0,600,300)CFStringRef string, collapsedStringstring = @""collapsedString = fn CollapseString( string )printf @"<<<%@>>> %ld\n<<<%@>>> %ld\n",string,len(string),collapsedString,len(collapsedString)string = @"\"If I were two-faced, would I be wearing this one?\" --- Abraham Lincoln "collapsedString = fn CollapseString( string )printf@"<<<%@>>> %ld\n<<<%@>>> %ld\n",string,len(string),collapsedString,len(collapsedString)string = @"..1111111111111111111111111111111111111111111111111111111111111117777888"collapsedString = fn CollapseString( string )printf@"<<<%@>>> %ld\n<<<%@>>> %ld\n",string,len(string),collapsedString,len(collapsedString)string = @"I never give 'em hell, I just tell the truth, and they think it's hell. "collapsedString = fn CollapseString( string )printf@"<<<%@>>> %ld\n<<<%@>>> %ld\n",string,len(string),collapsedString,len(collapsedString)string = @"                                                    --- Harry S Truman  "collapsedString = fn CollapseString( string )printf@"<<<%@>>> %ld\n<<<%@>>> %ld\n",string,len(string),collapsedString,len(collapsedString)string = @"\"AAAAAll that glitters is not goldDDDD.\" - William Shakespeare"collapsedString = fn CollapseString( string )printf@"<<<%@>>> %ld\n<<<%@>>> %ld\n",string,len(string),collapsedString,len(collapsedString)HandleEvents

Output:

Go

packagemainimport"fmt"// Returns collapsed string, original and new lengths in// unicode code points (not normalized).funccollapse(sstring)(string,int,int){r:=[]rune(s)le,del:=len(r),0fori:=le-2;i>=0;i--{ifr[i]==r[i+1]{copy(r[i:],r[i+1:])del++}}ifdel==0{returns,le,le}r=r[:le-del]returnstring(r),le,len(r)}funcmain(){strings:=[]string{"",`"If I were two-faced, would I be wearing this one?" --- Abraham Lincoln `,"..1111111111111111111111111111111111111111111111111111111111111117777888","I never give 'em hell, I just tell the truth, and they think it's hell. ","                                                   ---  Harry S Truman  ","The better the 4-wheel drive, the further you'll be from help when ya get stuck!","headmistressship","aardvark","😍😀🙌💃😍😍😍🙌",}for_,s:=rangestrings{cs,olen,clen:=collapse(s)fmt.Printf("original : length = %2d, string = «««%s»»»\n",olen,s)fmt.Printf("collapsed: length = %2d, string = «««%s»»»\n\n",clen,cs)}}

Output:

Groovy

classStringCollapsible{staticvoidmain(String[]args){for(Strings:["","\"If I were two-faced, would I be wearing this one?\" --- Abraham Lincoln ","..1111111111111111111111111111111111111111111111111111111111111117777888","I never give 'em hell, I just tell the truth, and they think it's hell. ","                                                    --- Harry S Truman  ","122333444455555666666777777788888888999999999","The better the 4-wheel drive, the further you'll be from help when ya get stuck!","headmistressship"]){Stringresult=collapse(s)System.out.printf("old:  %2d <<<%s>>>%nnew:  %2d <<<%s>>>%n%n",s.length(),s,result.length(),result)}}privatestaticStringcollapse(Stringinput){StringBuildersb=newStringBuilder()for(inti=0;i<input.length();i++){if(i==0||input.charAt(i-1)!=input.charAt(i)){sb.append(input.charAt(i))}}returnsb.toString()}}

Output:

Haskell

importText.Printf(printf)importData.Maybe(catMaybes)importControl.Monad(guard)input::[String]input=["","The better the 4-wheel drive, the further you'll be from help when ya get stuck!","headmistressship","\"If I were two-faced, would I be wearing this one?\" --- Abraham Lincoln ","..1111111111111111111111111111111111111111111111111111111111111117777888","I never give 'em hell, I just tell the truth, and they think it's hell. ","                                                    --- Harry S Truman  ","😍😀🙌💃😍😍😍🙌"]collapse::Eqa=>[a]->[a]collapse=catMaybes.(\xs->zipWith(\ab->guard(a/=b)>>a)(Nothing:xs)(xs<>[Nothing])).mapJustmain::IO()main=mapM_(\(a,b)->printf"old: %3d «««%s»»»\nnew: %3d «««%s»»»\n\n"(lengtha)a(lengthb)b)$((,)<*>collapse)<$>input

Output:

importData.List(group)isCollapsible::String->BoolisCollapsible=any((1<).length).groupcollapsed::String->Stringcollapsed=maphead.group

isCollapsible::String->BoolisCollapsible[]=FalseisCollapsible[_]=FalseisCollapsible(h:t@(x:_))=h==x||isCollapsibletcollapsed::String->Stringcollapsed[]=[]collapsed[x]=[x]collapsed(h:t@(x:_))|h==x=collapsedt|otherwise=h:collapsedt

Icon andUnicon

procedure main()   strings := ["",   "\"If I were two-faced, would I be wearing this one?\" --- Abraham Lincoln ",   "..1111111111111111111111111111111111111111111111111111111111111117777888",   "I never give 'em hell, I just tell the truth, and they think it's hell.  ",   "                                                    --- Harry S Truman   "   ]   while collapse(!strings)endprocedure collapse(s)   ns := ""   s ? while ns ||:= move(1) do tab(many(ns[*ns]))   write("original: <<<",s,">>>",*s)   write("collapsed:<<<",ns,">>>",*ns)end

J

Java

//  Title:  Determine if a string is collapsiblepublicclassStringCollapsible{publicstaticvoidmain(String[]args){for(Strings:newString[]{"","\"If I were two-faced, would I be wearing this one?\" --- Abraham Lincoln ","..1111111111111111111111111111111111111111111111111111111111111117777888","I never give 'em hell, I just tell the truth, and they think it's hell. ","                                                    --- Harry S Truman  ","122333444455555666666777777788888888999999999","The better the 4-wheel drive, the further you'll be from help when ya get stuck!","headmistressship"}){Stringresult=collapse(s);System.out.printf("old:  %2d <<<%s>>>%nnew:  %2d <<<%s>>>%n%n",s.length(),s,result.length(),result);}}privatestaticStringcollapse(Stringin){StringBuildersb=newStringBuilder();for(inti=0;i<in.length();i++){if(i==0||in.charAt(i-1)!=in.charAt(i)){sb.append(in.charAt(i));}}returnsb.toString();}}

Output:

JavaScript

String.prototype.collapse=function(){letstr=this;for(leti=0;i<str.length;i++){while(str[i]==str[i+1])str=str.substr(0,i)+str.substr(i+1);}returnstr;}// testingletstrings=['','"If I were two-faced, would I be wearing this one?" --- Abraham Lincoln ','..1111111111111111111111111111111111111111111111111111111111111117777888',`I never give 'em hell, I just tell the truth, and they think it's hell. `,'                                                    --- Harry S Truman  '];for(leti=0;i<strings.length;i++){letstr=strings[i],col=str.collapse();console.log(`«««${str}»»» (${str.length})`);console.log(`«««${col}»»» (${col.length})`);}

Output:

jq

# Input: an array# Output: a streamdef uniq: foreach .[] as $x ({x:nan, y:.[0]}; {x:$x, y:.x}; select(.x != .y) | .x);def collapse: explode | [uniq] | implode;

def Guillemets: "«««\(.)»»»";"Original: \(Guillemets) has length \(length)",(collapse | "Collapsed \(Guillemets) has length \(length)")

Original:«««»»»haslength0Collapsed«««»»»haslength0Original:«««"If I were two-faced, would I be wearing this one?"---AbrahamLincoln»»»haslength72Collapsed«««"If I were two-faced, would I be wearing this one?"-AbrahamLincoln»»»haslength70Original:«««..1111111111111111111111111111111111111111111111111111111111111117777888»»»haslength72Collapsed«««.178»»»haslength4Original:«««Inevergive'em hell, I just tell the truth, and they think it'shell.»»»haslength72Collapsed«««Inevergive'em hel, I just tel the truth, and they think it'shel.»»»haslength69Original:«««---HarrySTruman»»»haslength72Collapsed«««-HarySTruman»»»haslength17

Julia

constteststrings=["",""""If I were two-faced, would I be wearing this one?" --- Abraham Lincoln ""","..1111111111111111111111111111111111111111111111111111111111111117777888","""I never give 'em hell, I just tell the truth, and they think it's hell. ""","                                                    --- Harry S Truman  "]functioncollapse(s)len=length(s)iflen<2returns,len,s,lenendresult=last=s[1]forcins[2:end]ifc!=lastlast=cresult*=cendendreturns,len,result,length(result)endfunctiontestcollapse(arr)forsinarr(s1,len1,s2,len2)=collapse(s)println("«««$s1»»» (length$len1)\n    collapses to:\n«««$s2»»» (length$len2).\n")endendtestcollapse(teststrings)

Output:

Condensed version:

constteststrings=["",""""If I were two-faced, would I be wearing this one?" --- Abraham Lincoln ""","..1111111111111111111111111111111111111111111111111111111111111117777888","""I never give 'em hell, I just tell the truth, and they think it's hell. ""","                                                    --- Harry S Truman  "]collapse(s)=(t=isempty(s)?"":s[1:1];forcinsifc!=t[end]t*=cend;end;t)forsinteststringsn,t=length(s),collapse(s)println("«««$s»»» (length$n)\n    collapses to:\n«««$t»»» (length$(length(t))).\n")end

Kotlin

funcollapse(s:String):String{valcs=StringBuilder()varlast:Char=0.toChar()for(cins){if(c!=last){cs.append(c)last=c}}returncs.toString()}funmain(){valstrings=arrayOf("","\"If I were two-faced, would I be wearing this one?\" --- Abraham Lincoln ","..1111111111111111111111111111111111111111111111111111111111111117777888","I never give 'em hell, I just tell the truth, and they think it's hell. ","                                                   ---  Harry S Truman  ","The better the 4-wheel drive, the further you'll be from help when ya get stuck!","headmistressship","aardvark")for(sinstrings){valc=collapse(s)println("original : length = ${s.length}, string = «««$s»»»")println("collapsed : length = ${c.length}, string = «««$c»»»")println()}}

Output:

Ksh

#!/bin/ksh# Determine if a string is collapsible (repeated letters)## Variables:#typeset-astringsstrings[0]=""strings[1]='"If I were two-faced, would I be wearing this one?" --- Abraham Lincoln'strings[2]="..1111111111111111111111111111111111111111111111111111111111111117777888"strings[3]="I never give 'em hell, I just tell the truth, and they think it's hell."strings[4]="                                                    --- Harry S Truman"typeset-aGuillemet=("«««""»»»")## Functions:### Function _collapse(str) - return colapsed version of str#function_collapse{typeset_str;_str="$1"typeset_i_buff;integer_ifor((_i=1;_i<${#_str};_i++));doif[["${_str:$((_i-1)):1}"=="${_str:${_i}:1}"]];thencontinueelse_buff+=${_str:$((_i-1)):1}fidone[["${_str:$((_i-1)):1}"!="${_str:${_i}:1}"]]&&_buff+=${_str:$((_i-1)):1}echo"${_buff}"}####### main #######for((i=0;i<${#strings[*]};i++));dostr=$(_collapse"${strings[i]}")print${#strings[i]}"${Guillemet[0]}${strings[i]}${Guillemet[1]}"print${#str}"${Guillemet[0]}${str}${Guillemet[1]}\n"done

Output:

Lua

functioncollapse(s)localns=""locallast=nilforcins:gmatch"."doiflasttheniflast~=cthenns=ns..cendlast=celsens=ns..clast=cendendreturnnsendfunctiontest(s)print("old: "..s:len().." <<<"..s..">>>")locala=collapse(s)print("new: "..a:len().." <<<"..a..">>>")endfunctionmain()test("")test("The better the 4-wheel drive, the further you'll be from help when ya get stuck!")test("headmistressship")test("\"If I were two-faced, would I be wearing this one?\" --- Abraham Lincoln ")test("..1111111111111111111111111111111111111111111111111111111111111117777888")test("I never give 'em hell, I just tell the truth, and they think it's hell. ")test("                                                    --- Harry S Truman  ")endmain()

Output:

Mathematica /Wolfram Language

ClearAll[StringCollapse]StringCollapse[s_String]:=FixedPoint[StringReplace[y_~~y_:>y],s]strings={"","\"IfIweretwo-faced,wouldIbewearingthisone?\" --- Abraham Lincoln ","..1111111111111111111111111111111111111111111111111111111111111117777888","I never give 'em hell, I just tell the truth, and they think it's hell. ","                                                    --- Harry S Truman  "};Do[Print["«««"<>s<>"»»»"];Print["Length = ",StringLength[s]];Print["«««"<>StringCollapse[s]<>"»»»"];Print["Length = ",StringLength[StringCollapse[s]]],{s,strings}]

Output:

MATLAB /Octave

functionr=collapse(s)ix=find((s(1:end-1)==s(2:end))+1;r=s;r(ix)=[];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);endcollapse('',' ')collapse('║╚═══════════════════════════════════════════════════════════════════════╗','-')collapse('║"If I were two-faced, would I be wearing this one?" --- Abraham Lincoln ║','7')collapse('║..1111111111111111111111111111111111111111111111111111111111111117777888║','.')collapse('║I never give ''em hell, I just tell the truth, and they think it''s hell. ║','.')collapse('║                                                    --- Harry S Truman  ║','.')collapse('║                                                    --- Harry S Truman  ║','-')collapse('║                                                    --- Harry S Truman  ║','r')

Output:

Miranda

main :: [sys_message]main = [Stdout (lay (map test tests))]tests :: [[char]]tests= [  "",  "\"If I were two-faced, would I be wearing this one?\" --- Abraham Lincoln ",  "..1111111111111111111111111111111111111111111111111111111111111111111788",  "I never give 'em hell, I just tell the truth, and they think it's hell. ",  "                                                     --- Harry S Truman "  ]test :: [char]->[char]test s = lay [before, after]         where before = disp s               after  = disp (collapse s)disp :: [char]->[char]disp s = show (#s) ++ ": <<<" ++ s ++ ">>>"collapse :: [*]->[*]collapse []       = []collapse [x]      = [x]collapse (x:y:xs) = collapse (y:xs),   if x=y                  = x:collapse (y:xs), otherwise

Output:

Modula-2

MODULEStrCollapse;FROMInOutIMPORTWriteString,WriteCard,WriteLn;FROMStringsIMPORTLength;(* Collapse a string *)PROCEDURECollapse(in:ARRAYOFCHAR;VARout:ARRAYOFCHAR);VARi,o:CARDINAL;BEGINi:=0;o:=0;WHILE(i<HIGH(in))AND(in[i]#CHR(0))DOIF(o=0)OR(out[o-1]#in[i])THENout[o]:=in[i];INC(o);END;INC(i);END;out[o]:=CHR(0);ENDCollapse;(* Display a string and collapse it as stated in the task *)PROCEDURETask(s:ARRAYOFCHAR);VARbuf:ARRAY[0..127]OFCHAR;PROCEDURELengthAndBrackets(s:ARRAYOFCHAR);BEGINWriteCard(Length(s),2);WriteString(" <<<");WriteString(s);WriteString(">>>");WriteLn();ENDLengthAndBrackets;BEGINLengthAndBrackets(s);Collapse(s,buf);LengthAndBrackets(buf);WriteLn();ENDTask;BEGINTask("");Task('"If I were two-faced, would I be wearing this one?" --- Abraham Lincoln ');Task("..1111111111111111111111111111111111111111111111111111111111111117777888");Task("I never give 'em hell, I just tell the truth, and they think it's hell. ");Task("                                                    --- Harry S Truman  ");ENDStrCollapse.

Output:

NetLogo

to-report split [ string ]   ;; utility reporter to split a string into a list  report n-values length string [ [ n ] -> item n string ]endto-report collapse [ string ]  ;; reporter that actually does the collapse function  ifelse ( string = "" )  [ report "" ]  [ report reduce [ [ a b ] -> (word a ifelse-value last a != b [ b ] [ "" ] ) ] split string ]endto-report format [ string ]  ;; reporter to format the output as required  report ( word "<<<" string ">>> " length string )endto demo-collapse [ string ]  ;; procedure to display the required output  output-print format string  output-print format collapse stringendto demo  ;; procedure to perform the test cases  foreach   [ ""    "\"If I were two-faced, would I be wearing this one?\" --- Abraham Lincoln "    "..1111111111111111111111111111111111111111111111111111111111111117777888"    "I never give 'em hell, I just tell the truth, and they think it's hell. "    "                                                    --- Harry S Truman  "  ]  demo-collapseend

Output:

Nim

importunicode,strformatproccollapse(s:string)=letoriginal=s.toRunesechofmt"Original:  length = {original.len}, string = «««{s}»»»"varprevious=Rune(0)varcollapsed:seq[Rune]forruneinoriginal:ifrune!=previous:collapsed.add(rune)previous=runeechofmt"Collapsed: length = {collapsed.len}, string = «««{collapsed}»»»"echo""constStrings=["","\"If I were two-faced, would I be wearing this one?\" --- Abraham Lincoln ","..1111111111111111111111111111111111111111111111111111111111111117777888","I never give 'em hell, I just tell the truth, and they think it's hell. ","                                                   ---  Harry S Truman  ","The better the 4-wheel drive, the further you'll be from help when ya get stuck!","headmistressship","aardvark","😍😀🙌💃😍😍😍🙌",]forsinStrings:s.collapse()

Output:

Perl

usestrict;usewarnings;useutf8;binmodeSTDOUT,":utf8";my@lines=split"\n",<<~'STRINGS';"If I were two-faced, would I be wearing this one?"---AbrahamLincoln..1111111111111111111111111111111111111111111111111111111111111117777888Inevergive'em hell, I just tell the truth, and they think it'shell.---HarrySTrumanTheAmericanpeoplehavearighttoknowiftheirpresidentisacrook.---RichardNixonAАΑAАΑAАΑAАΑAАΑAАΑAАΑAАΑAАΑAАΑAАΑAАΑAАΑAАΑAАΑAАΑAАΑAАΑAАΑAАΑAАΑAАΑAАΑAАΑAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAASTRINGSfor(@lines){my$squish=s/(.)\1+/$1/gr;printf"\nLength: %2d <<<%s>>>\nCollapsible: %s\nLength: %2d <<<%s>>>\n",length($_),$_,$_ne$squish?'True':'False',length($squish),$squish}

Output:

PascalABC.NET

##functionCollapse(s:String):=ifString.IsNullOrEmpty(s)Then''elses[1]+newString(Range(2,s.Length).Where(i->s[i]<>s[i-1]).Select(i->s[i]).ToArray);varinput:=|'','The better the 4-wheel drive, the further you''ll be from help when ya get stuck!','headmistressship','"If I were two-faced, would I be wearing this one? --- Abraham Lincoln "','..1111111111111111111111111111111111111111111111111111111111111117777888','I never give''em hell, I just tell the truth, and they think it''s hell. ','                                                    --- Harry S Truman  '|;foreachvarsininputdobeginWriteln('old: ',s.Length,' «««',s,'»»»');varc:=Collapse(s);WriteLn('new: ',c.Length,' «««',c,'»»»')end;