| CARVIEW |
Select Language
HTTP/2 200
date: Sat, 11 Oct 2025 23:01:52 GMT
content-type: text/html; charset=UTF-8
server: cloudflare
x-frame-options: DENY
x-content-type-options: nosniff
x-xss-protection: 1;mode=block
vary: accept-encoding
cf-cache-status: DYNAMIC
content-encoding: gzip
set-cookie: _csrf-frontend=573740035698c7c96b7e9053ce48f6046bd3c94ebad01eab97a4fee37cd53f78a%3A2%3A%7Bi%3A0%3Bs%3A14%3A%22_csrf-frontend%22%3Bi%3A1%3Bs%3A32%3A%22og4AIQn2NdbiNYmkglwFvQKNM5zq92AW%22%3B%7D; HttpOnly; Path=/
cf-ray: 98d1fb5a8bcf3e92-BLR
class Ring a where (+) :: a -> a -> a (*) :: a -> a -> a zero :: a o - Pastebin.com
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- class Ring a where
- (+) :: a -> a -> a
- (*) :: a -> a -> a
- zero :: a
- one :: a
- (-) :: a -> a -> a
- fromInteger :: Integer -> a
- newtype Poly x = Poly { eval :: Ring r => (x -> r) -> r } deriving Functor
- instance Ring (Poly x) where
- Poly p + Poly q = Poly (\x -> p x + q x)
- Poly p * Poly q = Poly (\x -> p x * q x)
- zero = Poly (const zero)
- one = Poly (const one)
- Poly p - Poly q = Poly (\x -> p x - q x)
- fromInteger n = Poly (const $ fromInteger n)
- instance Applicative Poly where
- pure x = Poly (\xs -> xs x)
- (<*>) = ap
- instance Monad Poly where
- Poly p >>= f = p f
- @ :: Poly () -> Poly a -> Poly a
- @ p q = p >>= const q
- poly :: (forall r . Ring r => (x -> r) -> r) -> Poly x
- poly = Poly
- poly1 :: (forall r . Ring r => r -> r) -> Poly ()
- poly1 f = poly (\x -> f (x ()))
Advertisement
Add Comment
Please, Sign In to add comment
-
⭐⭐⭐Exchange Exploit T I⭐⭐
Java | 1 sec ago | 0.10 KB
-
📝 EASY MONEY GUIDE ✅ Working
JavaScript | 3 sec ago | 0.24 KB
-
📌 ChangeNOW Exploit
JavaScript | 12 sec ago | 0.24 KB
-
⭐⭐⭐GMAIL Logs (2FA disabled)⭐⭐
Java | 13 sec ago | 0.10 KB
-
⭐⭐⭐MAKE $500 IN 15 MIN⭐⭐
Java | 25 sec ago | 0.10 KB
-
⭐⭐⭐Exchange Exploit T I⭐⭐
Java | 37 sec ago | 0.10 KB
-
💵 Make 3000$ in 20 minutes 💵
JavaScript | 37 sec ago | 0.24 KB
-
📌 Swapzone +37% glitch
JavaScript | 46 sec ago | 0.24 KB
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
