diff options
-rw-r--r-- | foo.hs | 15 | ||||
-rwxr-xr-x | run.sh | 1 |
2 files changed, 16 insertions, 0 deletions
@@ -19,3 +19,18 @@ data Bar = Bar Int Int deriving (Eq,Show) instance Ord Bar where (Bar _ s1) `compare` (Bar _ s2) = s1 `compare` s2 + + + + +-- Stuff with applicative + +intlist = [1, 5, 6, 8] + +func1 x = x * 2 +func2 x = x * 3 +func3 x = x * 5 + +funcs = [func1, func2, func3] + + @@ -0,0 +1 @@ +ghc -threaded -O raytracer.hs && time ./raytracer +RTS -s |