daily pastebin goal
44%
SHARE
TWEET

Untitled

a guest May 16th, 2018 100 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #|Lista normal|#
  2. (cons 'hola (cons 'hola (cons 'hola empty)))
  3.  
  4. #|Lista profunda|#
  5. (cons (cons (cons (cons (cons 'hola '()) '()) '()) '()) '())
  6.  
  7. #|Metodo que crear una lista profunda de la profundidad especifica y con el simbolo deseado|#
  8. (define (crearListaProfPila numero simbolo)
  9.   (cond
  10.     [(zero? numero) simbolo]
  11.     [else (cons (crearListaProfPila (sub1 numero) simbolo) '())]))
  12.  
  13. #|Metodo que crea una lista profunda por medio de recursion de cola|#
  14. (define (crearListaProfCola numero listaAux)
  15.   (cond
  16.     [(= 1 numero) (cons listaAux '())]
  17.     [else (cons (crearListaProfCola (sub1 numero)  listaAux) '())]))
  18.  
  19. (crearListaProfPila 3 'casa)
  20. (crearListaProfCola 3 'lola)
  21.  
  22. #|Metodo que cuenta la profundidad de una lista profunda usnado colas|#
  23. (define (contarProfundidadPila listaProf)
  24.   (cond
  25.     [(symbol? listaProf) 0]
  26.     [else (add1 (contarProfundidadPila (first listaProf)))]))
  27.  
  28. #|Metodo que cuenta la prundidad de una lista profunda usando Pilas|#
  29. (define (contarProfundidadCola listaProf contador)
  30.   (cond
  31.     [(symbol? listaProf) contador]
  32.     [else (contarProfundidadCola (first listaProf) (add1 contador))]))
  33.  
  34.    
  35. (contarProfundidadPila (crearListaProfPila 5 'caso))
  36. (contarProfundidadCola (crearListaProfCola 5 'caso) 0)
  37.  
  38. #|Metodo que saca el elemento de una lista profunda|#
  39. (define (extraerSimboloCola listaProf)
  40.   (cond
  41.     [(symbol? listaProf) listaProf]
  42.     [else (extraerSimboloCola (first listaProf))]))
  43.  
  44. (extraerSimboloCola (crearListaProfCola 3 'Prueba))
RAW Paste Data
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
 
Top