#include <stdio.h>
#include <stdlib.h>
#include <math.h>
#include <pthread.h>

#define Nmax 4
#define Pmax 3
pthread_mutex_t llave[Nmax];

// Solucion:    Eliminación de la condicion de espera circular.
//      Cada hilo solo tiene permitido poseer un recurso como maximo.

void *trabajo(void *tid){

    int thid, i, j, k, ya;
    double x=0;
    int mis_recursos[Nmax];

    thid = (int)tid;
    srand(thid);
    for(i=0;i<Nmax;i++){
        ya=0;
        while(ya==0){
            j=(int) (Nmax)*(rand()/(RAND_MAX+1.0));
            ya=1;
            for(k=0;k<i;k++){
                if (mis_recursos[k]==j){
                    ya=0;
                }
            }
        }
        mis_recursos[i]=j;
        printf("Soy %d y quiero el recurso %d\n",thid,j);
        pthread_mutex_lock(&llave[j]);
        for(k=0;k<10000;k++){
            x+=sqrt(sqrt(k+0.1));
        }
        k = (int) 2*(rand()/(RAND_MAX+1.0));
        sleep(k);
        printf("    Soy %d y tengo el recurso %d\n",thid,j);
        pthread_mutex_unlock(&llave[j]);
    }
    printf("**********ACABE! Soy %d\n",thid);

}

main(){

    int i, j;
    pthread_t th[Pmax];

    for(i=0;i<Nmax;i++){
        pthread_mutex_destroy(&llave[i]);
    }
    for(i=0;i<Nmax;i++){
        pthread_mutex_init(&llave[i],NULL);
    }
    for(i=0;i<Pmax;i++){
        j = pthread_create(&th[i],NULL,trabajo,(void *)i);
        if(j){
            printf("ERROR; return code from pthread_creat() is %d\n",j);
            exit(-1);
        }
    }
    for(i=0;i<Pmax;i++){
        pthread_join(th[i],NULL);
    }
    for(i=0;i<Nmax;i++){
        pthread_mutex_destroy(&llave[i]);
    }

    exit(0);

}