Determine if a string is collapsible: Difference between revisions
Content deleted Content added
Line 2,333:
=={{header|Smalltalk}}==
<lang smalltalk>
'The better the 4-wheel drive, the further you''ll be from help when ya get stuck!'
'headmistressship'
'aardvark'
'😍😀🙌💃😍😍😍🙌'
) do:[:eachWord |
|shortened|
shortened :=
String streamContents:[:out |
eachWord inject:nil into:[:prev :this |
prev ~= this ifTrue:[out nextPut:this].
this
]
].
Transcript
showCR:( eachWord,'(length:',eachWord size,')' );
showCR:( shortened,'(length:',shortened size,')' ).
]</lang>
{{out}}
<pre>The better the 4-wheel drive, the further you'll be from help when ya get stuck!(length:80)
The beter the 4-whel drive, the further you'l be from help when ya get stuck!(length:77)
headmistressship(length:16)
headmistreship(length:14)
aardvark(length:8)
ardvark(length:7)
😍😀🙌💃😍😍😍🙌(length:8)
😍😀🙌💃😍🙌(length:6)</pre>
=={{header|Swift}}==
| |||