用prolog写个专家系统

好的，下面是一个简单的基于 Prolog 的专家系统示例，用于推荐一款适合用户的电子产品。

% 事实库
% product(名称, 类型, 价格, 特性)
product(macbook_pro, laptop, 1500, [high_performance, long_battery_life, lightweight]).
product(surface_laptop, laptop, 1300, [high_resolution, touch_screen, detachable]).
product(ipad_pro, tablet, 800, [large_screen, apple_pencil_compatible, 4g_lte]).
product(kindle_oasis, ereader, 250, [waterproof, adjustable_light, long_battery_life]).

% 规则库
recommendation(X) :-
    ask_type(Type),
    ask_price(Price),
    findall(Product, (product(Product, Type, P, _), P =< Price), Products),
    ask_features(Features),
    filter_products(Products, Features, FilteredProducts),
    select_random(FilteredProducts, X).

% 询问用户电子产品类型
ask_type(Type) :-
    write('What type of electronic product are you interested in? (laptop/tablet/ereader)'), nl,
    read(Type).

% 询问用户预算
ask_price(Price) :-
    write('What is your budget?'), nl,
    read(Price).

% 询问用户关注的特性
ask_features(Features) :-
    write('What features are you looking for? (high_performance/long_battery_life/lightweight/high_resolution/touch_screen/detachable/large_screen/apple_pencil_compatible/4g_lte/waterproof/adjustable_light)'), nl,
    read(Features).

% 过滤出符合用户要求的电子产品
filter_products([], _, []).
filter_products([H|T], Features, [H|FilteredProducts]) :-
    product(H, _, _, ProductFeatures),
    contains_all(ProductFeatures, Features),
    filter_products(T, Features, FilteredProducts).
filter_products([_|T], Features, FilteredProducts) :-
    filter_products(T, Features, FilteredProducts).

% 判断一个列表是否包含另一个列表中的所有元素
contains_all([], _).
contains_all([H|T], List) :-
    member(H, List),
    contains_all(T, List).

% 随机从列表中选出一项
select_random(List, X) :-
    length(List, Length),
    random(0, Length, Index),
    nth0(Index, List, X).

使用方法：

1. 打开 Prolog 环境
2. 通过 `consult('your_file_path.pl')` 命令加载上述代码文件
3. 执行 `recommendation(X)` 命令，根据提示回答问题，即可得到系统推荐的电子产品

示例输出：

?- recommendation(X).
What type of electronic product are you interested in? (laptop/tablet/ereader)
|: tablet.
What is your budget?
|: 1000.
What features are you looking for? (high_performance/long_battery_life/lightweight/high_resolution/touch_screen/detachable/large_screen/apple_pencil_compatible/4g_lte/waterproof/adjustable_light)
|: apple_pencil_compatible.
X = ipad_pro .