fork download 
  1.     (define x (list 1 2 3 4 5 6 7))
  2.     (define y (list 8 9 10 11 12 13))
  3.     (define z (list 14 15 16 17 18 19 20))
  4.  
  5.     (define (flatmap proc seq)
  6.     	(foldr append '() (map proc seq)))
  7.  
  8.     (display (flatmap append (list x y z)))
  9.     (newline)
Success #stdin #stdout 0s 7280KB
comments (?)
stdin 
Standard input is empty
stdout 
(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20)
https://ideone.com/pMRc78
language:
Scheme (chicken 4.13)
created:
9 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!