このディレクトリの索引
#  
#  数値を数字のならびに変換する
#  ?- number_numbers(324,[3,2,4]).
#  

上位桁から数を取り出す(_整数,_何桁目,_上位桁から取り出された数) :-
        number_numbers(_整数,_数ならび),
        nth1(_何桁目,_数ならび,_上位桁から取り出された数).
        
number_numbers(_数値,Numbers) :-
        number_chars(Number,Chars),
        findall(N,(
                    member(A,Chars),
                    number_numbers_2(A,N)),
                Numbers).

number_numbers_2(A,N) :-
        A @>= '0',
        A @=< '9',
        atom_number(A,N),!.                    
number_numbers_2(A,A).