lolspeed.erl

-module(lolspeed).

-export([main/0]).

-define(LOLEND, 1000000).

%% > lolspeed:main().
%% = {10354,ok}
%% == {10991,ok}
%% =:= {8509,ok}

main() ->
    io:format("= ~p~n", [timer:tc(fun bindeq/1, [0])]),
    io:format("== ~p~n", [timer:tc(fun eqeq/1, [0])]),
    io:format("=:= ~p~n", [timer:tc(fun eqcoloneq/1, [0])]).

bindeq(?LOLEND) ->
    ok;
bindeq(N) ->
    3.0 = 3.0,
    bindeq(N+1).

eqeq(?LOLEND) ->
    ok;
eqeq(N) ->
    true = (3.0 == 3.0),
    eqeq(N+1).

eqcoloneq(?LOLEND) ->
    ok;
eqcoloneq(N) ->
    true = (3.0 =:= 3.0),
    eqcoloneq(N+1).