Gapful numbers: Difference between revisions

Content added Content deleted

Inline

@@ Line 922: / Line 922: @@
 <lang erlang>-module(gapful_demo).
+-mode(compile).
+report_range([Start, Size]) ->
-main(_) ->
+ io:fwrite("The first ~w gapful numbers >= ~w:~n~w~n~n", [Size, Start,
-  lists:map(
+  stream:to_list(stream:take(Size, stream:filter(fun gapful:is_gapful/1,
-    fun([Start,Size]) ->
+  stream:naturals(Start))))]).
-      io:fwrite("~w~n",
-        [stream:to_list(stream:take(Size, stream:filter(fun gapful:is_gapful/1, stream:naturals(Start))))]) end,
-    [ [100,30], [1000000,15], [1000000000,10] ]).</lang>
+main(_) -> lists:map(fun report_range/1, [[1,30],[1000000,15],[1000000000,10]]).</lang>
 {{Out}}