-- http://www.codewars.com/kata/5506b230a11c0aeab3000c1f
module Codewars.Kata.Evaporator where

evaporator :: Double -> Double -> Double -> Integer
evaporator _ e t = ceiling $ (log $ t / 100) / (log $ 1 - e / 100)
