Matematyka.pl

Horner = Function[{poly, xo}, {lista = Reverse[ConfitionList[poly]],
lista2 = {}}, lista2 = AppendTo[lista2, lista[[1]]],
For[i = 1, i <= Length[lista] - 1,
i++ AppendTo[lista2, xo *lista2[] + lista[[i + 1]]],
Print["lista wspol", lista2]]]

co jest nie tak w tym programie?

Horner = Function[{poly, xo}, {lista = Reverse[ConfitionList[poly]],

Podejrzewam, że skoro otworzyłeś nawias {, to pewnie musisz go gdzieś zamknąć.

Następnym razem jak będziesz oczekiwał pomocy, to napisz jaki konkretnie masz problem.