f[x_]:=1-2*Abs[x-0.5];
x0=1.0/E;
n=100;
d1=NestList[f,x0,n];
ListLinePlot[d1]