Please Do this in OCAML language and try to complete the program fully and without errors. Problem 4: Write maxrun, a function which returns the length of the longest sublist of negative or non-negative numbers and a list of absolute values of the original list elements. Ensure that this list is in the same order. To report multiple outputs, use a record. We’ll define this particular output record as run_output: type run_output = { length : int; entries : int list; } Template: let maxrun (l:int list) : run_output = (** YOUR CODE HERE **) Sample Unit Test let out = moveNeg [8; -5; 3; 0; 10; -4] in if out.length = 3 && out.entries = [8; 5; 3; 0; 10; 4] then print_string "YAY" else raise (Failure "OOPS");
Please Do this in OCAML language and try to complete the
Problem 4: Write maxrun, a function which returns the length of the longest sublist of negative or non-negative numbers and a list of absolute values of the original list elements. Ensure that this list is in the same order.
To report multiple outputs, use a record. We’ll define this particular output record as run_output:
type run_output = { length : int; entries : int list; }
Template:
let maxrun (l:int list) : run_output = (** YOUR CODE HERE **)
Sample Unit Test
let out = moveNeg [8; -5; 3; 0; 10; -4] in if out.length = 3 && out.entries = [8; 5; 3; 0; 10; 4] then print_string "YAY" else raise (Failure "OOPS");
![](/static/compass_v2/shared-icons/check-mark.png)
Trending now
This is a popular solution!
Step by step
Solved in 2 steps
![Blurred answer](/static/compass_v2/solution-images/blurred-answer.jpg)
![Computer Networking: A Top-Down Approach (7th Edi…](https://www.bartleby.com/isbn_cover_images/9780133594140/9780133594140_smallCoverImage.gif)
![Computer Organization and Design MIPS Edition, Fi…](https://www.bartleby.com/isbn_cover_images/9780124077263/9780124077263_smallCoverImage.gif)
![Network+ Guide to Networks (MindTap Course List)](https://www.bartleby.com/isbn_cover_images/9781337569330/9781337569330_smallCoverImage.gif)
![Computer Networking: A Top-Down Approach (7th Edi…](https://www.bartleby.com/isbn_cover_images/9780133594140/9780133594140_smallCoverImage.gif)
![Computer Organization and Design MIPS Edition, Fi…](https://www.bartleby.com/isbn_cover_images/9780124077263/9780124077263_smallCoverImage.gif)
![Network+ Guide to Networks (MindTap Course List)](https://www.bartleby.com/isbn_cover_images/9781337569330/9781337569330_smallCoverImage.gif)
![Concepts of Database Management](https://www.bartleby.com/isbn_cover_images/9781337093422/9781337093422_smallCoverImage.gif)
![Prelude to Programming](https://www.bartleby.com/isbn_cover_images/9780133750423/9780133750423_smallCoverImage.jpg)
![Sc Business Data Communications and Networking, T…](https://www.bartleby.com/isbn_cover_images/9781119368830/9781119368830_smallCoverImage.gif)