1 [similar to S7] done
1 [similar to S7] done
, , ,
,
ListStepPlot[Differences[LeafCount/@CombinatorFixedPointList[s[s[s][s][s[s]][s][s]],"MaxSize"200000,"MaxSteps"1000]],PlotRangeAll]
2 done
2 done
, , ,
,
ListStepPlot[Differences[LeafCount/@CombinatorFixedPointList[s[s[s[s][s]]][s][s[s]],"MaxSize"200000,"MaxSteps"1000]],PlotRangeAll]
3 done
3 done
, , ,
,
ListStepPlot[Differences[LeafCount/@CombinatorFixedPointList[s[s[s][s]][s][s[s[s]]],"MaxSize"200000,"MaxSteps"1000]],PlotRangeAll]
4 done
4 done