How can I find the length of the insect list with these facts?

-1
animal('conejo').
animal('venado').
animal('león').
animal('zorro').
animal('gato').
animal('camaleón').
animal('halcón).
animal('mosca').
animal('perro').
animal('cocodrilo').
animal('mosquito').
animal('serpiente').
animal('cotorra').
animal('gallina').
come('león', 'venado').
come('halcón', 'conejo').
come('camaleón', 'mosca').
come('zorro', 'gallina').
grupo('mamífero', ['gato', 'perro','conejo','venado','zorro','león']).
grupo('reptil', ['camaleón','cocodrilo','serpiente']).
grupo('insecto', ['mosca','mosquito']).
grupo('ave', ['halcón','cotorra','gallina']).
depredador(X):- animal(X), come(X,_),!.
presa(X):- animal(X), come(_,X),!.
    
asked by Cesar Borges Prado 27.08.2018 в 16:37
source

1 answer

0

You can use the length / 2 predicate on the list that you are interested in getting the length. For example:

grupo('insecto', ListaInsectos), 
length(ListaInsectos, Longitud), 
writeln(Longitud)

Exit:

2
ListaInsectos = [mosca, mosquito],
Longitud = 2
    
answered by 27.08.2018 в 16:50