Krotka

let rec czyDzienMiesac lista : bool list =
    match lista with
    | x::xs -> match x with
               | (a,(b,c,d),e) -> if b = c then true::czyDzienMiesac xs else false::czyDzienMiesac xs
    | [] -> []