このディレクトリの索引
#  出題場所 :: http://toro.2ch.net/test/read.cgi/tech/1357191974/789
#  お題:1000以下の自然数で各桁がすべて奇数のものを求める。 
#  例 
#  121 -> ng  //偶数の桁がある 
#  357 -> ok 
# 
# 

'1000以下の自然数で各桁がすべて奇数のものを求める。'(_1000以下の自然数で各桁がすべて奇数のもの) :-
        between(1,1000,_1000以下の自然数),
        number_chars(_1000以下の自然数,_数字ならび),
        forall(member(_数字,_数字ならび),member(_数字,['1','3','5','7','9'])),
        _1000以下の自然数 = _1000以下の自然数で各桁がすべて奇数のもの.