fork download
copy 
  1. ; your code goes here
  2. (define (f1 a) (if (= a 0) 0
  3.                    (/ 1 a)))
  4. (define (f2 a) (cond((= a 0) 0)
  5. 					((= a 1) 1)
  6. 					(else (/ 1 a)))
  7. )
  8.  
  9. (display (f1 5))
  10. (newline)
  11. (display (f1 0)) (newline)
  12. (display (list (f2 0) (f2 1) (f2 4)) )
Success #stdin #stdout 0.02s 10884KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
1/5
0
(0 1 1/4)
https://ideone.com/8wj4Wf
define f1 and f2 exercise
language:
Scheme (guile 2.2.4)
created:
8 hours 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!