Sha256: 8237aa72da64c20646098c6048c53838a075b03addf03e161920b547bac3e371
Contents?: true
Size: 309 Bytes
Versions: 84
Compression:
Stored size: 309 Bytes
Contents
-module(grains).
-export([square/1, total/0]).
square(N) ->
square(N, 1).
square(1, Acc) ->
Acc;
square(N, Acc) ->
square(N - 1, Acc * 2).
total() ->
% Not the most efficient, but is passes.
lists:foldl(fun(Elem, Acc) -> square(Elem) + Acc end,
0,
lists:seq(1, 64)).
Version data entries
84 entries across 84 versions & 1 rubygems