このディレクトリの索引

#  出典 :: C/C++の宿題片付けます 127代目
#  [1] 授業単元: c言語演習  
#  [2] 問題文(含コード&リンク): http://kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/9478.txt  

gcd(M,N,N) :- 
    0 is M mod N,!. 
gcd(M,N,X) :- 
    Mod is M mod N, 
    gcd(N,Mod,X). 

gcd(M,N,O,X) :- 
    gcd(M,N,Y), 
    gcd(Y,O,X).