Pm_tut> :t negate
negate :: Num a => a -> a

##</code><code>##

Pm_tut> :t (-)
(-) :: Num a => a -> a -> a

##</code><code>##

nats = [0..]

##</code><code>##

Pm_tut> take 10 nats
[0,1,2,3,4,5,6,7,8,9]

##</code><code>##

open FH, '<', $file or die "Can't open $file for reading: $!\n";

##</code><code>##

const x y = x

##</code><code>##

(-) :: Num a => a -> a -> a

##</code><code>##

(-) :: Num a => (a, a) -> a

##</code><code>##

(-) :: Num a => a -> (a -> a)

##</code><code>##

(5-)

##</code><code>##

Pm_tut> putStr "Hello, world!\n"
Hello, world!

Pm_tut>

##</code><code>##

factorial n = if n == 0 then 1
                else n * factorial (n-1)

##</code><code>##

Pm_tut> :t factorial
factorial :: Num a => a -> a

##</code><code>##

factorial 0 = 1
factorial n = n * factorial (n-1)

##</code><code>##

factorial n = n * factorial (n-1)
factorial 0 = 1

##</code><code>##

factorial 0     = 1
factorial (n+1) = (n+1) * factorial n

##</code><code>##

factorial n = tr n 1 where
    tr 0 f = f
    tr n f = tr (n-1) (n*f)

##</code><code>##

factorial n = product [1..n]

##</code><code>##

product = foldl (*) 1

##</code><code>##

foldl f z []     =  z
foldl f z (x:xs) =  foldl f (f z x) xs

##</code><code>##

product xs = foldl (*) 1 xs

##</code><code>##

sum xs = foldl (+) 0 xs        -- this is in the Standard Prelude, too

##</code><code>##

or xs = foldl (||) False xs   -- this is also in the Prelude

##</code><code>##

and xs = foldl (&&) True xs    -- so is this

##</code><code>##

anyprime xs = or (map prime xs)  -- map does what you'd expect
allprime xs = and (map prime xs)

##</code><code>##

foldl :: (a -> b -> a) -> a -> [b] -> a

##</code><code>##

andprime p n = p && prime n
allprime xs  = foldl andprime True xs

##</code><code>##

allprime xs = foldl (\p n -> p && prime n) True xs

##</code><code>##

factorials = scanl (*) 1 [1..]

##</code><code>##

Pm_tut> take 10 factorials
[1,1,2,6,24,120,720,5040,40320,362880]
Pm_tut> factorials !! 24
620448401733239439360000

##</code><code>##

Pm_tut> factorials !! 65536

ERROR - Garbage collection fails to reclaim sufficient space
Pm_tut>