Prolog中ASCII与列表操作求助：两项谓词实现需求

1. 实现 little_letter/2：统计小写字母数量 #

该谓词接收一个字符串（字符列表）和一个计数变量，统计其中ASCII码在97-122之间的小写字母数量。

% 终止条件：空字符串的小写字母计数为0
little_letter("", 0).

% 情况1：首字符是小写字母，递归统计剩余部分后计数+1
little_letter([Char|Rest], Count) :-
    char_code(Char, Code),
    Code >= 97, Code =< 122,
    little_letter(Rest, RestCount),
    Count is RestCount + 1.

% 情况2：首字符不是小写字母，直接递归统计剩余部分
little_letter([Char|Rest], Count) :-
    char_code(Char, Code),
    (Code < 97 ; Code > 122),
    little_letter(Rest, Count).

说明： #

• 使用char_code/2获取字符对应的ASCII码，判断是否属于小写字母范围。
• 多数Prolog实现（如SWI-Prolog）会自动将字符串解析为字符列表，直接用字符串字面量调用即可，例如：

  ?- little_letter("HelloWorld!@#123", C).
  C = 8. % 对应"elloorld"8个小写字母
  

2. 实现 multiply_list/3：列表元素批量相乘 #

该谓词接收一个数字列表、一个乘数，返回每个元素与乘数相乘后的新列表。

% 终止条件：空列表相乘后仍为空列表
multiply_list([], _, []).

% 递归处理每个元素：计算首元素乘积，再处理剩余列表
multiply_list([Num|Rest], Multiplier, [Result|NewRest]) :-
    Result is Num * Multiplier,
    multiply_list(Rest, Multiplier, NewRest).

说明： #

• 用is/2执行算术运算，将乘积结果绑定到新列表的对应元素。
• 调用示例：

  ?- multiply_list([1,2,3,4,5], 3, L).
  L = [3,6,9,12,15].
  

相关基础知识点 #

• 字符与ASCII操作：
  • char_code(Char, Code)：双向转换字符和ASCII码，比如char_code('a', 97)成立。
  • 字符串本质是字符列表，"test"等价于['t','e','s','t']，可直接按列表处理。
• 列表递归核心：
  • 处理列表的标准范式：先定义空列表的终止条件，再拆分非空列表为「首元素+剩余列表」，递归处理剩余部分后组合结果。
  • 算术运算必须通过is/2完成，Prolog不支持直接的变量赋值，is用于计算表达式并绑定结果。

内容的提问来源于stack exchange，提问作者Marko24070