File: BangPatterns.hs

package info (click to toggle)
haskell-ghc-exactprint 1.7.1.0-1
  • links: PTS
  • area: main
  • in suites: forky, sid, trixie
  • size: 6,044 kB
  • sloc: haskell: 32,076; makefile: 7
file content (16 lines) | stat: -rw-r--r-- 346 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
{-# LANGUAGE BangPatterns #-}

-- From https://ocharles.org.uk/blog/posts/2014-12-05-bang-patterns.html

import Data.Function (fix)
import Data.List (foldl')

hello3 :: Bool -> String
hello3 !loud = "Hello."

mean :: [Double] -> Double
mean xs = s / fromIntegral l
  where
    (s, l) = foldl' step (0, 0) xs
    step (!s, !l) a = (s + a, l + 1)