PasteRack.org
Paste # 95073
2026-04-13 13:54:51

Fork as a new paste.

Paste viewed 262 times.


Embed:

sexito

  1. #lang racket/base
  2. (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>)