Select Code to Download

import System

...
        putStrLn ( show cc ++ " chars " )
        putStrLn ( show w  ++ " words " )
        putStrLn ( show lc ++ " lines." )

 
C:\ghc\test>wc 60sp2l.txt
wc: interrupted
...
Heap exhausted;
Current maximum heap size is 268435456 bytes (256 Mb);
use `+RTS -M<size>' to increase it.

wcf :: ( Int, Int, Int ) -> String -> ( Int, Int, Int )
wcf ( cc, w, lc ) []                        =    ( cc,   w,   lc   )
...
        putStrLn ( show lc ++ " lines." )

main = wc

C:\ghc\test>ghc -o wc.exe wc.hs

wc.hs:9:8: Parse error in pattern

Rectangle s1 s2 `containsS` (x,y) =
    let t1 = s1 / 2
        t2 = s2 / 2
    in -t1<=x && x<=t1 && -t2<=y && t2<=t2