배열 정렬 명령형 ocaml

Question

나는 명령형 언어로 ocaml을 사용하는 방법을 배우기보다 쉬운 예제를 사용하고 있습니다. 내 생각 엔 내가 세미콜론으로 엉망하지만

let sort array = 
for index = 0 to (Array.length array -1) do 
    let boole = ref false; 
    let pos = ref index; 
    let max = ref array.(index); 
    let p = ref !pos; 
    let m = ref !max; 
    while !pos <> (Array.lenght array -1) do 
     if array.(!pos) > !max then begin 
      max := array(!pos); 
      boole := true; 
      p := !pos 
     end 
     pos := !pos + 1 
    done; 
    if (!boole = true) then begin 
     array.(index) <- max; 
     array.(pos) <- m 
    end 
done ;; 

감사합니다 코드에서 어떤 실수를 찾을 수 없습니다.

편집 1 :

let sort array = 
for index = 0 to (Array.length array -1) do 
let boole = ref false in 
let pos = ref index in 
let max = ref array.(index) in 
let p = ref !pos in 
let m = ref !max in  
for i = !pos to (Array.length array -1) do 
    if (array.(i) > !max) then begin 
    pos :=i;  
    max := array.(!pos); 
    boole := true; 
    end; 
done; 
if (!boole = true) then begin 
    array.(!pos) <- !m; 
    array.(!p) <- !max; 
end; 
done ;; 

Answer 1

먼저 OCaml에 let x = y; 표현이없고 정확한 구문은 let x = y in이며 참조를 역 참조하는 것을 잊어서는 안됩니다.

let sort array = 
    for index = 0 to (Array.length array -1) do 
    let boole = ref false in 
    let pos = ref index in 
    let max = ref array.(index) in 
    let p = ref !pos in 
    let m = ref !max in 
    while !pos <> (Array.length array -1) do 
     if array.(!pos) > !max then begin 
     max := array.(!pos); 
     boole := true; 
     p := !pos 
     end; 
     pos := !pos + 1; 
    done; 
    if (!boole = true) then begin 
     array.(index) <- !max; 
     array.(!pos) <- !m; 
    end; 
    done ;; 

Answer 2

:

누군가가이 질문을 통해 오는 경우

, 내가 올바른 코드를 게시하도록하겠습니다 위의 경우에도 올바른 구문을 올바르게 배열을 정렬하지 않은 원인 코드에서 수정 프로그램을 다음과 같은 것이 도움이 될 수 있습니다 - 적어도 코드를 컴파일 얻을 : -

let sort toto = 
     for index = 0 to (Array.length toto - 1) do 
       let boole = ref false in 
       let pos = ref index in 
       let max = ref toto.(index) in 
       let p = ref !pos in 
       let m = ref !max in 
       begin 
         while !pos <> (Array.length toto - 1) do 
         begin 
           if (toto.(!pos) > !max) then 
           begin 
             max := toto.(!pos); 
             boole := true; 
             p := !pos; 
           end; 
           pos := !pos + 1; 
         end 
         done; 
         if (!boole = true) then begin 
           toto.(index) <- !max; 
           toto.(!pos) <- !m 
         end 
       end 
     done;; 

특히

: 지역 변수의 선언, 또한 일부 누락 된 세미콜론. 나는 인수의 이름을 변경한다. (array to toto) - 배열은 키워드이기 때문에 필요하지 않다고 생각한다.