【queue】FIFO queues

shijiang1130

Abstract Data Type for FIFO Queues
模块名： queue

2> queue:new().
{[],[]}
3> A=queue:new().
{[],[]}
4> A.
{[],[]}
5> queue:is_queue(A).
true
6> queue:len(A).
0
7> queue:in("aaa",A).
{["aaa"],[]}
8> queue:len(A).     
0
9> queue:in("aaa",A).
{["aaa"],[]}
10> Q2=queue:in("aaa",A).
{["aaa"],[]}
11> queue:len(Q2).      
1
12> queue:get(Q2).
"aaa"
13> queue:get(Q2).

shijiang1130

1. 17> A=queue:from_list(["www.baidu.com","www.163.com","www.qq.com","www.sina.com.cn"]).
   
2. {["www.sina.com.cn"],
   
3. ["www.baidu.com","www.163.com","www.qq.com"]}
   
4. 18> queue:drop(A).
   
5. {["www.sina.com.cn"],["www.163.com","www.qq.com"]}
   
6. 19> queue:in("www.aa.com",A).                                                   
   
7. {["www.aa.com","www.sina.com.cn"],
   
8. ["www.baidu.com","www.163.com","www.qq.com"]}
   
9. 20> queue:drop(A).           
   
10. {["www.sina.com.cn"],["www.163.com","www.qq.com"]}
    
11.   
    
12. 21> queue:out(A).
    
13. {{value,"www.baidu.com"},
    
14. {["www.sina.com.cn"],["www.163.com","www.qq.com"]}}
    
15. 22> queue:last(A).
    
16. "www.sina.com.cn"
    
17. 23> queue:head(A).
    
18. "www.baidu.com"
    
19. 24> A.                       
    
20. {["www.sina.com.cn"],
    
21. ["www.baidu.com","www.163.com","www.qq.com"]}
    
22. 25> queue:in("www.aa.com",A).
    
23. {["www.aa.com","www.sina.com.cn"],
    
24. ["www.baidu.com","www.163.com","www.qq.com"]}
    
25. 26> queue:out(A).            
    
26. {{value,"www.baidu.com"},
    
27. {["www.sina.com.cn"],["www.163.com","www.qq.com"]}}
    
28. 27> queue:drop(A).           
    
29. {["www.sina.com.cn"],["www.163.com","www.qq.com"]}
    
30. 28> S=queue:drop(A).
    
31. {["www.sina.com.cn"],["www.163.com","www.qq.com"]}
    
32. 29> S.      
    
33. {["www.sina.com.cn"],["www.163.com","www.qq.com"]}
    
34. 30> queue:drop(S).  
    
35. {["www.sina.com.cn"],["www.qq.com"]}
    
36. 31> S1=queue:drop(S).
    
37. {["www.sina.com.cn"],["www.qq.com"]}
    
38. 32> queue:drop(S1).  
    
39. {[],["www.sina.com.cn"]}
    
40. 33>

复制代码

shijiang1130

1. enqueue(Value, Queue) ->
   
2.     Pushed = queue:in(Value, Queue),
   
3.     Sum = fun (Q) -> lists:sum(queue:to_list(Q)) end,
   
4.     case queue:len(Pushed) of
   
5.         Len when Len > 10 ->
   
6.             Popped = queue:drop(Pushed),
   
7.             {Popped, Sum(Popped)};
   
8.         _ ->
   
9.             {Pushed, Sum(Pushed)}
   
10.     end.

复制代码