-- Problema: Defina uma função que associa um numero decimal ao seu representante na base 2
-- Solução.: Luan Leonardo

-- Main> binario 15
-- [1,1,1,1]

-- Main> binario 89
-- [1,0,1,1,0,0,1]

-- Main> binario 100
-- [1,1,0,0,1,0,0]

-- Main> binario 55
-- [1,1,0,1,1,1]

-- Main> binario 37
-- [1,0,0,1,0,1]

binario n =

        if n == 0 then [0]
        else
        if n == 1 then [1]
        else
           binario (div n 2) ++ [(mod n 2)]