16 lines
352 B
Prolog
16 lines
352 B
Prolog
ascii :-
|
|
forall(between(32, 47, N), row(N)).
|
|
|
|
row(N) :- N > 127, nl, !.
|
|
row(N) :-
|
|
code(N),
|
|
ascii(N),
|
|
Nn is N + 16,
|
|
row(Nn).
|
|
|
|
code(N) :- N < 100, format(' ~d : ', N).
|
|
code(N) :- N >= 100, format(' ~d : ', N).
|
|
|
|
ascii(32) :- write(' Spc '), !.
|
|
ascii(127) :- write(' Del '), !.
|
|
ascii(A) :- char_code(D,A), format(' ~w ', D).
|