このディレクトリの索引

'10進数8進数変換表示'(_10進数,_8進数ならび,_8進数表示) :-
        '10進数から8進数ならび'(_10進数,[],_8進数ならび),
        atomic_list_concat(_8進数ならび,_8進数表示).

'10進数から8進数ならび'(0,L,L) :- !.
'10進数から8進数ならび'(N,L1,L) :-
        M is N mod 8,
        D is N // 8,
        '10進数から8進数ならび'(D,[M|L1],L).