Ideone.com

download

copy

main = sequence [readLn,readLn,readLn] >>= \[v,p,n] -> print $ ceiling $ max v $ v + logBase (p+1) (10^6/n)

Success #stdin #stdout 0s 6364KB

stdin

copy

16
0.02
10000

stdout

copy

https://ideone.com/oady8W

language:

Haskell (ghc 8.4.4)

created:

visibility:

secret

Share or Embed source code

The brand new service which powers Ideone!

Widget for compiling and running the source code in a web browser!