% Jorge Andres Gonzales A01280927
% Andres Sosa Silva A01176075
-module(ej1).
-export([formula_general/3, secuencia/1, secuencialegit/2, mapea/2, menores/2]).

formula_general(A, B,C) ->
  if
        (B*B < 4*A*C) -> "imagination";
        true -> {(-B + math:sqrt(B*B - 4*A*C))/(2*A) ,(-B - math:sqrt(B*B - 4*A*C))/(2*A)}
  end.

secuencialegit(0,_) -> [];
secuencialegit(N,X) -> [X | secuencialegit(N-1,X+1)].

secuencia(N) -> secuencialegit(N, 1).

mapea(A,B) -> lists:map(A,B).

menores(A,B) -> lists:map(fun(Y) -> lists:filter(fun(X) -> X<B end,Y) end, A).