brute force example on erlang

erlang_brute.erl

-module(brute).
-export([brute/1]).

brute_(N, M, _, O) when N == M ->
    O;
brute_(N, M, L, O) ->
    [string:right(integer_to_list(N), L, $0) | brute_(N + 1, M, L, O)].
    
brute(N) ->
    brute_(0, math:pow(10, N), N, []).

%% usage:
% brute:brute(5).
%
%% or
% 
% {_,_} = timer:tc(brute, brute, [5]).