fork download 
  1. (define (do_it n)
  2. 	(define (print_it n)
  3. 		(display n)
  4. 		(newline))
  5. 	(cond ((not(= n 42))
  6. 		(print_it n)
  7. 		(do_it (read)))
  8. 		))
  9.  
  10. (do_it (read))
Success #stdin #stdout 0.02s 10980KB
comments (?)
stdin 
1
2
10
42
11
stdout 
1
2
10
https://ideone.com/N5ocb0
language:
Scheme (guile 2.2.4)
created:
11 days 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!