| CARVIEW |
Select Language
HTTP/2 200
date: Sat, 11 Oct 2025 01:14:50 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=405d43feaabee73b6efcab5cd8f804b914ae01a0e78515af2eacbd6719db22e3a%3A2%3A%7Bi%3A0%3Bs%3A14%3A%22_csrf-frontend%22%3Bi%3A1%3Bs%3A32%3A%22tGeHygVJ6Os7cbXzZeLt4Bc9MpnLmGRl%22%3B%7D; HttpOnly; Path=/
cf-ray: 98ca80be19489dfd-BLR
#lang racket(define (rev lst) (match lst ['() '()] [(list a) (lis - Pastebin.com
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #lang racket
- (define (rev lst)
- (match lst
- ['() '()]
- [(list a) (list a)]
- [(cons h t)
- (append
- (rev t)
- (list h))]))
- (define (annihilate lst pred)
- (match lst
- ['() '()]
- [(list a) (if (pred a) '() (list a))]
- [(cons h t)
- (let ([nt (annihilate t pred)])
- (if (pred h)
- nt
- (cons h nt)))]))
- (displayln (annihilate '(1 2 3 4 5 6 7 8 9 10) (λ (n) (odd? n))))
- (displayln (rev '(1 2 3 4 5 6)))
Advertisement
Add Comment
Please, Sign In to add comment
-
✅⭐ Make huge profits on trading ⭐⭐ 9
JavaScript | 2 sec ago | 0.24 KB
-
⭐✅ MAKE $2500 IN 15 MIN⭐⭐⭐ U
JavaScript | 13 sec ago | 0.24 KB
-
⭐✅ Exploit 2500$ in 15 Minutes⭐⭐⭐ L
JavaScript | 24 sec ago | 0.24 KB
-
⭐✅ Exploit 2500$ in 15 Minutes⭐⭐⭐ Y
JavaScript | 24 sec ago | 0.24 KB
-
Free Crypto Method (NEVER SEEN BEFORE)⭐⭐ 8
JavaScript | 35 sec ago | 0.24 KB
-
Free Crypto Method (NEVER SEEN BEFORE)⭐⭐ Q
JavaScript | 35 sec ago | 0.24 KB
-
⭐✅ Swapzone Glitch ✅ Working⭐⭐⭐ N
JavaScript | 46 sec ago | 0.24 KB
-
⭐✅ Swapzone Glitch ✅ Working⭐⭐⭐ A
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
