/* PROVA D'ESAME 02-02-2022 */

#include <iostream>
#include <string.h>
using namespace std;

// STRUTTURE

struct bottiglia{
    char nome[21];  // nome stringa da 20 char + '\0'
    int anno;       // annata
    bool libera;    // se la posizione è libera
};

struct Cantina{
    int N;           // numero scaffali
    int M;           // numero massimo bottiglie per scaffale
    bottiglia* mat;  // contenuto cantina
};

// UTILITY

struct elem{
    char vino[21];
    elem* pun;
};

bool trovato(elem* testa, char* s){
    for(elem* p=testa; p!=NULL; p=p->pun){
        if(strcmp(p->vino, s)==0){  return true; }
    }
    return false;
}

// FUNZIONI TESTO A

void inizializzaCantina(Cantina& c, int a, int b){
    if(a<1){ a=1; }
    if(b<1){ b=1; }
    c.N = a;
    c.M = b;
    c.mat = new bottiglia[c.N*c.M];
    for(int i=0; i<c.N; i++){       // inizializza a liberi tutti gli spazi
        for(int j=0; j<c.M; j++){
            c.mat[i*c.M+j].libera = true;
        }
    }
    c.mat[0].libera = false;    // assegna al primo elemento il contenuto richiesto
    strcpy(c.mat[0].nome, "Barolo");
    c.mat[0].anno=2016;
}


bool aggiungiBottiglie(Cantina& c, int k, char* snome, int anno){
    if((anno <=0) || (strlen(snome)>20)){return false;}
    bool trovato = false;
    int conta;
    int scaffale;

    for(int i=0; (i<c.N && !trovato); i++){
        conta = 0;
        for(int j=0; j<c.M; j++){
            if(c.mat[i*c.M+j].libera){
                conta++;
            }
        }
        if(conta>=k){
            trovato = true;
            scaffale = i;
        }
    }
    if(!trovato){ return false; }
    conta = 0;
    for(int i = 0; (i<c.M)&&(conta<k); i++){
        if(c.mat[scaffale*c.M+i].libera){
            c.mat[scaffale*c.M+i].libera = false;
            c.mat[scaffale*c.M+i].anno = anno;
            strcpy(c.mat[scaffale*c.M+i].nome, snome);
            conta++;
        }
    }
    return true;
}


int eliminaBottiglie(Cantina& c, char* snome){
    int eliminate = 0;
    for(int i=0; i<c.N; i++){
        for(int j=0; j<c.M; j++){
            if((!c.mat[i*c.M+j].libera) && (strcmp(c.mat[i*c.M+j].nome, snome)==0)){
                c.mat[i*c.M+j].libera = true;
                eliminate++;
            }
        }
    }
    return eliminate;
}


elem* ListaNomi(Cantina& c, int anno){
    elem* lista = NULL;
    elem* q;
    for(int i=0; i<c.N; i++){
        for(int j=0; j<c.M; j++){
            if((!c.mat[i*c.M+j].libera) && (c.mat[i*c.M+j].anno == anno) && (!trovato(lista, c.mat[i*c.M+j].nome))){
                q = lista;
                lista = new elem;
                strcpy(lista->vino, c.mat[i*c.M+j].nome);
                lista->pun = q;
            }
        }
    }
    return lista;
}


void StampaCantina(Cantina& c, int j){
    if((j>0) && (j<=c.N)) {
        j--;  // gli scaffali partono da 1
        for (int i = 0; i < c.M; i++) {
            if (!c.mat[j * c.M + i].libera) {
                cout << "<" << c.mat[j * c.M + i].nome << ", " << c.mat[j * c.M + i].anno << "> ";
            }
        }
    }
    cout << endl;
}