#99 Article 1078 Posted at 1995/12/25 19:34:15 by えす (MAP2303) [SAHOU.1]
Subject: Re:*7 プログラミングお作法の話 /1074 ... /941 /940
昨日、予定にあった用事が突然中止になったので、図書館を散策。
なんとなく、prologの本を読む。
つーわけで(^^;、prologです。
ICOTの作ったCU-Prolog使いました。
----------------------------------------------------------------------------
%%% cu-Prolog predicates %%%%
member(X,[X|Z]).
member(X,[Y|Z]) :- member(X,Z).
nwrite(S,1) :- write(S),nl.
nwrite(S,N) :- write(S),sum(I,1,N),nwrite(S,I).
nyan(0) :- !.
nyan(N) :- member(N,[3,5]),nwrite("にゃん",N),sum(I,1,N),nyan(I_1).
nyan(N) :- write(N),nl,sum(I,1,N),nyan(I).
----------------------------------------------------------------------------
結果。
_?-nyan(4).
4
にゃんにゃんにゃん
2
1
true.
CPU time = 0.017 sec (Constraints Handling = 0.000 sec)
_?-nyan(9).
9
8
7
6
にゃんにゃんにゃんにゃんにゃん
4
にゃんにゃんにゃん
2
1
true.
CPU time = 0.000 sec (Constraints Handling = 0.000 sec)
_%Q
----------------------------------------------------------------------------
リスト処理のは初めてなんで、コツがつかめない。
えす