Определить номер элемента k в списке - Prolog

Формулировка задачи:

Есть код который определяет номер элемента в списке, а как этот номер вывести на экран ???

domains
          list_char=char*
 
predicates
         nondeterm indexof(char,integer,list_char)
clauses
         indexof(A,1,[A|_]).
         indexof(_,-1,[]).
         indexof(A,D,[_|C]):- indexof(A,B,C), B > -1, D = B+1. 
         indexof(A,D,[_|C]):- indexof(A,B,C), B = -1, D = B.
           
goal
      indexof('.',X,['q','w','e','.','r','t','y']),!.

Решение задачи: «Определить номер элемента k в списке»

textual
                            Листинг программы 
                        

                            goal
      indexof('.',X,['q','w','e','.','r','t','y']),
      !,
      write("Index: ", X), nl;
      write("Error in indexof"), nl.
                        

Оцени полезность:

9 голосов , оценка 3.889 из 5

Похожие ответы