fork(2) download
copy 
  1. ; exercise 1-9
  2.  
  3. (define (copy)
  4.   (let loop ((c (read-char)) (prev #\p))
  5.     (cond ((eof-object? c))
  6.           ((and (char=? #\space c) (char=? #\space prev))
  7.             (loop (read-char) c))
  8.           (else (display c) (loop (read-char) c)))))
  9.  
  10. (copy)
Success #stdin #stdout 0.01s 8672KB
comments (?)
stdin
copy 
From the Preface:

C is a general-purpose      programming language
which features     economy of expression, modern
control flow and data     structures, and a rich
set of operators.

                        -- Kernighan and Ritchie
stdout
copy 
From the Preface:

C is a general-purpose programming language
which features economy of expression, modern
control flow and data structures, and a rich
set of operators.

 -- Kernighan and Ritchie
https://ideone.com/quOgSe
language:
Scheme (guile 2.2.4)
created:
7 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!