I hereby claim:
- I am michaeldperez on github.
- I am michaeldperez (https://keybase.io/michaeldperez) on keybase.
- I have a public key ASCjwJ42XS4MOxgvFEoiAFgTAFq5RKJVHOjPN257-sP95Qo
To claim this, I am signing this object:
I hereby claim:
To claim this, I am signing this object:
-module(frequency2). | |
-export([start/0,allocate/0,deallocate/1,stop/0]). | |
-export([init/0]). | |
start() -> | |
register(frequency2, | |
spawn(frequency2, init, [])). | |
init() -> | |
Frequencies = {get_frequencies(), []}, |
-module(mailbox). | |
-export([receiver/0, receiver_ordered/0]). | |
receiver() -> | |
receive | |
stop -> io:format("Stopped.~n"); | |
Msg -> io:format("Message received: ~s~n", [Msg]), | |
receiver() | |
end. |
-module(palin). | |
-export([palindrome_check/1]). | |
rem_punct(String) -> | |
lists:filter(fun (Ch) -> | |
not(lists:member(Ch, "\"\'\t\n ")) | |
end, String). | |
to_small(String) -> lists:map(fun(Ch) -> | |
case ($A =< Ch andalso Ch =< $Z) of |
-module(superv). | |
-export([start/1, init/1]). | |
%% Starts the supervisor | |
%% Server has form {Module, Function, Args} | |
start(Server) -> | |
register(?MODULE, | |
spawn(?MODULE, init, [Server])). | |
%% Initializes the supervision process |
-module(frequency2). | |
-export([start/0,allocate/0,deallocate/1,stop/0]). | |
-export([init/0]). | |
%% These are the start functions used to create and | |
%% initialize the server. | |
start() -> | |
register(frequency2, | |
spawn(frequency2, init, [])). |
% Does not properly formate index | |
% Does not remove duplicates | |
-module(index). | |
-export([get_file_contents/1, | |
show_file_contents/1, | |
map_to_words/1, | |
index/1]). | |
% Used to read a file into a list of lines. |
-module(bits). | |
-export([bits/1]). | |
% Bits with an arity of 1 calls bits/2 with arguments Number and a preset Sum of 0. | |
bits(Number) -> | |
bits(Number, 0). | |
% When Number is 0, all bits have been calculated so return the sum. | |
% Actually, I'm taking for granted the fact that 0 rem 2 == 0 so really I'm returning Sum + 0. | |
bits(0, Sum) -> |