Prolog101(03)

1、常用输出函数:

write:把它的参数作为字符串输出到屏幕上。
从Call端口调用时总是成功的,从Redo端口回溯时总是失败的。

nl:在屏幕上输出一个回车符。
从Call端口调用时总是成功的,从Redo端口回溯时总是失败的。

tab:输出n个空格,n为它的参数(整数)。
从Call端口调用时总是成功的,从Redo端口回溯时总是失败的。

2、启用调试

?- debug.

3、and,or,not
and:两个条件之间,用“,”分割
or:两个条件之间,用“;“分割
not:我使用的版本中,有not函数
比如,下面的例子中,like(X):-(fruit(X);vegetable(X)),not(meat(X)),not(hate(X)).:
panpan喜欢吃的食物逻辑为:
a、喜欢蔬菜和水果
b、不喜欢吃肉
c、有些蔬菜不喜欢
d、其余不喜欢

%swipl -s fruit.pl
%Hansen

%and(A,B):- A, B.
%or(A,B):- A; B.
%not(A):- call(A), !, fail.

like(X):-(fruit(X);vegetable(X)),not(meat(X)),not(hate(X)).

fruit(apple).
fruit(grape).
fruit(pear).

meat(pork).
meat(mutton).
meat(beef).

vegetable(tomato).
vegetable(cabbage).
vegetable(spinach).
vegetable(celery).

hate(celery).

所以,panpan不喜欢羊肉,喜欢大白菜,但不喜欢芹菜

1 ?- like(mutton).
false.

2 ?- like(cabbage).
true.

3 ?- like(celery).
false.

Prolog101(02)

通过上一章,大家可以知道,prolog是根据初始数据+逻辑规则,来进行逻辑判断一门语言。
程序员的重点,从如何进行逻辑判断,变成了如何制定逻辑规则。

我们了解一下prolog的一些基础知识:

% swipl -s hello.pl
% author neohope
 
%输入数据,like左边是人,右边是爱好
%请注意"."
like(wangwu,fishing).
like(wangwu,smoking).
like(wangwu,binglang).
 
like(jiliang,riding).
like(jiliang,smoking).
like(jiliang,soccer).
 
like(guosir,soccer).
 
like(linlin,riding).
like(linlin,smoking).
 
like(zhaowen,smoking).
 
like(hansen,sleep).
 
%描述关系:如果路人甲X,与路人乙Y,同时喜欢一种项目时Z,他们可以一起玩(paly)
%请注意"."
play(X,Y):-like(X,Z),like(Y,Z).

1、参数,参数可以是以下四种之一:
整数(integer):绝对值小于某一个数的正数或负数。
原子(atom):由小写字母开头的字符串。
变量(variable):由大写字母或下划线(_)开头。
结构(structure):在以后的章节介绍。
可用字符:A-Z;a-z;0-9;+-/\^,.~:.?#$等。

如:wangwu,fishing两个都是参数

2、谓词(predicate):Prolog语言的基本组成元素,可以是一段程序、一个数据类型或者是一种关系。
它由谓词名和参数组成。两个名称相同而参数的数目不同的谓词是不同的谓词。

如:like(arg1,arg2)只是一个谓词,like是谓词名,arg1,arg2是参数。

3、事实(facts):prolog中最简单的谓词。类似于关系数据库中的记录。

如:like(wangwu,fishing).这就是一个事实,wangwu喜欢钓鱼。

4、目标(goal):Prolog的查询工作是靠模式匹配完成的,查询的模板叫做目标。
如果有某个事实与目标匹配,那么查询就成功了,Prolog的解释器会回显’true.’。
如果没有匹配的事实,查询就失败了,解释器回显’false.’。

5、联合(unification):Prolog的模式匹配工作称为联合。
当数据库中只包括事实时,以下三个条件是使联合成功的必要条件。
a、目标谓词名与数据库中的某个谓词名相同。
b、这两个谓词的参数数目相同。
c、所有的参数也相同。

如:?- like(wangwu,riding).这个查询,因为没有like(wangwu,riding)这个事实,返回false。

6、绑定(binding):在使用带有变量的查询时(首字母大写),使用变量可以和任何的条目匹配。
联合成功之后,变量的值将和它所匹配的条目的值相同,这叫做变量的绑定。
当带变量的目标成功的和数据库中的事实匹配之后,Prolog将返回变量绑定的值。

如:?- like(wangwu,X).会返回wangwu喜欢的所有项目。

