PROLOG 高手请看这边！！紧急！

janet92

想问看PROLOG高手，以下题目应该要怎样写code?
？- show(5).
++++1
+++12
++123
+1234
12345

谢谢高手！

Less-Wronger

1. show(0).
   
2. show(N) :- N > 0, Plusno is N-1, Max is N-Plusno, writePlus(Plusno), writeDigit(Max), C is Max+1, nl, showAux(N, C). /*recursive call*/
   
3. showAux(N, M) :- P is N-M, writePlus(P), writeDigit(M), C is M+1, nl, showAux(N, C).
   
4. 
   
5. writeDigit(0).
   
6. writeDigit(A) :- A > 0, write(A), B is A-1, writeDigit(B).
   
7. 
   
8. writePlus(0).
   
9. writePlus(M) :-  M > 0, write('+'), N is M-1, writePlus(N).

复制代码

逻辑上，这个应该works on Sictus Prolog. Sorry, I don't have Sictus Prolog on my computer now. I can't test if it works.

The code is only for your reference. Just a reminder, plagiarism is a serious offense. :p

janet92

Less-Wronger 发表于 15-11-2013 05:48 PM
逻辑上，这个应该works on Sictus Prolog. Sorry, I don't have Sictus Prolog on my computer now. I can' ...

哈哈哈~
没有抄袭啦~
也已经随便做交上去了~~
我是使用 LPA Prolog 的

anyway~ 谢谢你！

Less-Wronger

janet92 发表于 15-11-2013 06:56 PM
哈哈哈~
没有抄袭啦~
也已经随便做交上去了~~

你的功课比我的看起来更有趣;虽然我的Prolog功课比较困难，we had to program stack/turing machine.

Qing Wen LPA有 write function ma?

Sorry, using google translate, some words couldn't translate properly, so I use han yu pin ying.

janet92

Less-Wronger 发表于 16-11-2013 10:17 PM
你的功课比我的看起来更有趣;虽然我的Prolog功课比较困难，we had to program stack/turing machine.

...

抱歉哦~迟回复
写fact和rules罢了咯~ 有function的东西？

p/s: 你电脑没有install华语吗？