Вывести строку, если в ней только латинские буквы

@Gersona2015 · Регистрация: 24.11.2015

Author24 — интернет-сервис помощи студентам

Доброго времени суток. Написал программу, которая предикат который считает количество латинских символов в строке. Вот мой код:

Prolog

predicates
nondeterm check(char).
inc(char,integer).
nondeterm char_count(string,integer).
 
clauses
check(X):-char_int(X,Code), char_int('A',CodeA), char_int('Z',CodeZ),
    Code>=CodeA, Code<=CodeZ.
check(X):-char_int(X,Code), char_int('a',CodeA), char_int('z',CodeZ),
    Code>=CodeA, Code<=CodeZ.
 
inc(Char,1):-check(Char),!.
inc(_,0).
 
char_count("",0). 
char_count(S,N) :-
              frontchar(S,Char,S1),char_count(S1,N1),
              inc(Char,Inc),N=N1+Inc. 
              
goal
char_count("B45X2FG0OP",N), write("Symbol count = ",N).

Помогите пожалуйста, исправить так, чтобы если символы все латинские выводилась строка, если есть цифры например, то выводилось количество лат.символов

@Gersona2015 · 02.05.2018, 10:48 **[ТС]**

Catstail, добрый день! вот есть программа на прологе, подсчитывающая количество латинских символов и выводит их количество.

Prolog

predicates
nondeterm check(char).
inc(char,integer).
nondeterm char_count(string,integer).
 
clauses
check(X):-char_int(X,Code), char_int('A',CodeA), char_int('Z',CodeZ),
    Code>=CodeA, Code<=CodeZ.
check(X):-char_int(X,Code), char_int('a',CodeA), char_int('z',CodeZ),
    Code>=CodeA, Code<=CodeZ.
 
inc(Char,1):-check(Char),!.
inc(_,0).
 
char_count("",0). 
char_count(S,N) :-
              frontchar(S,Char,S1),char_count(S1,N1),
              inc(Char,Inc),N=N1+Inc. 
              
goal
char_count("B45X2FG0OP",N), write("Symbol count = ",N).

Очень прошу Вас изменить пожалуйста, программу так чтобы если вся строка латинская то выводилась на экран, если нет то кол/лат символов

@Catstail · 02.05.2018, 15:13

Prolog

predicates
nondeterm check(char).
inc(char,integer).
nondeterm char_count(string,integer).
task(string)
length(string,integer)
 
clauses
check(X):-char_int(X,Code), char_int('A',CodeA), char_int('Z',CodeZ),
    Code>=CodeA, Code<=CodeZ.
check(X):-char_int(X,Code), char_int('a',CodeA), char_int('z',CodeZ),
    Code>=CodeA, Code<=CodeZ.
 
length("",0).
length(S,N) :- frontchar(S,_,RS), length(RS,N1), N=N1+1.
 
inc(Char,1):-check(Char),!.
inc(_,0).
 
char_count("",0). 
char_count(S,N) :-
              frontchar(S,Char,S1),char_count(S1,N1),
              inc(Char,Inc),N=N1+Inc. 
 
task(S) :- char_count(S,N), length(S,L), N=L, write(S).
task(S) :- char_count(S,N), length(S,L), N<L, write("Symbol count =",N). 
 
              
goal
task("B45X2FG0OP"),nl.

	02.05.2018, 15:13