Which Language is this?

Question

p = Join[{ If[x < t, 1/3 x^3, 100], If[x < t, 1/2 t x^2 - 1/6 x^3, 100]}, Table[1/2 (x^2) t + y0, {y0, -10, 40, 0.9}]]; Export["plot.gif", Table[Plot[p, {x, 0, 10.6}, PlotRange -> {0, 10.6}, AspectRatio -> 1, PlotRangeClipping -> True, PlotStyle -> PadRight[{Directive[Thickness[Medium], Red], Directive[Thickness[Medium], Green]}, 60, Directive[Gray, Dashed]], Exclusions -> {t}, ExclusionsStyle -> None, ImageSize -> 500, AxesLabel -> {x, y}, Epilog -> {Line[Flatten[ With[{\[Epsilon] = 0.025}, Table[{{x - \[E

Answer 1

@pegasus thanks

Answer 2

actually it is written in Wikipedia animation source code ,so Copy pasted it.

Answer 3

My guess is Swift

Answer 4

It's only a guess. I remember swift using those arrows but I can be wrong