So, I need help trasforming these thee functions to just one using List.fold_left let rec poly lst a x_j= match lst with |[] → 1. | (x_k,y_k)::ys ->if x_k == x_j then poly ys a x_j else ((a -. x_k) /. (x_j -. x_k)) *. poly ys a x_j;; let rec lagrange_helf lst l a = match lst with |[] → 0. | …

Lagrange (Help please)

jfeser May 9, 2022, 8:10pm 2

Is this a homework problem?

1 Like