Commit b65222fb authored by batterseapower's avatar batterseapower

Playing with Bernouilli

parent 9812ada2
......@@ -22,6 +22,7 @@ neg_powers =
pascal:: [[Integer]]
pascal = [1,2,1] : map (\line -> zipWith (+) (line++[0]) (0:line)) pascal
{-# SUPERCOMPILE bernoulli #-}
bernoulli 0 = 1
bernoulli 1 = -(1%2)
bernoulli n | odd n = 0
......
......@@ -6,5 +6,7 @@ include $(TOP)/mk/boilerplate.mk
SRCS=Main.hs
PROG_ARGS += 500
SRC_SUPERCOMP_HC_OPTS =
include $(TOP)/mk/target.mk
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment