Advertisement
Guest User

Untitled

a guest
Jun 17th, 2019
70
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.17 KB | None | 0 0
  1. ClearAll[sR]
  2. sR = StringReplace[Repeated["X", {8}] :> "XXXXX"];
  3.  
  4. str = StringJoin@ConstantArray["X", 14]
  5.  
  6. FixedPointList[sR, str]
  7.  
  8. FixedPoint[sR, str]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement