收集输入以使用 Erlang 列出

Question

我需要创建一个从控制台读取数字并将它们收集到列表的程序。 例如输入：

1
2
3
4

程序应该返回[1, 2, 3, 4]。 算法相当简单：

• 读取输入
• 如果输入不为空，则将其推送到列表中
• else 返回列表中的结果

我认为程序应该是这样的（# 表示我不知道如何编写的部分）：

read(L)->
  case io:fread("", "#what format")
    #number case ->
     read([N|L])
    #empty case ->
     lists:reverse(L)
  end.

Answer 1

你可以定义一个递归函数，比如

-module(test).
-compile(export_all).

input(Acc) ->
    Data = io:get_line(""),
    Data2 = lists:sublist(Data, length(Data) - 1),
    case string:len(Data2) of
        0 ->
            Acc;
        _ ->
            input(Acc ++ [Data2])
    end.

解决问题：

rorra:~/erlang > erl
Erlang/OTP 17 [erts-6.4] [source] [64-bit] [smp:8:8] [async-threads:10] [hipe] [kernel-poll:false]

Eshell V6.4  (abort with ^G)
1> c(test).
{ok,test}
2> test:input([]).
hello
world

["hello","world"]
3>