OCaml의에서 재귀 함수를 만들려고 노력

Question

그래서 나는 내가 OCaml의 재귀로 번역하고 싶습니다이 while 루프 개념이 있습니다

의사 코드 :

n = read integer from stdin 
m = 1 
while m*(m+1)/2 < n 
    m = m + 1 
print m 

OCaml의 나의 시도 :

를

let n = int_of_string (input_line stdin) in 

let rec get_ans m n = 
    if m*(m+1)/2 < n then get_ans (m + 1) n else m;; 

print_endline get_ans 1 n; 

그러나 내가 잘못하고있는 것에 대한 자세한 내용없이 긴 함수 줄에는 "구문 오류"가 나타납니다.

Answer 1

in을 사용하여 최상위 선언에 연결할 수 없습니다. ;;이 아닌 in이 아니라는 이유는 ;;이 in <valid expression> 일 것으로 예상하기 때문입니다. 또한 괄호가 누락되거나 불필요한 경우 몇 가지 문제가 있습니다. 그것에게 유효한 식 만들 것 번째하자뿐만 아니라 바인딩 후 in를 사용하여, 또는

let n = int_of_string (input_line stdin);; 

let rec get_ans m n = 
    if m*(m+1)/2 < n then get_ans (m + 1) n else m;; 

print_endline (string_of_int (get_ans 1 n)); 

: : 첫 번째 in를 제거하면 작동합니다

let n = int_of_string (input_line stdin) in 
let rec get_ans m n = 
    if m*(m+1)/2 < n then get_ans (m + 1) n else m in 

print_endline (string_of_int (get_ans 1 n)) 

을하지만,이 경우에 선도적 인 let() =는 만들 추정됩니다 그것은 유효한 최상위 선언입니다.