RosettaCodeData/Task/Equilibrium-index/Prolog/equilibrium-index-2.pro

5 lines
85 B
Prolog
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
?- equilibrium_index([-7, 1, 5, 2, -4, 3, 0], Index).
Index = 3 ;
Index = 6 ;
false.