Baby Haskell examples for Sean

haskell-ex.sh

#! /bin/bash

cat << EOF > ./RandAscii.hs
module Main (main) where

import Control.Monad

import System.Random
import qualified Data.Char as Char

main :: IO ()
main = forever $ randomRIO (97, 122) >>= (\ r -> putChar $ Char.chr r)
EOF

cat << EOF > ./Upper.hs
module Main (main) where

import qualified Data.Char as Char

main :: IO ()
main = interact (\ s -> map Char.toUpper s)
EOF

cat << EOF > ./Count.hs
module Main (main) where

import qualified Data.List.Split as Split

main :: IO ()
main = interact (\s -> show $ length $ filter ((==) "SEAN") $ Split.chunksOf 4 s)
EOF

ghc RandAscii.hs &> /dev/null
ghc Upper.hs &> /dev/null
ghc Count.hs &> /dev/null

for i in `seq 1 10`; do
    ./RandAscii | ./Upper | head -c 10000000 | ./Count && echo
done

rm -rf *.hs *.hi *.o ./RandAscii ./Upper ./Count