hyper operator

http://en.wikipedia.org/wiki/Hyper_operator
integralElem :: (Integral b) => [a] -> b -> a
hyper' :: (Integral a) => a -> (a -> a -> a)
hyper :: (Integral a) => a -> a -> a -> a

integralElem a b = a !! fromIntegral b

hyper' 0 = (+) . flip (^) 0
hyper' 1 = (+)
hyper' 2 = (*)
hyper' 3 = (^)
hyper' 4 = integralElem . (hyper4list)
    where hyper4list a = 1 : (zipWith (^) [a,a..] (hyper4list a))
hyper' n = integralElem . (hyperlist n)
    where hyperlist n a = 1 : (zipWith (hyper' (n-1)) [a,a..] (hyperlist n a))

hyper a n b = (hyper' n) a b

improvements to the above are welcome.

wholesale men's clothing a little late on the chain tee print but it’s kinda nice either way. Ecko might have even already did it? Scifen wholesale women's clothing is picking up on demand for sure. Stores from GoGenx to Macys Department Stores back to Dr Jays cheap wholesale clothing store on-line is carrying them. Check the update on GoGenx, frehs! http://www.freewholesale.net