[commit: nofib] supercompiler: Playing with Bernouilli (b65222f)
Max Bolingbroke <[email protected]>
| Newsgroups | gmane.comp.lang.haskell.cvs.ghc |
|---|---|
| Message-ID | <[email protected]> |
Repository : ssh://darcs.haskell.org//srv/darcs/nofib On branch : supercompiler http://hackage.haskell.org/trac/ghc/changeset/b65222fb4962b04f0827ed89e498ad44a5e15671 >--------------------------------------------------------------- commit b65222fb4962b04f0827ed89e498ad44a5e15671 Author: Max Bolingbroke <[email protected]> Date: Thu Mar 15 09:58:43 2012 +0000 Playing with Bernouilli >--------------------------------------------------------------- imaginary/bernouilli/Main.hs | 1 + imaginary/bernouilli/Makefile | 2 ++ 2 files changed, 3 insertions(+), 0 deletions(-) diff --git a/imaginary/bernouilli/Main.hs b/imaginary/bernouilli/Main.hs index 5886c67..dde0756 100644 --- a/imaginary/bernouilli/Main.hs +++ b/imaginary/bernouilli/Main.hs @@ -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 diff --git a/imaginary/bernouilli/Makefile b/imaginary/bernouilli/Makefile index 56dd57c..cf5295a 100644 --- a/imaginary/bernouilli/Makefile +++ b/imaginary/bernouilli/Makefile @@ -6,5 +6,7 @@ include $(TOP)/mk/boilerplate.mk SRCS=Main.hs PROG_ARGS += 500 +SRC_SUPERCOMP_HC_OPTS = + include $(TOP)/mk/target.mk