このディレクトリの索引

全角数値文字列整数変換(_全角文字数値,_整数) :-
        atom_chars(_全角文字数値,Chars),
        全角数値文字ならび整数変換(Chars,_整数).

全角数値文字ならび整数変換(Chars,_整数) :-
        全角数値文字ならび整数変換(Chars,0,_整数).

全角数値文字ならび整数変換([],N,N) :- !.
全角数値文字ならび整数変換([A|R],N1,N) :-
        全角文字整数変換(A,M),
        N2 is 10 * N + M,
        全角数値文字ならび整数変換(R,N2,N).

全角文字整数変換('0',0).
全角文字整数変換('1',1).
全角文字整数変換('2',2).
全角文字整数変換('3',3).
全角文字整数変換('4',4).
全角文字整数変換('5',5).
全角文字整数変換('6',6).
全角文字整数変換('7',7).
全角文字整数変換('8',8).
全角文字整数変換('9',9).