Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- // --------------------------- 1
- let avg (lista:int list) =
- let rec sum lista suma =
- match lista with
- | [] -> suma
- | head :: tail -> sum tail (suma + head)
- let suma = sum lista 0
- let rec length lista =
- match lista with
- | [] -> 0
- | head :: tail -> 1 + length tail
- let srednia = length lista
- suma/srednia
- avg [2; 15; 1; 2]
- // ------------------------------ 2
- let minMax (lista:int list) =
- let rec findMax lista max =
- match lista with
- | [] -> max
- | head :: tail -> findMax tail (if head > max then head else max)
- let rec findMin lista min =
- match lista with
- | [] -> min
- | head :: tail -> findMin tail (if head < min then head else min)
- (findMax lista -9999, findMin lista 9999)
- minMax [6; -2; 3; 4; 5]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement