Data commit

Task/Determine-if-a-string-is-collapsible/Smalltalk/determine-if-a-string-is-collapsible.st

@@ -0,0 +1,19 @@
+#(
+  '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,')' ).
+]