erlang习作：36选7彩票选号程序

Question

该程序会让你指定其中一个号码（我一般指定我的幸运数字），然后随机产生剩余的六个号码。

2. -module(lottery).
4. -export([main/0]).
6. get_lucky_num() ->
7.         get_lucky_num(lists:map(fun erlang:integer_to_list/1, lists:seq(1, 36))).
9. get_lucky_num(List36) ->
10.         Num = string:strip(io:get_line("Please input your lucky number>"), right, $n),
11.         case lists:member(Num, List36) of
12.                 true ->
13.                         Num;
14.                 false ->
15.                         io:format("Must input an integer between 1 and 36!~n", []),
16.                         get_lucky_num(List36)
17.         end.
19. roll(Result) when length(Result) < 7 ->
20.         RNum = integer_to_list(random:uniform(36)),
21.         case lists:member(RNum, Result) of
22.                 true ->
23.                         roll(Result);
24.                 false ->
25.                         roll([RNum | Result])
26.         end;
27. roll(Result) ->
28.         Result.
30. output_result(Result) ->
31.         io:format("Got your numbers: ~s.~n", [string:join(lists:sort(fun(A,B)->list_to_integer(A)<list_to_integer(B) end, Result), " ")]).
33. main() ->
34.         output_result(roll([get_lucky_num()])).

复制代码
[ 本帖最后由 formalin14 于 2008-9-12 14:24 编辑 ]

Answer 1

我的幸运六

1. %-module(lucky).
2. -define(P, io:format).
4. lucky (_, R, 0) -> R;
5. lucky (L, R, N) ->
6.     P = random:uniform (L),
7.     case lists:member (P, R) of
8.       true -> lucky (L, R, N);
9.       false -> lucky (L, [P|R], N - 1)
10.     end.
11.   
12. main(_) ->
13.   {N, S} = {36, 6},
14.   random:seed (time()),
15.   Lucky = lucky (N, [], S),
16.   ?P ("~p~n", [Lucky]),
17. halt.

复制代码

Answer 2

这真是太好了

Answer 3

原帖由 MMMIX 于 2008-9-12 21:53 发表
Erlang 的语法真是。。。

从prolog来的
而且号称眼睛杀手

Answer 4

Erlang 的语法真是。。。

Answer 5

看不懂，不过支持一把。

Answer 6

good