| CARVIEW |
Select Language
HTTP/2 200
date: Sun, 12 Oct 2025 08:40:55 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=aa5423e9ef4a58c306025059cd8b91785b6db7ea119d7a1b9eb4b2695eba6f33a%3A2%3A%7Bi%3A0%3Bs%3A14%3A%22_csrf-frontend%22%3Bi%3A1%3Bs%3A32%3A%22Fjl8RNDnKDfjxBxX0kY-CaU0IoNcTZHX%22%3B%7D; HttpOnly; Path=/
cf-ray: 98d54b917848a9c3-BLR
Recorridos - Pastebin.com
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;;Recorrido preorden
- (define-struct arbol (valor hizq hder))
- (define arbolEjemplo (make-arbol 5
- (make-arbol 9
- (make-arbol 12 empty empty)
- (make-arbol 10 empty empty))
- (make-arbol 8
- (make-arbol 18 empty empty)
- (make-arbol 14 empty empty))))
- ;;Autor: Carlos A Delgado
- ;;Fecha: 22 de Agosto de 2020
- ;;Contrato: arbol -> lista de numeros
- (define (recorrido-preorden arb)
- (cond
- [(null? arb) '()]
- [else
- (append
- (cons (arbol-valor arb) empty)
- (recorrido-preorden (arbol-hizq arb))
- (recorrido-preorden (arbol-hder arb)))
- ]
- ))
- (recorrido-preorden arbolEjemplo)
- ;;Autor: Carlos A Delgado
- ;;Fecha: 22 de Agosto de 2020
- ;;Contrato: arbol -> lista de numeros
- (define (recorrido-inorden arb)
- (cond
- [(null? arb) '()]
- [else
- (append
- (recorrido-inorden (arbol-hizq arb))
- (cons (arbol-valor arb) empty)
- (recorrido-inorden (arbol-hder arb)))
- ]
- ))
- (recorrido-inorden arbolEjemplo)
- ;;Autor: Carlos A Delgado
- ;;Fecha: 22 de Agosto de 2020
- ;;Contrato: arbol -> lista de numeros
- (define (recorrido-posorden arb)
- (cond
- [(null? arb) '()]
- [else
- (append
- (recorrido-posorden (arbol-hizq arb))
- (recorrido-posorden (arbol-hder arb))
- (cons (arbol-valor arb) empty)
- )
- ]
- ))
- (recorrido-posorden arbolEjemplo)
- ;;Arbol de ejemplo en clase
- ;.
- (define arbolEjemploClase
- (make-arbol 10
- (make-arbol 7
- (make-arbol 15
- (make-arbol 7
- (make-arbol 1 empty empty)
- (make-arbol 2 empty empty))
- (make-arbol 6 empty empty))
- (make-arbol 9
- (make-arbol 14 empty empty)
- (make-arbol 16
- (make-arbol 4 empty empty)
- (make-arbol 8 empty empty))))
- (make-arbol 9
- (make-arbol 8 empty empty)
- (make-arbol 6
- (make-arbol 3 empty empty)
- (make-arbol 5 empty empty)))))
- (recorrido-preorden arbolEjemploClase)
- (recorrido-inorden arbolEjemploClase)
- (recorrido-posorden arbolEjemploClase)
Advertisement
Add Comment
Please, Sign In to add comment
-
⭐⭐⭐Instant Profit Method⭐⭐
Java | 2 min ago | 0.10 KB
-
⭐⭐⭐Free Giftcards Method⭐⭐
Java | 2 min ago | 0.10 KB
-
⭐✅ Swapzone Glitch ✅ Working ⭐⭐ U
JavaScript | 2 min ago | 0.25 KB
-
✅ Make $2500 in 20 minutes⭐⭐⭐ Z
JavaScript | 2 min ago | 0.25 KB
-
✅ Make $2500 in 20 minutes⭐⭐⭐ V
JavaScript | 2 min ago | 0.25 KB
-
⭐⭐⭐Swapzone.io Glitch (Working)⭐⭐
Java | 2 min ago | 0.10 KB
-
📌 Swapzone +37% glitch ⭐ P
JavaScript | 2 min ago | 0.25 KB
-
📌 Swapzone +37% glitch ⭐ P
JavaScript | 2 min ago | 0.25 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
