0

Necesito comprobar si en la cadena hay palabras con letras latinas.

Por ejemplo yo ingreso una cadena en otro idioma:

Enter the string: ыкеыу ролdfgdгп тми ваы 

La respuesta sería:

Words with latin letters: ролdfgdгп

Este es mi intento pero no esta correcto, podría alguien ayudarme por favor.

DOMAINS

        list_string = string*
        number_list = integer*
    I = integer
    C = char

 PREDICATES

    nondeterm result    
    nondeterm str_poisk(string,string)
    del_letter(char,string,string)
    str_pos(char,string,integer)
    str_delete(string,integer,integer,string)

 CLAUSES  

        str_poisk("",Result):-
        nl,
        write(" Words with latin letters: "),nl,
        write(Result),nl.
        str_poisk(Sin,Letter):-
        frontchar(Sin,C,S1),        
        del_letter(C,Letter,Result),    
        str_poisk(S1,Result).

    del_letter(C,StrIn,StrOut):-    
        str_pos(C,StrIn,Npos),
        Npos > 0, !, str_delete(StrIn,Npos,1,StrOut); str_delete(StrIn,1,0,StrOut).

        str_pos(C,S,1):-
        frontchar(S,C,_),!.

    str_pos(_,_,0). 

    str_delete(S,I,C,SO) :- 
        I1 = I - 1,
            frontstr(I1,S,S1,S2), 
            frontstr(C,S2,_,S3), 
            concat(S1,S3,SO).       

        result:-  
        nl, nl,
        write("   4. Check if there are words with latin letters in the string."), nl,
        write(" Enter the string: "),
        readln(Str),
        Letter = "abcdefghijklmnopqrstuvwxyz",
        str_poisk(Str,Letter),          
        readchar(_),!.

 GOAL
        result.
2
  • con letras latinas a que te refieres? el 25 may. 2017 a las 7:43
  • Con las letras de nuestro abecedario español "abcdefghijklmnopqrstuvwxyz", es decir yo debo ingresar una cadena en otro idioma por ejemplo ruso "фывапролдё"
    – Neon
    el 25 may. 2017 a las 7:54

1 respuesta 1

0

Puedes serparar la cadena en palabras con el predicado split_string/4, y por reevaluación comprobar para cada palabra, si contiene algún caracter válido:

words(S, W) :-
    split_string(S, " ", "", Ws),
    member(W, Ws),
    string_chars(W, Cs),
    latin(Cs).

latin([C|_]) :- char_code(C, N), N >= 97, N =< 122, !.
latin([_|Cs]) :- latin(Cs), !.

Si luego necesitas la solución en una lista, puedes obtener todas las soluciones con el predicado findall/3.

?- words("ыкеыу ролdfgdгп тми ваы", X).
X = "ролdfgdгп" ;
false.

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.