FUNCTION: delta - evaluate the delta-function on Lp

CALLING SEQUENCE:
delta(x)

PARAMETERS:
x - an arbitrary element of Lp; encoded as a list of t+1 integers

SYNOPSIS:

EXAMPLES:

> with(tubular):

> read_in(3,3,4);

> x := [-3,0,2,-4]; y := [0,0,2,-5]; z := [0,1,1,3];

> delta(x);

> delta(z);