Contents

I qu (``) u  0.

R (``) c   f  f .



___u(M, N, O) :-
    E =.. [O, M, N],
    Ru  E,
    f('~ ~8| ~~', [E, Ru]).

c_ :-
    (M),
    (N),
    ( ___u(M, N), [+,-,*,,,^] ).



U u:


?- c_.
|: 5.
|: 7.
5+7      12
5-7      -2
5*7      35
57     0
5  7  5
5^7      78125
u.

Version data entries

1 entries across 1 versions & 1 rubygems

Version	Path
zettacode-0.1.0	zettacode.files/arithmetic.integer/prolog.txt