7、端口:Prolog的目标有四个端口用来控制运行的流程:调用(call)、退出(exit)、重试(redo)以及失败(fail)。
每个端口的功能如下:
call 开始使用目标搜寻子句。
exit 目标匹配成功,在成功的子句上作记号,并绑定变量。
redo 试图重新满足目标,首先释放变量,并从上次的记号开始搜索。
fail 表示再找不到更多的满足目标的子句了。

一开始使用Call端口进入目标,如果匹配成功就到了exit端口,如果失败就到了fail端口,如果用户输入分号,则又从redo端口进入目标。

8、规则:储存起来的查询。它的语法如下:head :- body,其中,
head 是谓词的定义部分,与事实一样,也包括谓词名和谓词的参数说明。
:- 连接符,一般可以读作‘如果’。
body 一个或多个目标。

如:play(X,Y):-like(X,Z),like(Y,Z).
head:play(X,Y)
:-
body:这个body有两个目标,like(X,Z),like(Y,Z)
规则名:play/2
描述:如果路人甲X,与路人乙Y,同时喜欢一种项目时Z,他们可以一起玩(paly)

Prolog101(01)

最近看了下prolog,整理如下:

比起c,java,C#来,prolog与sql的逻辑更相似一些:
a、输入初始数据(sql建表,及表中数据输入)
b、描述关系(sql存储过程)
c、进行查询(查询表,调用存储过程)
d、只需要告诉prolog,需要查什么,不关心如何去查询(比如sql如何查找数据,是db服务器的问题,我们一般不关心如何具体实现)

比如,首先进行a,b两步:

% swipl -s hello.pl
% author neohope

%输入数据,like左边是人,右边是爱好
%请注意"."
like(wangwu,fishing).
like(wangwu,smoking).
like(wangwu,binglang).

like(jiliang,riding).
like(jiliang,smoking).
like(jiliang,soccer).

like(guosir,soccer).

like(linlin,riding).
like(linlin,smoking).

like(zhaowen,smoking).

like(hansen,sleep).

%描述关系:当路人甲X,与路人乙Y,同时喜欢一种项目时Z,他们可以一起玩(paly)
%请注意"."
play(X,Y):-like(X,Z),like(Y,Z).

然后进行查询:

%查询wangwu,喜欢的项目
%请注意".",";"要手工输入
1 ?- like(wangwu,X).
X = fishing ;
X = smoking ;
X = binglang.

%查询喜欢riding项目的人
%请注意".",";"要手工输入
2 ?- like(X,riding).
X = jiliang ;
X = linlin.

%查询,jiliang与lilin是否喜欢一起玩
3 ?- play(jiliang,linlin).
true .

%查询,jiliang与hansen是否喜欢一起玩
4 ?- play(jiliang,hansen).
false.

%为什么呢?查一下hansen喜欢什么运动
5 ?- like(hansen,X).
X = sleep.
%原来他只喜欢睡觉^_^,不喜欢运动,当然没人和他玩咯

有些概念没?那咱们进入下一章。

第一次拆iPhone4(下)

已经十二点了,但液晶还有问题,wifi还是连不上,吐血
液晶我能忍,wifi我可忍不了

来,第二遍~~
整个卸iphone的流程是一样的,但轻车熟路,直到开始卸屏蔽罩
本来想和第一次一样,但是这一次不小心把螺丝座也搞下来了,汗啊~~
乔帮主保佑啊~~

最后做了一下处理
1、卸下液晶后,擦了下,心里安慰而已,我不认为有用
2、发现触摸总线上的绝缘胶有些问题了,我就用了一块双面胶的贴纸挡了下
3、发现贴片下的尾插排总线绝缘胶有问题了,我就用了总线的包装纸挡了一下(DIY了一个类型形状的)
4、擦干净了贴片

第一遍用了整整一个下午+半个晚上,第二遍用了一个小时。

开机。

wifi有信号了,YES。
但液晶还是那样,没办法,忍了吧。
说实话,我不知道液晶是什么问题,但原装屏不想换,而且不是很影响使用。

有膜送,那就换个膜吧。
贴膜手艺依然很差啊,前面的直接贴废了,后面的有三个气泡。
不要前面的贴膜,反正也用了快三年了~~
:)

用了两天,还不错。
但有两个担心:
1、绝对不防水了
2、加了两篇贴纸,怕夏天怕散热不好,直接废了
到时候再说吧,唉~~

