ПРОЛОГ-задачка

Как ще стане: програма, която намира втория отрицателен елемент в даден числов списък.

Нещо от рода:

get_second([3, 2, -5, 7, -9, 1], [],El)
================
get_second ([], [], "") :-
!
;
get_second ([A | B], List2, El) :-
A > 0 &
! &
get_second (B, List2, El)
;


get_second ([A | B], [], El) :-
get_second (B, [A], El)
;
get_second ([A | B], _, A) :-
!
;


Нели 14/06/2004