Der Versuch, eine rekursive Funktion in OCaml zu machen

Question

So habe ich diese while-Schleife Konzept, dass ich in eine OCaml Rekursion übersetzen möchten:

Pseudocode:

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

Mein Versuch in 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; 

Allerdings bekomme ich nur "Syntaxfehler" auf der langen Funktionszeile ohne jedes Detail, was ich falsch mache.

Answer 1

Sie können in nicht verwenden, um Toplevel-Deklarationen zu verknüpfen. Der Grund, warum Sie einen Fehler bei ;; anstelle von in erhalten, ist, dass es ;;in <valid expression> erwartet. Sie haben auch einige Probleme mit fehlenden oder überflüssigen Klammern. Entfernen des ersten in funktionieren würde:

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)); 

Alternativ mit in nach dem zweiten let-Bindung als auch würde es einen gültigen Ausdruck machen:

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)) 

Aber in diesem Fall ein führender let() = wird gefolgert zu machen es ist eine gültige Toplevel-Deklaration.