erlang習(xí)作：36選7彩票選號(hào)程序

formalin14

該程序會(huì)讓你指定其中一個(gè)號(hào)碼（我一般指定我的幸運(yùn)數(shù)字），然后隨機(jī)產(chǎn)生剩余的六個(gè)號(hào)碼。

1. 
   
2. -module(lottery).
   
3. 
   
4. -export([main/0]).
   
5. 
   
6. get_lucky_num() ->
   
7.         get_lucky_num(lists:map(fun erlang:integer_to_list/1, lists:seq(1, 36))).
   
8. 
   
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.
    
18. 
    
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.
    
29. 
    
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), " ")]).
    
32. 
    
33. main() ->
    
34.         output_result(roll([get_lucky_num()])).
    
35. 
    

復(fù)制代碼

[ 本帖最后由 formalin14 于 2008-9-12 14:24 編輯 ]

fuqiang_huang

good

swordfish.cn

看不懂，不過支持一把。

MMMIX

Erlang 的語(yǔ)法真是。。。

blizzard213

原帖由 MMMIX 于 2008-9-12 21:53 發(fā)表
Erlang 的語(yǔ)法真是。。。

從prolog來的
而且號(hào)稱眼睛殺手

patagonia2

這真是太好了

patagonia2

我的幸運(yùn)六

1. %-module(lucky).
   
2. -define(P, io:format).
   
3. 
   
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.
    

復(fù)制代碼