| CARVIEW |
Select Language
HTTP/2 200
date: Sat, 11 Oct 2025 16:24:22 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=64d6d102e65685c760ecec330113124c351af929f35a7a758f4416ff3e329972a%3A2%3A%7Bi%3A0%3Bs%3A14%3A%22_csrf-frontend%22%3Bi%3A1%3Bs%3A32%3A%22PbtCQOgBX40LeziGgS50mG7iiXExt2-X%22%3B%7D; HttpOnly; Path=/
cf-ray: 98cfb5114885e084-BLR
sumtree in Parallel Gibbon - Pastebin.com
SHARE
TWEET
sumtree in Parallel Gibbon
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- module Main where
- data Tree = Leaf Int
- | Node Int Tree Tree
- mkTree :: Int -> Tree
- mkTree i =
- if i <= 0
- then Leaf 1
- else
- let x = (mkTree (i-1))
- y = (mkTree (i-1))
- in Node i x y
- sumTree :: Tree -> Int
- sumTree foo =
- case foo of
- Leaf i -> i
- Node i a b ->
- let tup = par (sumTree a) (sumTree b)
- x = fst tup
- y = snd tup
- in x + y
- gibbon_main = sumTree (mkTree 27)
Advertisement
Add Comment
Please, Sign In to add comment
-
⭐✅ MAKE $2500 IN 15 MIN⭐⭐⭐ I
JavaScript | 2 sec ago | 0.24 KB
-
⭐⭐⭐MAKE $900 INSTANTLY⭐⭐
Java | 4 sec ago | 0.10 KB
-
⭐✅ MAKE $2500 IN 15 MIN⭐⭐⭐ 6
JavaScript | 9 sec ago | 0.24 KB
-
⭐✅ Trading Profit Method ✅ NEVER SEEN BEFORE...
JavaScript | 9 sec ago | 0.24 KB
-
⭐✅ Exploit 2500$ in 15 Minutes⭐⭐⭐ 7
JavaScript | 12 sec ago | 0.24 KB
-
⭐⭐⭐MAKE $900 INSTANTLY⭐⭐
Java | 16 sec ago | 0.10 KB
-
⭐ Instant BTC Profit Method ✅ NEVER SEEN BEFO...
JavaScript | 19 sec ago | 0.24 KB
-
⭐✅ Exploit 2500$ in 15 Minutes⭐⭐⭐ E
JavaScript | 20 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
