RosettaCodeData/Task/Numerical-integration/Ursala/numerical-integration-2.ursala
2023-07-01 13:44:08 -04:00

3 lines
146 B
Text

(integral_by "m") ("f","a","b","n") =
iprod ^(* ! div\float"n" minus/"b" "a",~&) ^H(*+ "m"+ -:"f"+ * ^/~& "f",~&ytp) (ari successor "n")/"a" "b"