In [ ]: In [ ]: Problem 3 Write a function buckets : ('a -> 'a > bool) -> 'a list -> 'a list list that partitions a list into equivalence classes. That is, buckets equiv 1st should return a list of lists where each sublist in the result contains equivalent elements, where two elements are considered equivalent if equiv returns true. For example: buckets () [1;2;3;4] = [[1]; [2]; [3];[4]] buckets (=) [1; 2; 3; 4; 2; 3; 4;3;4] = [[1]; [2;2]; [3; 3; 3]; [4; 4;4]] buckets (fun x y-> (=) (x mod 3) (y mod 3)) [1; 2; 3; 4; 5; 6] = [[1;4]; [2;5]; [3;6]] The order of the buckets must reflect the order in which the elements appear in the original list. For example, the output of buckets (=) [1;2;3;4] should be [[1]; [2]; [3]; [4]] and not [[2]; [1]; [3]; [4]] or any other permutation. The order of the elements in each bucket must reflect the order in which the elements appear in the original list. For example, the output of buckets (fun x y (=) (x mod 3) (y mod 3)) [1; 2; 3; 4; 5; 6] should be [[1;4]; [2;5]; [3;6]] and not [[4;1]; [5;2]; [3; 6]] or any other permutations. Assume that the comparison function ('a -> 'a -> bool) is commutative, associative and idempotent. Just use lists. Do not use sets or hash tables. List append function @ may come in handy. [1;2;3] @[4;5;6] = [1;2;3; 4; 5;6]. let buckets p 1 = (* YOUR CODE HERE *) assert (buckets (=) [1;2;3;4] = [[¹]; [2]; [3]; [4]]); assert (buckets (=) [1; 2; 3; 4; 2; 3; 4; 3; 4] = [[1]; [2;2]; [3; 3; 3]; [4; 4; 4]]); assert (buckets (fun x y-> (=) (x mod 3) (y mod 3)) [1; 2; 3; 4; 5; 6] = [[1;4]; [2;5]; [3; 6]])
In [ ]: In [ ]: Problem 3 Write a function buckets : ('a -> 'a > bool) -> 'a list -> 'a list list that partitions a list into equivalence classes. That is, buckets equiv 1st should return a list of lists where each sublist in the result contains equivalent elements, where two elements are considered equivalent if equiv returns true. For example: buckets () [1;2;3;4] = [[1]; [2]; [3];[4]] buckets (=) [1; 2; 3; 4; 2; 3; 4;3;4] = [[1]; [2;2]; [3; 3; 3]; [4; 4;4]] buckets (fun x y-> (=) (x mod 3) (y mod 3)) [1; 2; 3; 4; 5; 6] = [[1;4]; [2;5]; [3;6]] The order of the buckets must reflect the order in which the elements appear in the original list. For example, the output of buckets (=) [1;2;3;4] should be [[1]; [2]; [3]; [4]] and not [[2]; [1]; [3]; [4]] or any other permutation. The order of the elements in each bucket must reflect the order in which the elements appear in the original list. For example, the output of buckets (fun x y (=) (x mod 3) (y mod 3)) [1; 2; 3; 4; 5; 6] should be [[1;4]; [2;5]; [3;6]] and not [[4;1]; [5;2]; [3; 6]] or any other permutations. Assume that the comparison function ('a -> 'a -> bool) is commutative, associative and idempotent. Just use lists. Do not use sets or hash tables. List append function @ may come in handy. [1;2;3] @[4;5;6] = [1;2;3; 4; 5;6]. let buckets p 1 = (* YOUR CODE HERE *) assert (buckets (=) [1;2;3;4] = [[¹]; [2]; [3]; [4]]); assert (buckets (=) [1; 2; 3; 4; 2; 3; 4; 3; 4] = [[1]; [2;2]; [3; 3; 3]; [4; 4; 4]]); assert (buckets (fun x y-> (=) (x mod 3) (y mod 3)) [1; 2; 3; 4; 5; 6] = [[1;4]; [2;5]; [3; 6]])
Database System Concepts
7th Edition
ISBN:9780078022159
Author:Abraham Silberschatz Professor, Henry F. Korth, S. Sudarshan
Publisher:Abraham Silberschatz Professor, Henry F. Korth, S. Sudarshan
Chapter1: Introduction
Section: Chapter Questions
Problem 1PE
Related questions
Question
100%
OCAML Code for the solution, Not python or another language.
![Problem 3
In [ ]:
Write a function
buckets : ('a -> 'a -> bool) -> 'a list -> 'a list list
that partitions a list into equivalence classes. That is, buckets equiv 1st should return a list of lists where each sublist in the result contains equivalent
elements, where two elements are considered equivalent if equiv returns true. For example:
buckets (=) [1; 2; 3; 4] = [[1]; [2] ; [3]; [4]]
buckets (=) [1; 2; 3; 4; 2; 3; 4; 3; 4]
buckets (fun x y -> (=) (x mod 3)
[[1;4]; [2;5]; [3; 6]]
The order of the buckets must reflect the order in which the elements appear in the original list. For example, the output of buckets (=) [1;2;3;4]
should be [[1] ; [2] ; [3] ; [4]] and not [[2]; [¹]; [3]; [4]] or any other permutation.
=
The order of the elements in each bucket must reflect the order in which the elements appear in the original list. For example, the output of buckets (fun x
y -> (=) (x mod 3) (y mod 3)) [1; 2; 3; 4; 5; 6] should be [[1;4]; [2;5]; [3;6]] and not [[4;1]; [5;2]; [3;6]] or any other
permutations.
Just use lists. Do not use sets or hash tables.
[[1]; [2; 2]; [3; 3; 3]; [4; 4;4]]
(y mod 3)) [1; 2; 3; 4; 5; 6]
Assume that the comparison function ('a -> 'a -> bool) is commutative, associative and idempotent.
In [] let buckets p 1 =
List append function @ may come in handy. [1;2;3] @ [4;5;6]
(* YOUR CODE HERE *)
assert (buckets (=) [1; 2; 3; 4] [[¹]; [2] ; [3]; [4]]);
assert (buckets (=) [1; 2; 3; 4; 2; 3; 4; 3; 4]
assert (buckets (fun x y -> (=) (x mod 3)
=
=
[1; 2; 3; 4; 5; 6].
[[1]; [2; 2]; [3; 3; 3]; [4; 4; 4]]);
(y mod 3)) [1; 2; 3; 4; 5; 6]
=
[[1;4]; [2;5]; [3; 6]])](/v2/_next/image?url=https%3A%2F%2Fcontent.bartleby.com%2Fqna-images%2Fquestion%2F95a918cc-648a-4ba1-8333-a4ee16085cbc%2Ffcf2971b-c8e5-4326-a360-1b0dedfc90fb%2F5vl6bg_processed.png&w=3840&q=75)
Transcribed Image Text:Problem 3
In [ ]:
Write a function
buckets : ('a -> 'a -> bool) -> 'a list -> 'a list list
that partitions a list into equivalence classes. That is, buckets equiv 1st should return a list of lists where each sublist in the result contains equivalent
elements, where two elements are considered equivalent if equiv returns true. For example:
buckets (=) [1; 2; 3; 4] = [[1]; [2] ; [3]; [4]]
buckets (=) [1; 2; 3; 4; 2; 3; 4; 3; 4]
buckets (fun x y -> (=) (x mod 3)
[[1;4]; [2;5]; [3; 6]]
The order of the buckets must reflect the order in which the elements appear in the original list. For example, the output of buckets (=) [1;2;3;4]
should be [[1] ; [2] ; [3] ; [4]] and not [[2]; [¹]; [3]; [4]] or any other permutation.
=
The order of the elements in each bucket must reflect the order in which the elements appear in the original list. For example, the output of buckets (fun x
y -> (=) (x mod 3) (y mod 3)) [1; 2; 3; 4; 5; 6] should be [[1;4]; [2;5]; [3;6]] and not [[4;1]; [5;2]; [3;6]] or any other
permutations.
Just use lists. Do not use sets or hash tables.
[[1]; [2; 2]; [3; 3; 3]; [4; 4;4]]
(y mod 3)) [1; 2; 3; 4; 5; 6]
Assume that the comparison function ('a -> 'a -> bool) is commutative, associative and idempotent.
In [] let buckets p 1 =
List append function @ may come in handy. [1;2;3] @ [4;5;6]
(* YOUR CODE HERE *)
assert (buckets (=) [1; 2; 3; 4] [[¹]; [2] ; [3]; [4]]);
assert (buckets (=) [1; 2; 3; 4; 2; 3; 4; 3; 4]
assert (buckets (fun x y -> (=) (x mod 3)
=
=
[1; 2; 3; 4; 5; 6].
[[1]; [2; 2]; [3; 3; 3]; [4; 4; 4]]);
(y mod 3)) [1; 2; 3; 4; 5; 6]
=
[[1;4]; [2;5]; [3; 6]])
Expert Solution
This question has been solved!
Explore an expertly crafted, step-by-step solution for a thorough understanding of key concepts.
This is a popular solution!
Trending now
This is a popular solution!
Step by step
Solved in 2 steps
Follow-up Questions
Read through expert solutions to related follow-up questions below.
Follow-up Question
This is what i'm getting from typing in the code, any suggestions how to solve the error?
![12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
(*let buckets p 1 =
[]*)
let buckets (f: 'a -> 'a -> bool) (lst:'a list): 'a list list =
let rec find (find_f: 'a →> 'a →> bool) (find_ht: 'a)(find_acc: 'a list list): 'a list list =
match find_acc with
PROBLEMS
18
19
[] -> [[find_ht]]
| head: :tail -> match head with h::_-> if f h find_ht then
|| (find_ht::head)::tail else head::(find f find_ht tail)
in
let rec parse (parse_f: 'a →> 'a -> bool) (parse_lst: 'a list) (parse_acc: 'a list list): 'a list_list =
match parse_lst with
[] -> parse_acc
| ht::tl -> parse f tl (find f ht parse_acc)
in
match 1st with
[] -> []
| ht::tl -> parse f tl [[ht]]; ;
buckets (=) [1; 2; 3; 4] ; ;
buckets (=) [1; 2; 3; 4; 2; 3; 4; 3; 4] ; ;
buckets (fun x y -> (=) (x mod 3) (y mod 3)) [1; 2; 3; 4; 5; 6] ; ;
OUTPUT DEBUG CONSOLE TERMINAL PORTS
..match head with h::_-> if f h find_ht then
(find_ht::head)::tail else head::(find f find_ht tail)
Warning 8: this pattern-matching is not exhaustive.
Here is an example of a case that is not matched:
[]
Ⓒaef120@cheese:~/314CS/src$ ocamlc -o test assignment2.ml
File "assignment2.ml", line 27, characters 31-33:
27 | | ht::tl -> parse f tl [[ht]];;
^^
Error: Syntax error
● aef120@cheese:~/314CS/src$ ocamlc -o test assignment2.ml
File "assignment2.ml", line 18, characters 18-120:
18 |
..match head with h::_-> if f h find_ht then
19
(find_ht::head)::tail else head:: (find f find_ht tail)
Warning 8: this pattern-matching is not exhaustive.
Here is an example of a case that is not matched:
[]
O aef120@cheese:~/314CS/src$
> bash](https://content.bartleby.com/qna-images/question/95a918cc-648a-4ba1-8333-a4ee16085cbc/517105c5-6766-4995-a8fe-16df2fdf2e15/7cqqprn_processed.png)
Transcribed Image Text:12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
(*let buckets p 1 =
[]*)
let buckets (f: 'a -> 'a -> bool) (lst:'a list): 'a list list =
let rec find (find_f: 'a →> 'a →> bool) (find_ht: 'a)(find_acc: 'a list list): 'a list list =
match find_acc with
PROBLEMS
18
19
[] -> [[find_ht]]
| head: :tail -> match head with h::_-> if f h find_ht then
|| (find_ht::head)::tail else head::(find f find_ht tail)
in
let rec parse (parse_f: 'a →> 'a -> bool) (parse_lst: 'a list) (parse_acc: 'a list list): 'a list_list =
match parse_lst with
[] -> parse_acc
| ht::tl -> parse f tl (find f ht parse_acc)
in
match 1st with
[] -> []
| ht::tl -> parse f tl [[ht]]; ;
buckets (=) [1; 2; 3; 4] ; ;
buckets (=) [1; 2; 3; 4; 2; 3; 4; 3; 4] ; ;
buckets (fun x y -> (=) (x mod 3) (y mod 3)) [1; 2; 3; 4; 5; 6] ; ;
OUTPUT DEBUG CONSOLE TERMINAL PORTS
..match head with h::_-> if f h find_ht then
(find_ht::head)::tail else head::(find f find_ht tail)
Warning 8: this pattern-matching is not exhaustive.
Here is an example of a case that is not matched:
[]
Ⓒaef120@cheese:~/314CS/src$ ocamlc -o test assignment2.ml
File "assignment2.ml", line 27, characters 31-33:
27 | | ht::tl -> parse f tl [[ht]];;
^^
Error: Syntax error
● aef120@cheese:~/314CS/src$ ocamlc -o test assignment2.ml
File "assignment2.ml", line 18, characters 18-120:
18 |
..match head with h::_-> if f h find_ht then
19
(find_ht::head)::tail else head:: (find f find_ht tail)
Warning 8: this pattern-matching is not exhaustive.
Here is an example of a case that is not matched:
[]
O aef120@cheese:~/314CS/src$
> bash
Solution
by Bartleby ExpertKnowledge Booster
Learn more about
Need a deep-dive on the concept behind this application? Look no further. Learn more about this topic, computer-science and related others by exploring similar questions and additional content below.Recommended textbooks for you
Database System Concepts
Computer Science
ISBN:
9780078022159
Author:
Abraham Silberschatz Professor, Henry F. Korth, S. Sudarshan
Publisher:
McGraw-Hill Education
Starting Out with Python (4th Edition)
Computer Science
ISBN:
9780134444321
Author:
Tony Gaddis
Publisher:
PEARSON
Digital Fundamentals (11th Edition)
Computer Science
ISBN:
9780132737968
Author:
Thomas L. Floyd
Publisher:
PEARSON
Database System Concepts
Computer Science
ISBN:
9780078022159
Author:
Abraham Silberschatz Professor, Henry F. Korth, S. Sudarshan
Publisher:
McGraw-Hill Education
Starting Out with Python (4th Edition)
Computer Science
ISBN:
9780134444321
Author:
Tony Gaddis
Publisher:
PEARSON
Digital Fundamentals (11th Edition)
Computer Science
ISBN:
9780132737968
Author:
Thomas L. Floyd
Publisher:
PEARSON
C How to Program (8th Edition)
Computer Science
ISBN:
9780133976892
Author:
Paul J. Deitel, Harvey Deitel
Publisher:
PEARSON
Database Systems: Design, Implementation, & Manag…
Computer Science
ISBN:
9781337627900
Author:
Carlos Coronel, Steven Morris
Publisher:
Cengage Learning
Programmable Logic Controllers
Computer Science
ISBN:
9780073373843
Author:
Frank D. Petruzella
Publisher:
McGraw-Hill Education