OCaml：帶條件的簡單函數不起作用

Question

我是OCaml的新手，我正在學習它。 我試圖執行一個簡單的函數，根據a和b的值計算(a+b)^2或(ab)^2

我正在嘗試具有如下功能

let a_squared_b a b = 
if(a<0 || b<0) then 
(a**2 + b**2 + 2*a*b) 
 else 
(a**2 + b**2 - 2*a*b);;

它會返回一個警告

Error: This expression has type int but 
an expression was expected of type float

所以我嘗試了以下一個：

let a_squared_b (a:float) (b:float) : float = 
if(a<0 || b<0) 
then (a**2 + b**2 + 2*a*b) 
else (a**2 + b**2 - 2*a*b);;

這也警告了一些事情。 因此，我繼續檢查該函數是否有效，但它返回錯誤的結果 -

a_squared_b 2 2;;
- : int = 0         

我不確定我做錯了什么，任何幫助都將不勝感激

Answer 1

簡而言之，OCaml對整數和浮點數使用不同的運算符，即( *. )代替( * ) ， (+.)代替(+)等。另外，你應該使用2.而不是2來獲得float類型的“變量” 。

# let a_squared_b (a:float) (b:float) : float = if(a<0. || b<0.) then (a**2. +. b**2. +. 2. *. a*. b) else (a**2. +. b**2. -. 2. *. a*. b);; val a_squared_b : float -> float -> float = <fun>
# a_squared_b 2. 2.;;

您可以獲得更多信息，例如， 那里