作者NobleDino (高贵恐龙)
标题Re: [问题] 1-9位数不重复印出来 (Prolog)
时间Tue Mar 7 19:17:10 2017
我又来贴了，这次是Prolog，而我喜欢叫他逻辑指令，
GNU Prolog:
http://www.gprolog.org/
Prolog的特色是你透过逻辑的指令来解决问题，
指令只会在定义的所有条件都是true的时候执行，
先来看看:
unique(X) :-
This_number is 10 ^ X,
format('Parse 1-~w~n', [This_number]),
list_of_1_to_number(List, This_number),
parse_unique(List).
list_of_1_to_number(Out, End) :-
findall(N, between(1, End, N), Out).
parse_unique([]) :- halt.
parse_unique([Head|Tail]) :-
print_unique(Head),
parse_unique(Tail).
print_unique(X) :-
number_chars(X, C),
sort(C, D),
length(C, N),
length(D, N),
format('~w~n', [X]).
print_unique(_).
使用:
[unique].
unique(3).
在print_unique(X)的指令中，sort会建立一个没有重复资料的列表，
这时两个指令length()中的变数 N必须一样，这个指令才会继续执行。
Ex: print_unique(55) 不符合规则，
C 和 D 会是 [5, 5] 和 [5]，N 无法同时等於这两个长度，
Prolog 接着就会自动寻找其他print_unique，
然後他就找到print_unique(_)，便不执行印出的动作。
--
推 NobleDino: 雏田的ㄋㄟㄋㄟ赞 04/03 01:30
推 STRO: 楼上，你再说一次看看 04/03 01:35
推 WuColn: 雏田的ㄋㄟㄋㄟ 04/03 01:35
推 richmond1223: 赞 04/03 01:38
推 STRO: Gi Joe~~~~~ 04/03 01:58
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 73.71.217.229
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Programming/M.1488885439.A.316.html