7 lines
120 B
Text
7 lines
120 B
Text
fruit(apple,1).
|
|
fruit(banana,2).
|
|
fruit(cherry,4).
|
|
|
|
print_fruit_name(N) :-
|
|
fruit(Name,N),
|
|
printf("It is %w\nn", Name).
|