Deconvolution/1D: Difference between revisions

(for*/matrix m n ([i (in-range 0 m)] [j (in-range 0 n)])

(cond [(or (< i j) (>= i (+ j l))) 0]

(define (least-square X y)

#<array '#(16 1) #[-3 -6 -1 8 -6 3 -1 -9 -9 3 -2 5 2 -2 -7 -1]>

</lang>

=={{header|Tcl}}==

{{works with|Tcl|8.5}}