总结一下:
1、工具要齐全,送的工具还可以,但不是很全
2、新手不要弄新机器,容易修成大毛病
3、开液晶屏,要用电吹风,预热一下才好
4、多看几个视频或教程,有时候一个教程某些步骤说的不是很清楚,另外的教程可能就说的好很多

话说回来,iphone的集成程度,真的很不错,厉害。

第一次拆iPhone4(上)

我可怜的iPhone4,今年被摔了n回,先是震动键挂了,然后最近音量键彻底失灵,而home建也是难用的要死,整个手机,只有电源开关一个按键可以用了。

实在看不下去了,就自己买了两条排线进行更换:
1、home键排线
2、音量+震动排线
还有工具送^o^
周五下单,周六上午就到了,还是很快的吗。

吃了午饭,开工。
1、将后盖打开
2、取下电池
3、取下sim卡
可我没有工具啊,只好买了一盒针,好不容易搞开了~~
4、取下贴片,卸下尾排线,取下隐藏螺丝一颗
5、卸下蓝牙接头
6、取下屏蔽罩
最短的一颗螺丝拧不下来,只好用一个撬棒微微抬起,同时拧,终于搞定
7、取下后置摄像头
8、取下保修螺丝一颗
9、取下5根排线
10、取下主板
好难取啊,最后弄了好久才搞定(最后发现少取下了一颗十字支架,一头汗)
11、取下振铃总成
12、取下马达
13、取下固定螺丝10颗
14、取下液晶屏
没有吹风机伤不起啊,弄了好久
15、换home总线
妈的,工具里没镊子,找了个五金店,一口气买了三个
16、换震动+音量总线
妈的,没有操作说明了,优库上找了一个
真正悲剧开始了,取下来的时候,由于线路老化,总线直接断掉了
然后把耳机插孔先上好,然后震动键,弄了半个多小时,搞不定,太挫了
然后尝试音量键,弄了半个小时,搞定,累死了
休息下~~
然后再搞震动键,发现有个贴片掉了,想死的心都有啊~~
四个零件要从下向上拍好顺序,吐血啊~~
中途想到买胶水粘住,但考虑到502只有一次机会,买了固体胶,fuck,屁用没有~~
吃晚饭~~,休息下~~
休息后想,是不是我上的顺序不对啊~~
把耳机插孔卸下,然后上震动键,感觉简单多了,要是贴片不掉的话,也就是10分钟的事情~~
但,我仍然搞了半个小时,终于搞定~~,心想可以睡觉了啊
17、上液晶屏
18、上马达
19、上振铃总成
20、上主板,费了好大力气(没卸掉那颗支架螺丝,一头的汗啊~~,我是怎么上上去的啊)
21、上总线,妈的,有个总线看起来好短,心想是不是压倒液晶下面了~~,开始祈祷液晶不要挂了啊
22、马上卸下振铃总成,卸下马达,卸下液晶,发下触摸排线被压在了液晶屏下面~~,吐血
23、上液晶,上固定螺丝10颗
24、上马达
25、上振铃总成
26、上主板,这时候才发现那颗固定螺丝的问题,我人才啊
27、上总线,上保修螺丝
28、上后置摄像头
29、上屏蔽罩
30、上隐藏螺丝,上wifi天线
31、上尾插排线
32、上铁片
33、上sim卡
34、上电源
35、上后盖

开机~~
电话功能正常
wifi一直在搜索
液晶上留下了一块彩斑,还好不大

SQL Server:提供的值不是数据类型datetime的有效实例

今天遇到了一个很郁闷的问题,在向SQL Server做Insert时,有几条数据总是提示:
提供的值不是数据类型 datetime 的有效实例

然后根据
参数 131 (“”)
还以为提供的数据为空,查了半天。

最后发现,是提交的日期范围,超出了SQL Server的Datetime的范围。
这提示能再坑一些吗。。。

