1 [covered]
1 [covered]
,,,
ListLinePlot[LeafCount/@CombinatorFixedPointList[s[s[s][s][s[s]][s][s]],"MaxSize"20000,"MaxSteps"1000]]
2
2
,,,
ListLinePlot[LeafCount/@CombinatorFixedPointList[s[s[s[s][s]]][s][s[s]],"MaxSize"20000,"MaxSteps"1000]]
3
3
,,,
ListLinePlot[LeafCount/@CombinatorFixedPointList[s[s[s][s]][s][s[s[s]]],"MaxSize"20000,"MaxSteps"1000]]
4
4
,,,
ListLinePlot[LeafCount/@CombinatorFixedPointList[s[s[s][s]][s][s[s][s]],"MaxSize"20000,"MaxSteps"1000]]
5
5
,,,
ListLinePlot[LeafCount/@CombinatorFixedPointList[s[s[s[s]][s]][s][s[s]],"MaxSize"20000,"MaxSteps"1000]]
6
6
,,