当前位置:网站首页>Use prolog to guess password

Use prolog to guess password

2021-02-06 13:33:54 osc_ cbnonwt4

 picture .png

The title is shown in the picture above :

prolog The code is as follows , I'm just learning ,  among =:= Mark equality judgment , =\= It's not equal , comma Express And Conditions , Semicolon identification Or conditions

%X Y Z  respectively   hundred   Ten   individual  

% According to the condition 1 Can be launched   When  X = 6  when , Y  It's not equal to  8,2, Z  Also is not equal to 8,2  
%  Not all of them 

test_password1(X, Y, Z) :- 
     (X =:= 6,Y =\=8, Z =\= 2);   
     (X =\= 6,Y =:=8, Z =\= 2); 
     (X =\= 6,Y =\=8, Z =:= 2). 
     
%  I didn't list all of them      
test_password2(X, Y, Z) :-
     test_password1(X, Y, Z),
     ((X =:= 1, Y =\= 1, Z =\= 4);
      (X =:= 4, Y =\= 1, Z =\= 4);
     (X =\= 6, Y =:= 6, Z =\= 4);
     (X =\= 6, Y =:= 4, Z =\= 4);
     (X =\= 6, Y =\= 1, Z =:= 6);
     (X =\= 6, Y =\= 1, Z =:= 1)).
test_password3(X, Y, Z) :- 
     test_password2(X, Y, Z),
    (( X =:= 0, Y =:= 6, Z =\= 2); 
    ( X =:= 0, Y =:= 2, Z =\= 6);
    ( X =:= 0, Y =\= 6, Z =:= 2);
    ( X =\= 6, Y =:= 2, Z =:= 0);
    ( X =\= 0, Y =:= 6, Z =:= 2);
    ( X =\= 6, Y =:= 2, Z =:= 0)).
test_password4(X, Y, Z) :-
   X =\= 7, X =\= 3, X =\= 8,
   Y =\= 7, Y =\= 3, Y =\= 8,
   Z =\= 7, Z =\= 3, Z =\= 8.
   
test_password5(X, Y, Z) :-
   test_password3(X, Y, Z),
   ((X =:= 7, Y =\=8, Y =\= 0, Z =\=8, Z =\= 0);
   (X =:= 0, Y =\=7, Y =\= 8, Z =\=7, Z =\= 8);
   (Y =:= 8, X =\=7, X =\= 0, Z =\=7, Z =\= 0);
   (Y =:= 0, X =\=7, X =\= 8, Z =\=7, Z =\= 8);
   (Z =:= 8, X =\=7, X =\= 0, Y =\=7, Y =\= 0);
   (Z =:= 7, X =\=8, X =\= 0, Y =\=0, Y =\= 8)).
   
check_password5(X, Y, Z) :-test_password5(X, Y, Z) ,
                            test_password4(X, Y, Z) .


The results of loading and running are shown in the figure :

 picture .png

this ...

 picture .png

版权声明
本文为[osc_ cbnonwt4]所创,转载请带上原文链接,感谢
https://chowdera.com/2021/02/20210206133250660k.html