Search code examples
visual-prolog

Error "illegal variable type for this position " in prolog


I try to make a search of animal, who has this property, but I have an error "illegal variable type for this position ".How to solve it?

domains
type=symbol
object=symbol
property=symbol
value=symbol
parent=symbol
predicates
nondeterm is_a(type, parent) 
nondeterm has_prop(object, property, value) 
nondeterm has_property(object, property, value) 
clauses
is_a(dog,wolf).
is_a(dingo,wolf).
is_a(wolf,volki).
is_a(coyote,volki).
is_a(jackal,volki).
is_a(volki,dogs).
is_a(fox,dogs).
is_a(arctic_fox,dogs).

has_prop(dogs, travel, walk). 
has_prop(dogs, food_for_child, milk).  
has_prop(volki, size, medium). 
has_prop(volki, color, brown). 
has_prop(arctic_fox, color, white). 
has_prop(arctic_fox, size, small). 
has_prop(fox, color, orange). 
has_prop(fox, size, small). 
has_prop(wolf, color, grey). 
has_prop(wolf, size, large). 
has_prop(dog, color, brown). 
has_prop(dog, size, small). 
has_prop(dingo, color, orange). 
has_prop(dingo, size, medium). 



has_property(Object, Property, Value):-
has_prop(Object, Property, Value). 
has_property(Object, Property, Value):-
is_a(Object,Parent), 
has_property(Parent, Property, Value).

goal
has_property(X,size,medium).

I have an error "illegal variable type for this position " at this line:

is_a(Object,Parent), 

Solution

  • The problem was in types and variables. I delete domains and work with simple types.

    Right Code:

    predicates
    nondeterm is_a(symbol, symbol) 
    nondeterm has_prop(symbol, symbol, symbol) 
    nondeterm has_property(symbol, symbol, symbol) 
    clauses
    is_a(dog,wolf).
    is_a(dingo,wolf).
    is_a(wolf,volki).
    is_a(coyote,volki).
    is_a(jackal,volki).
    is_a(volki,dogs).
    is_a(fox,dogs).
    is_a(arctic_fox,dogs).
    
    has_prop(dogs, travel, walk). 
    has_prop(dogs, food_for_child, milk).  
    has_prop(volki, size, medium). 
    has_prop(volki, color, brown). 
    has_prop(arctic_fox, color, white). 
    has_prop(arctic_fox, size, small). 
    has_prop(fox, color, orange). 
    has_prop(fox, size, small). 
    has_prop(wolf, color, grey). 
    has_prop(wolf, size, large). 
    has_prop(dog, color, brown). 
    has_prop(dog, size, small). 
    has_prop(dingo, color, orange). 
    has_prop(dingo, size, medium). 
    
    
    has_property(O, Property, Value):-
    has_prop(O, Property, Value). 
    has_property(O, Property, Value):-
    is_a(O,Parent), 
    has_property(Parent, Property, Value).
    
    goal
    has_property(X,size,medium).