Interesting Atom Module

all_atoms.erl

-module(all_atoms).

-export([all_atoms/0, node_atoms/0, node_atoms/1]).

atom_by_number(Index) ->
    binary_to_term(<<131,75,Index:24>>).

all_atoms() ->
    atoms_starting_at(0).

atoms_starting_at(Index) ->
    try atom_by_number(Index) of
        Atom ->
            [{Atom,Index}] ++ atoms_starting_at(Index + 1)
    catch
        error:badarg ->
            []
    end.

node_atoms() ->
    node_atoms(all_atoms()).

node_atoms(List) when is_list(List) ->
    FilterFun = fun({Atom,_Index}) when is_atom(Atom) -> length(string:tokens(atom_to_list(Atom),"@")) == 2 end,
    lists:filter(FilterFun, List).