dec_bin(1,1).
dec_bin(N,B):-N>1,X is N mod 2,Y is N//2,dec_bin(Y,B1),B=B1+X.
これにより、出力が得られます:
?- dec_bin(12,K).
K = 1+1+0+0.
しかし、「+」記号なしで 1100 だけが必要です。誰か助けてください..
dec_bin(1,1).
dec_bin(N,B):-N>1,X is N mod 2,Y is N//2,dec_bin(Y,B1),B=B1+X.
これにより、出力が得られます:
?- dec_bin(12,K).
K = 1+1+0+0.
しかし、「+」記号なしで 1100 だけが必要です。誰か助けてください..