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

5 lines
85 B
Prolog
Raw Permalink Normal View History

2015-02-20 00:35:01 -05:00
?- equilibrium_index([-7, 1, 5, 2, -4, 3, 0], Index).
Index = 3 ;
Index = 6 ;
false.