10 lines
227 B
Prolog
10 lines
227 B
Prolog
|
:- dynamic array/2.
|
||
|
|
|
||
|
|
run :-
|
||
|
|
write('Enter two positive integers, separated by a comma: '),
|
||
|
|
read((I,J)),
|
||
|
|
assert(array(I,J)),
|
||
|
|
Value is I * J,
|
||
|
|
format('a(~w,~w) = ~w', [I, J, Value]),
|
||
|
|
retractall(array(_,_)).
|