Return to Answer

added 863 characters in body

Source Link

edited Jul 25 at 6:32

Wolfram Language (Mathematica), 3131 29 bytes

Attributes@f=Flat
a__~f~a__=f@af[a___,b__,b__,c___]=f[a,b,c]

Input [characters...]. Return the characters of the reduced string, wrapped in f.

NonCommutativeMultiply (**) is a conveniently Flat undefined operator. Unfortunately, it needs to be Unprotected before we can add a definition. Try it online!

Attributes@f=Flat
a__~f~a__=f@a

Input [characters...]. Return the characters of the reduced string, wrapped in f.

f[a___,b__,b__,c___]=f[a,b,c]

Input [characters...]. Return the characters of the reduced string, wrapped in f.

NonCommutativeMultiply (**) is a conveniently Flat undefined operator. Unfortunately, it needs to be Unprotected before we can add a definition. Try it online!

Source Link

created Jul 24 at 22:54

Attributes@f=Flat
a__~f~a__=f@a

Input [characters...]. Return the characters of the reduced string, wrapped in f.