Caused by: com.microsoft.sqlserver.jdbc.SQLServerException: 传入的表格格式数据流(TDS)远程过程调用(RPC)协议流不正确。参数 131 (""): 提供的值不是数据类型 datetime 的有效实例。请检查源数据中的无效值。例如,小数位数大于精度的数值类型的数据即为无效值。
	at com.microsoft.sqlserver.jdbc.SQLServerException.makeFromDatabaseError(Unknown Source)
	at com.microsoft.sqlserver.jdbc.SQLServerStatement.getNextResult(Unknown Source)
	at com.microsoft.sqlserver.jdbc.SQLServerPreparedStatement.doExecutePreparedStatement(Unknown Source)
	at com.microsoft.sqlserver.jdbc.SQLServerPreparedStatement$PrepStmtExecCmd.doExecute(Unknown Source)
	at com.microsoft.sqlserver.jdbc.TDSCommand.execute(Unknown Source)
	at com.microsoft.sqlserver.jdbc.SQLServerConnection.executeCommand(Unknown Source)
	at com.microsoft.sqlserver.jdbc.SQLServerStatement.executeCommand(Unknown Source)
	at com.microsoft.sqlserver.jdbc.SQLServerStatement.executeStatement(Unknown Source)
	at com.microsoft.sqlserver.jdbc.SQLServerPreparedStatement.executeUpdate(Unknown Source)
	... 45 more

查询视图时不使用索引

今天发生了一件很诡异的事情,平台网关有一张对外提供的视图,用某字段进行查询时,效率奇低无比。

--view
select * from user1.view1 v1 where v1.mark='mark001';
--table
select * from user1.table1 t1 where t1.mark='mark001';

分析视图对应的表信息后发现,虽然对mark字段建立了索引,但查询语句中使用的mark字段值“mark001”,
所占比例竟然已经达到40%,应该是历史数据导致的。

然后将历史数据处理后,重建mark字段索引,诡异的事情发生了:
即使mark字段值“mark001”的比例小于0.1%,查询依然不走索引。

重建索引无效,就差重新建表了,压力山大啊。

最后,休息了一下,抱着试试看的态度,重新分析了表table1:

analyze table user1.table1 compute statistics for table for all indexes for all indexed columns;

查询终于走索引了,速度立刻上去了。

这才记起来,前几天,按某人的建议,把oracle的统计信息关掉了。。。
自己挖坑把自己埋了。。。
四个小时啊。。。
我的考评还没来得及写,还有十几封邮件要写,悲剧啊~~
我恨某潘~~

.Net4的WinForm程序使用.Net2控件

在.Net4的WinForm程序中,混用.Net2控件会报下面的问题

Mixed mode assembly is built against version 'v2.0.50727' of the runtime and cannot be loaded in the 4.0 runtime without additional configuration information.

解决方法为在App.config文件中,增加以下配置

<configuration>
  <startup useLegacyV2RuntimeActivationPolicy="true">
    <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.0"/>
  </startup>
</configuration>

八后问题Ruby02

Queen.rb

class Queen
  
  def initialize()
    @v=0
  end
  
  def canSetQueen(lst,s,x,y)
      lstNo = Array.new()
    
      for i in 0..s-1 do
        p = Pt.new(x,i)
        lstNo.push(p)
      end
      
      for j in 0..s-1 do
        p = Pt.new(j,y)
        lstNo.push(p)
      end 
      
      x0=x
      y0=y
      while x0<s and y0<s
        p=Pt.new(x0,y0)
        lstNo.push(p)
        x0=x0+1
        y0=y0+1
      end
      
      x0=x
      y0=y
      while x0>=0 and y0>=0
        p=Pt.new(x0,y0)
        lstNo.push(p)
        x0=x0-1
        y0=y0-1
      end
      
      x0=x
      y0=y
      while x0>=0 and y0<s
        p=Pt.new(x0,y0)
        lstNo.push(p)
        x0=x0-1
        y0=y0+1
      end
      
      x0=x
      y0=y
      while x0<s and y0>=0
        p=Pt.new(x0,y0)
        lstNo.push(p)
        x0=x0+1
        y0=y0-1
      end
      
      while(lstNo.length>0)
        p=lstNo.pop
        if(p.y==lst[p.x])
          return false
        end
      end
      
      return true
  end
    
  def findQueen(lst,s,x) 
      
      if(x>=s)
        @v=@v+1
        puts("]>>solution No."+@v.to_s)
        pp lst
        return
      end
      
      for y in 0..s-1 do
        if(canSetQueen(lst,s,x,y))
          lst.push(y)   
          findQueen(lst,s,x+1)
          lst.pop
        end
      end
       
    end
end

class Pt
  attr_accessor:x
  attr_accessor:y
  def initialize(x,y)
      @x=x
      @y=y
  end
end

test.rb

require "pp"
require "./Queen.rb"

len = 8
lst = Array.new()

q=Queen1.new
q.findQueen(lst,len,0)

puts("end")