Соберите вход в список с помощью Erlang

Question

Мне нужно создать программу, которая считывает номер с консоли и собирает их в список. Например, при входе:

1 
2 
3 
4 

программа должна вернуть [1, 2, 3, 4]. Алгоритм достаточно прост:

• читать ввод
• Если вход разве пустой толчок его в список
• еще возвращаемый результат в списке

Я считаю, что программа должна выглядеть следующим образом (# для деталей, которые я не знаю, как писать):

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>