0. #lang racket/base
1. (display "Calculadora semifuncional") (newline)(display "Ingrese su primer número: ") (define x (read)) (newline)(display "Su primer número es: ") (display x)(display "Ingrese su segundo número: ") (define y (read)) (newline)(display "Su segundo número es: ") (display y) (newline)(display "Las operaciones con estos números son:") (newline)(display "Suma: ") (+ x y) (newline)(display "Resta: ") (- x y) (newline)(display "Multiplicación: ") (* x y) (newline)(display "División: ") (/ x y) (newline)(display "Potenciación: ") (expt x y) (newline)(display "Lista: ") (cons x (cons y '()))

=>

Calculadora semifuncional

Ingrese su primer número:

Su primer número es:

#<eof>

Ingrese su segundo número:

Su segundo número es:

#<eof>

Las operaciones con estos números son:

Suma:

+: contract violation

expected: number?

given: #<eof>

Resta:

-: contract violation

expected: number?

given: #<eof>

Multiplicación:

*: contract violation

expected: number?

given: #<eof>

División:

/: contract violation

expected: number?

given: #<eof>

Potenciación:

expt: contract violation

expected: number?

given: #<eof>

Lista:

'(#<eof> #<eof>)