• + 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