Ejercicio #3

unknown
prolog
a month ago
1.0 kB
Indexable
Never
%Ejercicio 03

sumar_arbol([],0):-!.

sumar_arbol([SI, DatoN , SD],Suma):-
    number(DatoN),
    sumar_arbol(SI,SumaIzq),
    sumar_arbol(SD,SumaDer),
    Suma is SumaIzq + SumaDer + DatoN,
    !.

sumar_arbol([SI, DatoN , SD],Suma):-
    \+ number(DatoN),
    sumar_arbol(SI,SumaIzq),
    sumar_arbol(SD,SumaDer),
    Suma is SumaIzq + SumaDer,
    !.

contador_elementos([],0):-!.

contador_elementos([SI, DatoN , SD],Contador):-
    number(DatoN), % Verifica si el valor es numérico
    contador_elementos(SI, ContadorIzq),
    contador_elementos(SD, ContadorDer),
    Contador is ContadorIzq + 1 + ContadorDer,
    !.

contador_elementos([SI, DatoN , SD],Contador):-
    \+ number(DatoN), % Verifica si el valor es numérico
    contador_elementos(SI, ContadorIzq),
    contador_elementos(SD, ContadorDer),
    Contador is ContadorIzq + ContadorDer,
    !.

media_aritmeticaa(Arbol,Prom):-
    sumar_arbol(Arbol,Suma),
    contador_elementos(Arbol,Cont),
    Prom is Suma / Cont.