17 lines
352 B
Prolog
17 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).
|