fork download
copy 
  1. ; the henry used car dealership
  2.  
  3. (define (henry)
  4.   (display "Enter the sale price: ") (let ((sale (read)))
  5.   (display "Enter the purchase price: ") (let ((purch (read)))
  6.   (display "Profit is ") (display (- sale purch)) (newline)
  7.   (display "Thanks for using this program.") (newline))))
  8.  
  9. (henry)
Success #stdin #stdout 0.02s 50288KB
comments (?)
stdin
copy 
1100
800
stdout
copy 
Enter the sale price: Enter the purchase price: Profit is 300
Thanks for using this program.
https://ideone.com/XSZrYU
language:
Scheme (guile 2.2.4)
created:
5 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!