Rosetta Code

ABC problem: Difference between revisions

Page Discussion

ABC problem (view source)

Revision as of 22:00, 6 May 2023

136 bytes removed ,  1 year ago
→‎{{header|Logtalk}}
Line 5,854:
 
:- uses(character, [lower_upper/2, is_upper_case/1]).
:- uses(term_io, [write_to_chars/2 as atom_to_codes/2]).
 
% public interface
 
can_spell(Atom) :-
atom_to_codesatom_chars(Atom, CodesChars),
to_lower(CodesChars, Lower),
can_spell(_Block_Set_, Lower).
 
Line 5,875 ⟶ 5,874:
can_spell(Blocks1, T).
 
to_lower(CodesChars, Lower) :-
meta::map( [C,L] >> ( is_upper_case(C)
[C,L] >> (is_upper_case(C) -> lower_upper(L, C); C = L),
; C = L)Chars,
Codes, Lower).
).
 
:- end_object.
Line 5,928:
:- initialization((
logtalk_load(meta(loader)),
logtalk_load(term_io(loader)),
logtalk_load(types(loader))
)).
Pmoura
17

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/341694"