|
@@ -15,9 +15,9 @@ $ cd token_bucket
|
|
$ make run
|
|
$ make run
|
|
1> token_bucket:is_limit_reached(123).
|
|
1> token_bucket:is_limit_reached(123).
|
|
false.
|
|
false.
|
|
-2> [token_bucket:is_limit_reached(123) _ <- lists:seq(1,5)].
|
|
|
|
|
|
+2> [token_bucket:is_limit_reached(123) || _ <- lists:seq(1,5)].
|
|
[false,false,false,true,true]
|
|
[false,false,false,true,true]
|
|
-3> [token_bucket:is_limit_reached(123, 4) _ <- lists:seq(1,5)].
|
|
|
|
|
|
+3> [token_bucket:is_limit_reached(123, 4) || _ <- lists:seq(1,5)].
|
|
[false,false,false,false,true]
|
|
[false,false,false,false,true]
|
|
4> [token_bucket:is_limit_reached(123, infinity) || _ <- lists:seq(1,5)].
|
|
4> [token_bucket:is_limit_reached(123, infinity) || _ <- lists:seq(1,5)].
|
|
[false,false,false,false,false]
|
|
[false,false,false,false,false]
|