Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Search
--ghc 7.10 module Main where infixr 0 ? newtype S a = S { (?) :: (a -> Bool) -> a } instance Functor S where fmap f xx = S $ \q -> f(xx ? q.f) ss xx q f = f(xx ? q.f) instance Applicative S where pure x = S (const x) ff <*> xx = S $ \p -> ss ff p $ ss xx p main = print $ "Hello, world!"
run
|
edit
|
history
|
help
0
New wall
Exercise
pascal triangle
credit card number validator
hard 1.1
Pi
suffix trie
Haskell remove item by index
Lowest Common Ancestor in a Binary Tree
Reader