;redcode-94
;name Active D
;author David Houston
;assert 1
;strategy Differentiate with active table!
;strategy
;strategy The polynomial and the number of
;strategy derivatives to take must be stored
;strategy immediately following the warrior
;strategy in the following format:
;strategy
;strategy The first line must be of the form
;strategy "djn.b -3, #N" where N is the number
;strategy of derivatives to take.
;strategy
;strategy The next line must be a "dat 0, 0"
;strategy statement.
;strategy
;strategy The remaining lines constitute the
;strategy polynomial. Each line must be of the
;strategy form "mul.ba #A_n, #n" where A_n
;strategy is the coefficient on the x^n term.
;strategy The terms must be listed in decreasing
;strategy order, starting with the highest
;strategy exponent. Every term in the polynomial
;strategy must be present in the table, even if
;strategy the coefficient is zero. Extra terms
;strategy of the form 0 * x^0 are permitted
;strategy at the end of the polynomial.
;strategy
;strategy The result of the computation will be
;strategy stored in the same format.
;strategy
;strategy The commented lines constitute the
;strategy table entries to instruct the warrior
;strategy to compute the third derivative of the
;strategy polynomial
;strategy x^5 + 6x^3 + 4x + 3

org go

go spl 5
mov.a #3, dec
dec djn.b #3, }0

djn.b -3, #3
dat 0 ,0
mul.ba #2, #5	;1 * x^5
mul.ba #1, #4	;0 * x^4
mul.ba #0, #3	;6 * x^3
mul.ba #2, #2	;0 * x^2
mul.ba #4, #1	;4 * x^1
mul.ba #3, #0	;3 * x^0

;mul.ba #0, #0	;0 * x^0 ; optional line

end