Tressette You are given the types: type colore = Spade | Coppa | Bastoni | Denari ;; type valore = Ace | Two | Three | Four | Five | Six | Seven | Jack | Knight | King ;; type mazzo = Null | Carta of carta and carta ={ c : colore ; v : valore ; mutable tl : mazzo };; (see the picture with cards) a. Write a function points : mazzo -> int = that given a deck of cards calculates its point score. The scoring is as follows: Ace is worth 1 point; Two, Three, King, Knight, Jack are each worth 1 3 ; and the rest do not contribute the the point total. The total point score is equal to the sum of the individual points, rounded down at the end.
Tressette
You are given the types:
type colore = Spade | Coppa | Bastoni | Denari ;;
type valore = Ace | Two | Three | Four | Five | Six |
Seven | Jack | Knight | King ;;
type mazzo = Null | Carta of carta and carta ={ c : colore ; v
: valore ; mutable tl : mazzo };;
(see the picture with cards)
a. Write a function points : mazzo -> int = that given a deck of cards calculates its point score. The scoring is as follows: Ace is worth 1 point; Two, Three, King, Knight, Jack are each worth 1 3 ; and the rest do not contribute the the point total. The total point score is equal to the sum of the individual points, rounded down at the end.
b. Write a function max_cards : mazzo -> mazzo = that takes a deck of cards and filters out everything except the greatest cards by value (valore) of each color. The order of cards by value is as follows: Three > Two > Ace > King > Knight > Jack > Seven > Six > Five > Four.
Due to the size of the output, lists like generate_cards 20 2023 are not shown, but can be generated with the use of the attached function.
![1 # let generate_cards length seed=Random. init seed;
Array. make length 0 |> Array.fold_left (fun x y->
Carta { c = [] Spade; Coppa; Bastoni; Denari|]. (Random.
int 4); v= [] Ace; Two; Three; Four; Five; Six; Seven; Jack;
Knight; King |]. (Random.int 10); tl= x}) Null ;;
2 val generate_cards : int -> int -> mazzo = <fun>
3 # points Null ;;
4 - int = 0
5 # points (generate_cards 20 2023) ;;
6 - int = 4
#points
(generate_cards
60 2024) ;;
8 int = 20
9 # points (generate_cards 30 2020) ;;
10 - int = 9
11 # max_cards Null ; ;
7
-
12
13 # max_cards
14
21
-
: mazzo = Null
-
(generate_cards 50 2023) ;;
: mazzo = Carta {c =
= Denari; v = Three; t1 = Null}}
15 # max_cards (generate_cards 10 2026) ;;
16
: mazzo
= Carta {c Bastoni; v = Two; tl = Null}
17 # max_cards (generate_cards 10 2032) ;;
18
19 Carta
20
{c
= Denari; v = Ace;
tl = Carta {c =
Spade; v
: mazzo =
Coppa; v = Three; tl
=
Coppa; v = Ace; tl
= Ace; tl = Null}}}
= Carta {c
=
Carta {c =](/v2/_next/image?url=https%3A%2F%2Fcontent.bartleby.com%2Fqna-images%2Fquestion%2Faf7f73a4-246e-4c35-8f96-56bf14bc4c1c%2Ff8109f51-b2ea-40a1-a7eb-63e73f69e0a4%2Fcynv5jm_processed.png&w=3840&q=75)
Step by step
Solved in 5 steps with 2 images
