PasteRack.org
Paste # 79608
2025-05-07 19:35:37

Fork as a new paste.

Paste viewed 818 times.


Embed:

  1. #lang racket
  2.  
  3. ;; Función que eleva un número al cuadrado
  4. (define (elevar-al-cuadrado x)
  5.   (* x x))
  6.  
  7. ;; Función que transforma cada elemento al cuadrado
  8. (define (cuadrados lst)
  9.   (cond
  10.     [(lst) (cons (elevar-al-cuadrado (car lst)) (cuadrados (cdr lst)))]
  11.     [else '()]))
  12.  
  13. ;; Leer entrada del usuario
  14. (display "Ingresa una lista de números (por ejemplo: '(1 2 3 4)):\n")
  15. (define entrada (read))
  16.  
  17. ;; Mostrar el resultado
  18. (display "Lista al cuadrado: ")
  19. (display (cuadrados entrada))
  20. (newline)

=>

Ingresa una lista de números (por ejemplo: '(1 2 3 4)):

Lista al cuadrado:

application: not a procedure;

 expected a procedure that can be applied to arguments

  given: #<eof>