请问我为何无法重现这个程序?

bifurcate[f_, a0_, k0_, k_, while_: (True &)] :=
NestWhileList[f, a0, while, 2, k0 + k - 1] // Drop[#, k0] &
logistic[r_, y_] := r y (1 - y);
Row@{"Initial value: ", a0 = RandomReal[{0.1, 0.9}]}
Row@{"Points per r: ", density = 10^2}
Row@{"Initial k: ", k0 = 10^4}
Row@{"Time taken: ",
Timing[plotData =
ParallelTable[{ConstantArray[r, density],
bifurcate[logistic[r, #] &, a0, k0,
density]}\[Transpose], {r, 3.5, 4, 0.0001}] //
Flatten[#, 1] &;][[1]], " s"}
Row@{"Data length: ", plotData // Length}
ListPlot[plotData, PlotStyle -> {PointSize[0], Opacity[.1]},
ImageSize -> 800, PlotRange -> {All, {0, 1}}]

你的问题出在logistic的定义，截图里的那个 \[RightTeeArrow] 符号在前文有定义，所以在你发的截图里这一行的字母都是绿色的，而你的代码这一行则是蓝色的
把这里直接改成函数的定义，或者在前面加一行
a_ \[RightTeeArrow] b_ := Function[a, b]
都可以，这里为了直观就直接用函数定义了
另外在用了并行的情况下这个点的计算是很快的，只是由于点太多所以ListPlot画图需要花好久

多谢来自@xycr的指正
那个符号其实不是\[RightTeeArrow]，而是\[Function]，是Function的中缀形式，输入方式可以是Esc+fn+Esc或者\[Function]

一长一短，差距还是挺明显的