- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我是 Prolog 的新手,我在理解我的代码有什么问题时遇到了一些麻烦。
我正在尝试做一个食物推荐人。基本上,用户输入他们是否想要早餐、午餐或甜点以及他们的口味列表。然后程序会计算他们的口味与每种食物的特征之间的匹配次数,并返回匹配最多的食物。
我正在使用递归遍历食物列表,一切都按预期工作,直到到达空食物列表的末尾,然后再次开始填充它,返回到问题的初始状态。我不明白为什么程序会这样做,我找不到解决方案。
recommend(breakfast, Tastes, Result) :-
findall(Breakfast, breakfast(Breakfast), Breakfasts),
getBestMatch(Breakfasts, Tastes, Result, -1).
recommend(lunch, Tastes, Result) :-
findall(Lunch, lunch(Lunch), Lunches),
getBestMatch(Lunches, Tastes, Result, -1).
recommend(dessert, Tastes, Result) :-
findall(Dessert, dessert(Dessert), Desserts),
getBestMatch(Desserts, Tastes, Result, -1).
% Recursive predicate. Goes through the list of food and calls the matches predicate to count the
% matches and compares it to the current best match. When the food list is empty, it should stop.
% Result should be the name of the best matching food. I think here's where the error is.
getBestMatch([], _, _, _).
getBestMatch([H|T], Tastes, Result, BestMatch) :-
matches(H, Tastes, Matches),
Matches > BestMatch
-> getBestMatch(T, Tastes, H, Matches)
; getBestMatch(T, Tastes, Result, BestMatch).
% Counts the number of matches between the food's characteristics and the tastes.
matches(Food, Tastes, Matches) :-
characteristics(Food, Characteristics),
intersection(Tastes, Characteristics, MatchList),
length(MatchList, Matches).
% These are some examples of how I have declared the food and its characteristics
lunch(lasagna).
lunch(pizza).
dessert(cake).
characteristics(lasagna, [warm, salty, pasta, italian, meat]).
characteristics(pizza, [warm, salty, cheese, italian]).
characteristics(cake, [cold, sweet, vegetarian]).
这是跟踪的片段。
Call: (12) getBestMatch([pizza], [italian, cheese], lasagna, 1) ? creep
Call: (13) matches(pizza, [italian, cheese], _4220) ? creep
Call: (14) characteristics(pizza, _4262) ? creep
Exit: (14) characteristics(pizza, [warm, salty, cheese, italian]) ? creep
Call: (14) lists:intersection([italian, cheese], [warm, salty, cheese, italian], _4376) ? creep
Exit: (14) lists:intersection([italian, cheese], [warm, salty, cheese, italian], [italian, cheese]) ? creep
Call: (14) length([italian, cheese], _4474) ? creep
Exit: (14) length([italian, cheese], 2) ? creep
Exit: (13) matches(pizza, [italian, cheese], 2) ? creep
Call: (13) 2>1 ? creep
Exit: (13) 2>1 ? creep
Call: (13) getBestMatch([], [italian, cheese], pizza, 2) ? creep
Exit: (13) getBestMatch([], [italian, cheese], pizza, 2) ? creep
Exit: (12) getBestMatch([pizza], [italian, cheese], lasagna, 1) ? creep
Exit: (11) getBestMatch([lasagna, pizza], [italian, cheese], _2882, -1) ? creep
Exit: (10) recommend(lunch, [italian, cheese], _2882) ? creep
true.
我试过查看类似的问题,但没有一个对我有用。
最佳答案
您的 getBestMatch/4
中有些东西混淆了谓词。让我们来看看属性的作用:
[H|T]
似乎是一个可供选择的菜肴列表(输入)。 Tastes
似乎是一个受欢迎的属性列表(输入)。 Result
似乎是列表(输出)中最受欢迎的菜。 BestMatch
似乎是最佳匹配值(输入?最好是输出)。 if matches(H, Tastes, Matches) and if Matches > BestMatch
then getBestMatch(T, Tastes, H, Matches)
else getBestMatch(T, Tastes, Result, BestMatch)
这里有一些问题,比如将属性的值相互连接。让我们尝试解决它。首先何时停止:如果您的列表为空,则返回
-1
如
BestMatch
getBestMatch([], _, _, -1).
现在在做任何事情之前你需要知道什么是
BestMatch
尾部列表中的值
T
是比较你当前的元素
H
用它:
getBestMatch([H|T], Tastes, Result, BestMatch) :-
getBestMatch(T, Tastes, TmpRes, TmpBest),
假设尚未编程的代码有效,您现在知道来自
TmpRes
的建议。与分数
TmpBest
.现在你需要知道你当前菜的得分
H
.
matches(H, Tastes, Matches),
然后是一个 if-then-else,用于将正确的结果传送到“输出”
( Matches > TmpBest
-> Result = H,
BestMatch = Matches
; Result = TmpRes,
BestMatch = TmpBest
).
或者作为
getBestMatch/4
的完整代码:
getBestMatch([], _, _, -1).
getBestMatch([H|T], Tastes, Result, BestMatch) :-
getBestMatch(T, Tastes, TmpRes, TmpBest),
matches(H, Tastes, Matches),
( Matches > TmpBest
-> Result = H,
BestMatch = Matches
; Result = TmpRes,
BestMatch = TmpBest
).
好的,让我们测试一下:
?- getBestMatch([pizza], [italian, cheese], L, _).
L = pizza.
?- getBestMatch([pizza,lasagna,cake], [italian], L, _).
L = lasagna.
乍一看似乎可行,但问题是列表中的菜肴顺序优先考虑菜肴(右侧的更多是严格优先的)。如果愿意,这也可以修复。
getBestMatch(Breakfasts, Tastes, Result, -1).
到
getBestMatch(Breakfasts, Tastes, Result, _).
下划线
_
意味着这是一个您对其值不感兴趣的变量。
recommend/3
:
?- recommend(lunch, [warm, meat],L).
L = lasagna.
?- recommend(lunch, [warm, cheese],L).
L = pizza.
?- recommend(lunch, [sweet], L).
L = pizza.
关于list - Prolog递归谓词结束后返回初始状态,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/65499309/
按照目前的情况,这个问题不适合我们的问答形式。我们希望答案得到事实、引用或专业知识的支持,但这个问题可能会引发辩论、争论、投票或扩展讨论。如果您觉得这个问题可以改进并可能重新打开,visit the
在编码时,我问了自己这个问题: 这样更快吗: if(false) return true; else return false; 比这个? if(false) return true; return
如何在逻辑条件下进行“返回”? 在这样的情况下这会很有用 checkConfig() || return false; var iNeedThis=doSomething() || return fa
这是我的正则表达式 demo 如问题所述: 如果第一个数字是 1 则返回 1 但如果是 145 则返回 145 但如果是 133 则返回 133 样本数据a: K'8134567 K'81345678
在代码高尔夫问答部分查看谜题和答案时,我遇到了 this solution返回 1 的最长和最晦涩的方法 引用答案, int foo(void) { return! 0; } int bar(
我想在下面返回 JSON。 { "name": "jackie" } postman 给我错误。说明 Unexpected 'n' 这里是 Spring Boot 的新手。 1日龄。有没有正确的方法来
只要“is”返回 True,“==”不应该返回 True 吗? In [101]: np.NAN is np.nan is np.NaN Out[101]: True In [102]: np.NAN
我需要获取所有在 6 号或 7 号房间或根本不在任何房间的学生的详细信息。如果他们在其他房间,简单地说,我不希望有那个记录。 我的架构是: students(roll_no, name,class,.
我有一个表单,我将它发送到 php 以通过 ajax 插入到 mysql 数据库中。一切顺利,php 返回 "true" 值,但在 ajax 中它显示 false 消息。 在这里你可以查看php代码:
我在 Kotlin 中遇到了一个非常奇怪的无法解释的值比较问题,以下代码打印 假 data class Foo ( val a: Byte ) fun main() { val NUM
请注意,这并非特定于 Protractor。问题在于 Angular 2 的内置 Testability service Protractor 碰巧使用。 Protractor 调用 Testabil
在调试窗口中,以下表达式均返回 1。 Application.WorksheetFunction.CountA(Cells(4 + (i - 1) * rows_per_record, 28) & "
我在本地使用 jsonplaceholder ( http://jsonplaceholder.typicode.com/)。我正在通过 extjs rest 代理测试我的 GET 和 POST 调用
这是 Postman 为成功调用我的页面而提供的(修改后的)代码段。 var client = new RestClient("http://sub.example.com/wp-json/wp/v2
这个问题在这里已经有了答案: What to do with mysqli problems? Errors like mysqli_fetch_array(): Argument #1 must
我想我对 C 命令行参数有点生疏。我查看了我的一些旧代码,但无论这个版本是什么,都会出现段错误。 运行方式是 ./foo -n num(其中 num 是用户在命令行中输入的数字) 但不知何故它不起作用
我已经编写了一个类来处理命名管道连接,如果我创建了一个实例,关闭它,然后尝试创建另一个实例,调用 CreateFile() 返回 INVALID_HANDLE_VALUE,并且 GetLastErro
即使 is_writable() 返回 true,我也无法写入文件。当然,该文件存在并且显然是可读的。这是代码: $file = "data"; echo file_get_contents($fil
下面代码中的变量 $response 为 NULL,尽管它应该是 SOAP 请求的值。 (潮汐列表)。当我调用 $client->__getLastResponse() 时,我从 SOAP 服务获得了
我一直在网上的不同论坛上搜索答案,但似乎没有与我的情况相符的... 我正在使用 Windows 7,VS2010。 我有一个使用定时器来调用任务栏刷新功能的应用程序。在该任务栏函数中包含对 LoadI
我是一名优秀的程序员,十分优秀!