>>608
Prologだと、
入力情報(String,"当たり") :- length(String,4),登録暗証番号(_登録暗証番号),
　intersection(String,_登録暗証番号,L),length(L,4).
入力情報("2222","タライが落ちてきた").
入力情報(_,"外れ").
と書き連ねていくね。