RosettaCodeData/Task/Numerical-integration/Ursala/numerical-integration-2.ursala

3 lines
146 B
Text
Raw Permalink Normal View History

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