fork download
copy 
  1. ; coprime numbers
  2.  
  3. (define (f lo hi)
  4.   (cond ((and (even? lo) (< 1 (- hi lo)))
  5.           (list lo (+ lo 1) (+ lo 2)))
  6.         ((and (odd? lo) (< 2 (- hi lo)))
  7.           (list (+ lo 1) (+ lo 2) (+ lo 3)))
  8.         (else "No solution")))
  9.  
  10. (display (f 2 4)) (newline)
  11. (display (f 10 11)) (newline)
  12. (display (f 900000000000000009 900000000000000029)) (newline)
Success #stdin #stdout 0.01s 7756KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
(2 3 4)
No solution
(900000000000000010 900000000000000011 900000000000000012)
https://ideone.com/mTUKai
language:
Scheme (chicken 4.13)
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!