Prolog命令行运行演示

使用方法:

=事实

:规则

?查询

使用prolog语法.

import java.io.BufferedReader;
import java.io.IOException;
import java.io.InputStreamReader;
import java.util.Iterator;

import alice.tuprolog.InvalidTheoryException;
import alice.tuprolog.MalformedGoalException;
import alice.tuprolog.NoMoreSolutionException;
import alice.tuprolog.NoSolutionException;
import alice.tuprolog.Prolog;
import alice.tuprolog.SolveInfo;
import alice.tuprolog.Theory;


public class Main {

/**
* @param args
* @throws IOException
* @throws InvalidTheoryException
*/
public static void main(String[] args) throws IOException {
// TODO Auto-generated method stub

InputStreamReader reader = new InputStreamReader(System.in);
BufferedReader br = new BufferedReader(reader);

String line = null;
Prolog engine = new Prolog();

System.out.print(">");
while(true) {
line = br.readLine();
//System.out.println(">"+line);
if(line != null) {
if(line.startsWith("=")) {
try {
engine.addTheory(new Theory(line.substring(1)));
} catch (InvalidTheoryException e) {
// TODO Auto-generated catch block
e.printStackTrace();
}
} else if(line.startsWith("!=")) {
try {
Theory theory = engine.getTheory();
Iterator it = theory.iterator(engine);

while(it.hasNext()) {
String temp = it.next().toString();
if(line.substring(2).trim().equalsIgnoreCase(temp)) {
it.remove();
}
System.out.println(temp);
}

//System.out.println(theory.iterator(engine).toString());
} catch (Exception e) {
// TODO Auto-generated catch block
e.printStackTrace();
}
} else if(line.startsWith(":")) {
try {
engine.addTheory(new Theory(line.substring(1)));
} catch (InvalidTheoryException e) {
// TODO Auto-generated catch block
e.printStackTrace();
}
} else if(line.startsWith("?")) {
try {
SolveInfo info = engine.solve(line.substring(1));
while(info.isSuccess()) {
System.out.println(info.getSolution());
info = engine.solveNext();
}
} catch (MalformedGoalException e) {
// TODO Auto-generated catch block
e.printStackTrace();
} catch (NoSolutionException e) {
// TODO Auto-generated catch block
e.printStackTrace();
} catch (NoMoreSolutionException e) {
// TODO Auto-generated catch block
//e.printStackTrace();
}
} else {
try {
SolveInfo info = engine.solve("talk("+line+",X).");
while(info.isSuccess()) {
System.out.println(info.getSolution());
info = engine.solveNext();
}
} catch (MalformedGoalException e) {
// TODO Auto-generated catch block
e.printStackTrace();
} catch (NoSolutionException e) {
// TODO Auto-generated catch block
e.printStackTrace();
} catch (NoMoreSolutionException e) {
// TODO Auto-generated catch block
//e.printStackTrace();
}
}
}

System.out.print(">");
}

}

}

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
本书全面系统介绍Visual Prolog语言及其编程。全书共分四个部分,第一部分简短介绍Visual Prolog可视化开发环境;第二部分包括教程的第2章至第11章,教你如何学会用Visual Prolog编程;第三部分包括第12章至第16章,详细叙述Visual Prolog的预定义特性;第四部分包括第17章至第18章,完整而系统地叙述语言元素和模块化程序设计,以及与其它语言的接口。 下面是本书每一章的内容简介。 第一部分 Visual Prolog概述 第1章 Visual Prolog开发环境 描述如何将Visual Prolog安装到你的计算机上,如何使用Visual Prolog的可视化开发环境来运行本书所提供的例子,提供一个快速指南,包括创建、运行及保存你第一个Visual Prolog程序的一些步骤,解释如何应用可视化开发环境的Test Goal实用程序来运行语言教程提供的一些Visual Prolog程序的例子。 第二部分 学习Visual Prolog 第2章 Prolog基本原理 从自然语言的观点对Prolog提供一个概括地介绍,讨论如何把自然语言的语句和问题转换为Prolog的事实、规则和询问。 第3章 Visual Prolog程序结构 包括Visual Prolog的语法,Visual Prolog的程序段,用Visual Prolog进行编程。 第4章 合一与回溯 描述Visual Prolog如何求解问题,如何给变量赋值。 第5章 简单对象与复合对象 讨论声明和建立Visual Prolog中的结构。 第6章 重复与递归 解释如何应用回溯和递归编写重复性过程;还介绍了递归结构和树。 第7章 表与递归 介绍表及其递归用法,以及一般的表操作。 第8章 内部事实数据库 讨论使用Visual Prolog的事实段在运行时间对你的程序增加事实及存储全局信息。 第9章 算术与比较运算 介绍Visual Prolog内建的全部算术函数和比较函数,而且举例说明这些函数如何使用。 第10章 高级技术 控制流程分析,使用引用变量、谓词指针、二进制论域、项的转换,使用动态截断、工具及技术进行错误和信号处理,以及有效程序的编程风格。 第11章 类和对……

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值