このディレクトリの索引
#  @TakaoOzaki 分数の問題と言っていたのはこれです。\
#  “@utatakiyoshi: 友達がSkypeで
#  「0~9を1回ずつ使い,?????/?????=1/9となるように?を埋めよ」って
#  算数パズルを出してきたからC++でサクッと書いてドヤ顔してやった”
#  

'0~9を1回ずつ使い,?????/?????=1/9となるように?を埋めよ'(X/Y) :-
        順列([0,2,3,4,5,6,7,8],8,[B,C,D,E,G,H,I,J]),
        X is 1 * 10000 + B * 1000 + C * 100 + D * 10 + E,
        Y is 9 * 10000 + G * 1000 + H * 100 + I * 10 + J,
        9 is Y // X,
        0 is Y mod X.

順列(Y,0,[]).
順列(Y,N,[A|X]) :-
        del(A,Y,Z),
        M is N - 1,
        順列(Z,M,X).

del(A,[A|X],X).
del(A,[B|X],[B|Y]) :-
        del(A,X,Y).