RosettaCodeData/Task/Metaprogramming/Prolog/metaprogramming-1.pro

4 lines
93 B
Prolog
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
:- initialization(main).
main :- clause(less_than(1,2),B),writeln(B).
less_than(A,B) :- A<B.