/prog/ - hyper operator

Name: Anonymous 2009-01-11 22:52

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.

Name: Anonymous 2009-01-16 7:09



haxMyAnus :: (Anus a, Hax b) => a -> b -> a



sub hax {

    $item = @_[0];

    print "$item was haxed";

}

hyper operator

1 Name: Anonymous 2009-01-11 22:52

16 Name: Anonymous 2009-01-16 7:09

Name: Anonymous 2009-01-11 22:52

Name: Anonymous 2009-01-16 7:09