Discriminant of a polynomial
Polynomial has roots n1 n2,,,nt.
Discriminant of y= (n1-n2)^2 * (n1-n3)^2...

:z()
:Prgm
:ClrIO
:zeros( (x-3) * (x-4) * (x-5) * (x-6),x )->y
:Disp y,y
:Pause
:ClrIO
:1.->n
:dim(y)->1+t
:1.->a
:While a<t
:1.->b
:While b<t
:If  b greaterthansign a  Then
:Disp y-y,{ y[a]-y[b], a, b, / , y[a] , y[b] }
:Pause
:ClrIO
:(y[a]-y[b])^2*n->n
:Disp  (-^2) ,(y[a]-y[b])^2
:Disp n, n
:Pause
:ClrIO
:EndIf
:b+1.->b
:EndWhile
:a+1.->a
:EndWhile
:Disp "nn", n
:EndPrgm

nn= 144 in this example