We use cookies to ensure you have the best browsing experience on our website. Please read our cookie policy for more information about how we use cookies.
Loading...
  1. Practice
  2. Algorithms
  3. Warmup
  4. Plus Minus
  5. Discussions

Plus Minus

  • kainkordian + 0 comments

    "Same" in Haskell:

    main = do
    n_temp <- getLine
    let n = read n_temp :: Float
    arr_temp <- getLine
    let arr = map read $ words arr_temp :: [Int]
    print (get_frac arr n (>0))
    print (get_frac arr n (<0))
    print (get_frac arr n (==0))

get_frac arr n p = fromIntegral (length (filter p arr)) / n