Anthony Grimes Raynes

Raynes / Test.hs

Created November 16, 2009 01:31

	middleList xs =
	let n = length xs
	fnum = 2*((n `div` 2) `div` 2)
	in take (if odd n then 1 else 2) $ drop fnum xs

Raynes / Test.hs

Created November 16, 2009 01:58

	middleList xs =
	let n = length xs
	fnum = 2*(n `div` 4)
	in take (if odd n then 1 else 2) $ drop fnum xs

Raynes / Test.hs

Created November 16, 2009 06:17

	middleList xs@(_:_:_:_) =
	let n = length xs
	en = if n < 5 then 1 else 2 * (n `div` 4)
	in take (if odd n then 1 else 2) $ drop en xs
	middleList _ = error "List is too short."

Raynes / Test.hs

Created November 16, 2009 22:26

	module Main where

	import Control.Monad
	import Data.List
	import Data.Char
	import System.IO
	import Text.Regex.Posix
	import Text.Regex

	getSecondWord :: String -> String

Raynes / Test.hs

Created November 16, 2009 22:26

	middleList xs@[x] = xs
	middleList xs@[x,y] = xs
	middleList xs =
	let n = length xs
	en = if n < 5 then 1 else 2 * (n `div` 4)
	in take (if odd n then 1 else 2) $ drop en xs

Raynes / Test.hs

Created November 16, 2009 22:26

	middleList xs@[x] = xs
	middleList xs@[x,y] = xs
	middleList xs =
	let n = length xs
	en = if n < 5 then 1 else 2 * (n `div` 4)
	in take (if odd n then 1 else 2) $ drop en xs

Raynes / Test.hs

Created November 16, 2009 22:33

	middleList xs@(_:_:_:_) =
	let n = length xs
	en = if n < 5 then 1 else 2 * (n `div` 4)
	in take (if odd n then 1 else 2) $ drop en xs
	middleList xs = xs

Raynes / *haskell*

Created November 17, 2009 00:05

	GHCi, version 6.10.3: http://www.haskell.org/ghc/ :? for help
	Loading package ghc-prim ... linking ... done.
	Loading package integer ... linking ... done.
	Loading package base ... linking ... done.
	Prelude> :load "/home/rayne/hsprojs/learn/Test.hs"
	[1 of 1] Compiling Main ( /home/rayne/hsprojs/learn/Test.hs, interpreted )
	Ok, modules loaded: Main.
	*Main> :load "/home/rayne/hsprojs/learn/Test.hs"
	[1 of 1] Compiling Main ( /home/rayne/hsprojs/learn/Test.hs, interpreted )

Raynes / Test.hs

Created November 17, 2009 00:09

	middleList xs@(_:_:_:_) = take (if odd n then 1 else 2) $ drop en xs
	where n = length xs
	en = if n < 5 then 1 else 2 * (n `div` 4)
	middleList xs = xs

Raynes / MyMaybe.hs

Created November 17, 2009 06:57

	module MyMaybe where

	import Data.List

	data MyMaybe a = MyJust a
	\| MyNothing
	deriving (Show)

	myMaybe :: b -> (a -> b) -> MyMaybe a -> b
	myMaybe dval f mmval = case mmval of