| CARVIEW |
Select Language
HTTP/2 200
date: Sat, 11 Oct 2025 20:19:41 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=846c9203aeb3f1aadcbe646497a1829bef4721cdb85d66bb640637f1b753621ea%3A2%3A%7Bi%3A0%3Bs%3A14%3A%22_csrf-frontend%22%3Bi%3A1%3Bs%3A32%3A%22i0QpBSUjz15fuNA3luHPVzbkUU6vSpgV%22%3B%7D; HttpOnly; Path=/
cf-ray: 98d10dc6fecf6f7a-BLR
depth-replicate - Pastebin.com
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #lang racket
- (define (clone a n)
- (if (eq? n 0) '() (cons a (clone a (- n 1)))
- )
- )
- (define (get-depth lst n)
- (cond
- ((null? lst) '())
- ((list? (car lst)) (cons (get-depth (car lst) (+ n 1)) (get-depth (cdr lst) n)))
- (else (cons n (get-depth (cdr lst) n)))
- )
- )
- (define (traverse lst1 lst2)
- (cond
- ((null? lst1) '())
- (else (cons (clone (car lst2) (car lst1)) (traverse (cdr lst1) (cdr lst2)))
- )
- )
- )
- (define (depth-replicate lst)
- (flatten (traverse (flatten (get-depth lst 1)) (flatten lst)))
- )
- (display (depth-replicate '((((3 2))) ((1)) (1))))
Advertisement
Add Comment
Please, Sign In to add comment
-
⭐✅ Swapzone Glitch ✅ Working ⭐⭐ E
JavaScript | 3 sec ago | 0.25 KB
-
📝 Exchange profit method
JavaScript | 9 sec ago | 0.24 KB
-
✅ Make $2500 in 20 minutes⭐⭐⭐ X
JavaScript | 12 sec ago | 0.25 KB
-
⭐ Free Crypto Method ⭐
JavaScript | 18 sec ago | 0.24 KB
-
📌 Swapzone +37% glitch ⭐ O
JavaScript | 21 sec ago | 0.25 KB
-
📝 Crypto Swap Glitch ✅ Working
JavaScript | 28 sec ago | 0.24 KB
-
✅⭐ Make huge profits on trading ⭐⭐ 5
JavaScript | 30 sec ago | 0.25 KB
-
📝 EASY MONEY GUIDE ✅ Working
JavaScript | 37 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
