Ocaml：再次调用递归函数

发布于 2024-10-29 18:54:24 字数 401 浏览 1 评论 0原文

所以我有一个递归函数，它接受 2 个整数和一个 out_channel ，并且基本上打印行（a，a+1）。它应该这样做直到 a 的值等于 b。即如果 a = 1, b = 5

line(1,2) 线(2,3) ...line(4,5)

> let rec print_line (out:out_channel)(a:int)(b:int) : unit =
  if (a < b) then output_string out ("line("^string_of_int(a)^","^string_of_int(a+1)^")\n")
>    ;;

我想让它递归，它不断打印行(a,a+1) 直到a 不再小于b。我究竟该如何再次调用它？

任何帮助将不胜感激。

原文

So I have a recursive function that takes in 2 ints, and a out_channel and basically prints line(a,a+1). It should do this until value of a is equal to b. I.e if a = 1, b = 5

line(1,2)
line(2,3)
...line(4,5)

> let rec print_line (out:out_channel)(a:int)(b:int) : unit =
  if (a < b) then output_string out ("line("^string_of_int(a)^","^string_of_int(a+1)^")\n")
>    ;;

I want to make it recursive where it keeps printing the line(a,a+1) until a is no longer less than b. How exactly do I call it again?

Any help would be appreciated.

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

很糊涂小朋友 2024-11-05 18:54:24

因此：首先检查是否 a >= b 在这种情况下，您已完成并可以返回 ()。否则打印一行（就像你所做的那样），然后递归调用你的函数，并增加a。总而言之：

let rec print_line (out:out_channel)(a:int)(b:int) : unit =
  if a >= b then
    ()
  else (
    output_string out ("line("^string_of_int(a)^","^string_of_int(a+1)^")\n");
    print_line out (a + 1) b
  )

So: first check whether a >= b in which case you are done and can return (). Otherwise print one line (the way you did) followed by recursive call to your function, with incremented a. So altogether:

let rec print_line (out:out_channel)(a:int)(b:int) : unit =
  if a >= b then
    ()
  else (
    output_string out ("line("^string_of_int(a)^","^string_of_int(a+1)^")\n");
    print_line out (a + 1) b
  )

回复收藏 0 原文

~没有更多了~