Υǥ쥯ȥκ

#  Part 1: Write a Prolog and an Ada programs, that determine the number of
#  as and bs in a string. Then print this number.
#  The user inputs a string as an array of characters. 
#  Then the program replies by a number that contains the number of [as] added to the number of [bs].

'the program replies by a number that contains the number of [as] added to the number of [bs].'(_string_list,_number_of_a_or_b) :-
        count((member(A,_string_list),(A==97;A==98)),_number_of_a_or_b).