오류 메시지, 제대로 작동하지 않음 - 프롤로그

Question

SWI Prolog와 함께 사용할 준비가 된 프로그램을 복구하는 방법은 무엇입니까? 소스에

링크 : http://ai-programming.com/prolog_bot_tutorial.htm chatterbot2 :

나는 read과 write에 read_string 및 write_string 수정 :

鐀1 ?- chatterbot2. 

>hi. 
I'M NOT SURE IF I UNDERSTAND WHAT YOU ARE TALKING ABOUT. 
ERROR: random/1: Domain error: `not_less_than_one' expected, found `0' 
    Exception: (7) select_response([], _G492) ? creep 
2 ?- chatterbot2. 

>'What do you do ?'. 
I'M NOT SURE IF I UNDERSTAND WHAT YOU ARE TALKING ABOUT. 
ERROR: random/1: Domain error: `not_less_than_one' expected, found `0' 
    Exception: (7) select_response([], _G485) ? creep 
3 ?- chatterbot2. 

>'Dog is black'. 
I'M NOT SURE IF I UNDERSTAND WHAT YOU ARE TALKING ABOUT. 
ERROR: random/1: Domain error: `not_less_than_one' expected, found `0' 
    Exception: (7) select_response([], _G485) ? creep 
4 ?- 

편집 : 내가 얻을 그것을 사용하려고

knowledge_base([ 
    ['WHAT IS YOUR NAME', 
    ['MY NAME IS CHATTERBOT2.', 
    'YOU CAN CALL ME CHATTERBOT2.', 
    'WHY DO YOU WANT TO KNOW MY NAME?'] 
    ], 

    ['HI', 
    ['HI THERE!', 
    'HOW ARE YOU?', 
    'HI!'] 
    ], 

    ['HOW ARE YOU', 
    ['I''M DOING FINE!', 
    'I''M DOING WELL AND YOU?', 
    'WHY DO YOU WANT TO KNOW HOW AM I DOING?'] 
    ], 

    ['WHO ARE YOU', 
    ['I''M AN A.I PROGRAM.', 
    'I THINK THAT YOU KNOW WHO I''M.', 
    'WHY ARE YOU ASKING?'] 
    ], 

    ['ARE YOU INTELLIGENT', 
    ['YES,OFCORSE.', 
    'WHAT DO YOU THINK?', 
    'ACTUALY,I''M VERY INTELLIGENT!'] 
    ], 

    ['ARE YOU REAL', 
    ['DOES THAT QUESTION REALLY MATERS TO YOU?', 
    'WHAT DO YOU MEAN BY THAT?', 
    'I''M AS REAL AS I CAN BE.'] 
    ] ]). 

select(0, [H|_], H). 
select(N, [_|T], L) :- N > 0, N1 is N - 1, select(N1, T, L). 

list_length([], 0). 
list_length([_|T], Length):- list_length(T, Length2), Length is Length2 + 1. 

quit_session(X):- X = bye, 
    nl, write('IT WAS NICE TALKING TO YOU USER, SEE YOU NEXT TIME!'). 

no_response_found(ListOfResponse):- 
    list_length(ListOfResponse, NumOfResponse), 
    NumOfResponse == 0, 
    write('I''M NOT SURE IF I UNDERSTAND WHAT YOU ARE TALKING ABOUT.'), !. 

no_response_found(_). 

get_keyword(KeyList, [KeyList,_]). 
get_response(RespList, [_, RespList]). 

select_response(RespList, Response):- 
    list_length(RespList, NumOfResponse), 
    IndexOfResponse is integer(random(NumOfResponse)), 
    select(IndexOfResponse, RespList, Response), !. 

select_response(_, _). 

find_match(Input, [FirstRecord|RestDatabase], ListOfResponse):- 
    get_keyword(Keyword, FirstRecord), 
    Keyword == Input, get_response(ListOfResponse, FirstRecord), !; 
    find_match(Input, RestDatabase, ListOfResponse). 

find_match(_, [_], _). 

chatterbot2:- 
    repeat, 
    nl, write('>'), 
    read(Input), 
    knowledge_base(ListOfRecord), 
    find_match(Input, ListOfRecord, ListOfResponse), 
    no_response_found(ListOfResponse), 
    select_response(ListOfResponse, Response), 
    write(Response), nl, 
    quit_session(Input). 

: 임의 값 =/= 0 : 0 포함

1 ?- chatterbot2. 

>'NOT IN BASE'. 
I'M NOT SURE WHAT ARE YOU TALKING ABOUT._G907 

는 빈 아규먼트 _G907의 값을 삭제 하시겠습니까?> 만 문장이 될 수 있습니까?

Answer 1

이 특정 예제에서의 오류는 입력으로 인해 발생합니다. 입력 한 내용이 knowledge_base의 첫 번째 항목과 일치합니다. 입력 한 내용이 모두 일치하지 않으므로 반환되는 목록의 길이는 0이며 1을 초과하는 값이 필요할 것으로 보이는 임의의 호출에 문제가 발생합니다.

입력란에 '이름이 무엇입니까?'를 입력하십시오. 예를보고 작동하는지 확인하십시오.