problem_cpu.erl

%%%-------------------------------------------------------------------
%%% @copyright (C) 2020, Erlang Solutions Ltd.
%%% @doc Create a long running process which consumes CPU periodically
%%% @end
%%%-------------------------------------------------------------------
-module(problem_cpu).

%% API
-export([start/0]).

start() ->
  erlang:spawn(fun process_loop/0).

process_loop() ->
  % 1 million empty cycles
  counter(1000000),
  % Sleep a little
  receive after 250 -> ok end,
  % More work?
  process_loop().

counter(0) -> ok;
counter(N) -> counter(N - 1).