最小および/または最大リストが

Question

値、私は、リスト内の最大値を返す単純な関数を構築します：ここでは

let finMin =  //Find smallest value in list 
fun l -> 
    let rec aux = 
     fun l k -> 
      match l with 
      | []  -> k 
      | x::xs  -> if x <= k then aux xs x 
          else aux xs k 
    aux l 0 

問題：私はk = 0の両方auxの機能を初期化します。これは部分的にのみ有効です：負の値がリストにない限り、findMaxは正しく機能します。同様に、findMinは負の数でのみ正常に機能します。

kを効率的に初期化するための適切な値は？システム依存の値はありますか？私は以前にそれを計算する必要がありますか？私は間違った側から問題に近づいていますか？

P.S.私はminとmaxを見つけるためにライブラリ関数を使用しません。言語の仕組みを学んでいるからです。お待ち頂きまして、ありがとうございます。

Answer 1

リストの最初の項目を最小値または最大値にすることができます。次に、リストの残りの部分を繰り返します。例：

let myMax items = 
    match items with 
    | [] -> failwith "no data" 
    | head :: tail -> 
     let rec recMax maxSoFar items = 
      match items with 
       | [] -> maxSoFar 
       | head :: tail -> 
        if head > maxSoFar then 
         recMax head tail 
        else 
         recMax maxSoFar tail 
     recMax head tail 

Answer 2

System.Int32.MaxValueである必要があります。また、ネガを正しく使用するためにfindMaxにはSystem.Int32.MinValueを使用する必要があります。