physicists :: [String]
physicists = ["Einstein","Newton","Maxwell"]
type R = Double
velocities :: [R]
velocities = [0,-9.8,-19.6,-29.4]
moreVelocities :: [R]
moreVelocities = [-39.2,-49.0]
shortWords :: [String]
shortWords = ["am","I","to"]
ns :: [Int]
ns = [0..10]
square :: R -> R
square x = x**2
funcs :: [R -> R]
funcs = [cos,square,sin]
oneDouble :: Double
oneDouble = 1
twoInt :: Int
twoInt = 2
len :: [a] -> Int
len = length
ts :: [R]
ts = [0,0.1..6]
yRock30 :: R -> R
yRock30 t = 30 * t - 0.5 * 9.8 * t**2
xs :: [R]
xs = [yRock30 t | t <- ts]
sndItem :: [a] -> a
sndItem ys = case ys of
[] -> error "Empty list has no second element."
(x:xs) -> if null xs
then error "1-item list has no 2nd item."
else head xs
sndItem2 :: [a] -> a
sndItem2 [] = error "Empty list has no second element."
sndItem2 (x:xs) = if null xs
then error "1-item list has no 2nd item."
else head xs
sndItem3 :: [a] -> a
sndItem3 ys = case ys of
[] -> error "Empty list has no second element."
(x:[]) -> error "1-item list has no 2nd item."
(x:z:_) -> z
sndItem4 :: [a] -> a
sndItem4 [] = error "Empty list has no second element."
sndItem4 (x:[]) = error "1-item list has no 2nd item."
sndItem4 (x:z:_) = z
numbers :: [R]
numbers = [-2.0,-1.2,-0.4,0.4,1.2,2.0]
fact :: Integer -> Integer
fact n = undefined
expList :: R -> [R]
expList x = undefined
expSeries :: R -> [R]
expSeries x = undefined