1
用我的原代码,我一直就行let numDigits = numDigits - 1 in
麻烦与OCaml的嵌套如果
原始越来越Error: Parse error: [expr level ;] expected after "in" (in [expr])
:
let rec rev_int num =
if num/10 == 0 then
num
else
let temp = num mod 10 in
let numDigits = String.length(string_of_int num) - 1 in
if num < 0 then
let numDigits = numDigits - 1 in
else
let numDigits = numDigits + 0 in
let num = (num - temp)/10 in
temp * int_of_float(10.0 ** float_of_int numDigits) + rev_int num
随着变化:
if num < 0 then
let numDigits = numDigits - 1 in;
else
let numDigits = numDigits + 0 in;
if num < 0 then
let numDigits = numDigits - 1 in
else begin
let numDigits = numDigits + 0 in end
我修改了代码,现在它的工作原理,但我想知道是否有办法做到嵌套,如果和更少的冗余。
修:
let rec rev_int num =
if num/10 == 0 then
num
else
let temp = num mod 10 in
let numDigits = String.length(string_of_int num) - 1 in
if num < 0 then
let numDigits = numDigits - 1 in
let num = (num - temp)/10 in
temp * int_of_float(10.0 ** float_of_int numDigits) + rev_int num
else
let numDigits = numDigits + 0 in
let num = (num - temp)/10 in
temp * int_of_float(10.0 ** float_of_int numDigits) + rev_int num
也许这是更合适的问上[codereview.SE](http://codereview.stackexchange.com/questions/tagged/ocaml )? –