fork download 
  1. (define (make-rat n d)
  2.   (let ((g (gcd n d)))
  3.     (cons (/ (*
  4.       (abs n)
  5.       (if (xnor (> n 0)
  6.                 (> d 0))
  7.           1
  8.           -1))
  9.       g)
  10.           (/ (abs d) g))))
Runtime error #stdin #stdout #stderr 0s 4496KB
comments (?)
stdin 
Standard input is empty
stdout 
Standard output is empty
stderr 
Wrong __data_start/_end pair
https://ideone.com/lAOkOB
language:
Scheme (guile 2.2.4)
created:
4 years ago
visibility:
secret

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!