Работа с нерекурсивными списками

Question

Так что я недавно работал с списками. Я хочу сделать нерекурсивную функцию name: int list -> int, которая возвращает разницу между самым высоким и самым низким числом в списке. Есть простой способ сделать это с возможно list.fold, list.filter or list.exist?

Я предполагаю, что я могу сделать это с list.max и list.min, но я хочу попробовать с некоторыми другими функциями.

Любая помощь?

Answer 1

Для вас значит что-то вроде этого?

let distanceMinMax xs = 
    let (min,max) = List.fold (fun (min, max) x -> ((if x < min then x else min), (if x > max then x else max))) 
           (System.Int32.MaxValue, System.Int32.MinValue) 
           xs 
    (max - min) 

Испытано в РЕПЛ:

> distanceMinMax [1;-1;2;5;7;-3];; 
val it : int = 10 

Подсказка: Пустой список [] не поддерживается:

> distanceMinMax [];; 
val it : int = 1