DouKaku? 8106 匿名: 不細工なことになりました。 not(_...(漢数字で九九の表)

Comment detail

不細工なことになりました。 not(_)のあたり何とかならんかな.

漢数字(〇,[]).
漢数字(一,[_]).
漢数字(二,[_,_]).
漢数字(三,[_,_,_]).
漢数字(四,[_,_,_,_]).
漢数字(五,[_,_,_,_,_]).
漢数字(六,[_,_,_,_,_,_]).
漢数字(七,[_,_,_,_,_,_,_]).
漢数字(八,[_,_,_,_,_,_,_,_]).
漢数字(九,[_,_,_,_,_,_,_,_,_]).
九九 :-
   漢数字(A,L1),
   漢数字(B,L2),
   not(A=〇),
   not(B=〇),
   九九(L1,L2,[],[],X,Y),
   九九解表示(L2,X,Y),
   fail.
九九.

九九([],_,[],Y1,'　',Y) :- 漢数字(Y,Y1),!.
九九([],_,X1,Y1,X,Y) :- 漢数字(X,X1),漢数字(Y,Y1),!.
九九(L1,L2,L3,[_,_,_,_,_,_,_,_,_,_|R],X,Y) :-
    九九(L1,L2,[_|L3],R,X,Y),!.
九九([_|R1],L2,L3,L4,X,Y) :-
    append(L2,L4,L5),
    九九(R1,L2,L3,L5,X,Y).

九九解表示([_,_,_,_,_,_,_,_,_],X,Y) :-
   format('%t%t\n',[X,Y]),!.
九九解表示(_,X,Y) :-
   format('%t%t ',[X,Y]).

リストよりf(f(0))の表現の方がスッキリ書けるかな。

言語指定を誤り、PrologでなくOtherにアラビア数字を削った訂正版を載せました。仕様を読み違えてました。

DouKaku?

Comment detail

Index

Feed

Other

Link

Pathtraq