📦 Anurag-05-prog / Prolog

Prolog / Max_Min_Search_In_List.md
📄 Max_Min_Search_In_List.md · 31 lines 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31# Q. Find Max and Min in list

## Code

max_l([],M):- write(M).

max_l([H|T],M):-
    H >= M,
    M1 is H,
    max_l(T,M1).

max_l([H|T],M):-
    H < M,
    max_l(T,M).min_l([],M):- write(M).


min_l([H|T],M):-
    H < M,
    M1 is H,
    min_l(T,M1).

min_l([H|T],M):-
    H >= M,
    min_l(T,M).

## Query

1st - max_l([4,2,-2,7],-9999).

2nd - min_l([4,2,-2,7],9999).