このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1274827528/58
#  [1] 授業単元:C言語プログラミング 
#  [2] 問題文:10進数を2進数に変換するプログラムをC言語でつくれ 
#  

二進数(_10進数,L) :- 
        _10進数 >= 0,    
        length(L,32), 
        二進数(_10進数,[],X), 
        append(L1,X,L), 
        all(L1,0),!.
二進数(_10進数,[1|L]) :- 
        _10進数 < 0,
        _10進数_11 is maxint + _10進数 + 1,
        二進数(_10進数_1,[],X), 
        append(L1,X,[_|L]), 
        all(L1,0),!.

二進数(J,Y,[J|Y]) :- J < 2,!. 
二進数(J,Y,X) :- J >= 2,J2 is J // 2,M is J mod 2,二進数(J2,[M|Y],X).