Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ClearAll[sR]
- sR = StringReplace[Repeated["X", {8}] :> "XXXXX"];
- str = StringJoin@ConstantArray["X", 14]
- FixedPointList[sR, str]
- FixedPoint[sR, str]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement