fork(1) download 
  1. instance Num (IO a)
  2. instance Fractional (IO a)
  3. instance Floating (IO a)
  4. kld1 p q = do
  5.   if length p /= length q 
  6.     then return () 
  7.     else do
  8.       let pp = map (/sum(p)) p 
  9.           qq = map (/sum(q)) q 
  10.       sum $ zipWith (\x y -> x * (log x)/(log y)) pp qq 
  11. main = kld1 [1/2,1/2] [1/4,3/4]
Runtime error #stdin #stdout #stderr 0s 0KB
comments (?)
stdin 
Standard input is empty
stdout 
Standard output is empty
stderr 
prog: prog.hs:1:10-19: No instance nor default method for class operation fromInteger
https://ideone.com/VBpsvO
language:
Haskell (ghc 8.4.4)
created:
5 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

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