fork download
copy 
  1. (define (append l1 l2)
  2. 	(cond ((null? l1) l2)
  3. 	      (#t (cons (car l1) (append (cdr l1) l2)))))
  4. (define (flatten lst)
  5. 	(cond ((null? lst) '())
  6. 	      ((atom? (car lst)) (cons (car lst) (flatten (cdr lst))))
  7. 	      (#t (append (flatten (car lst)) (flatten (cdr lst))))))
  8. (display (flatten '(a (b c) (((d))))))
  9.  
Success #stdin #stdout 0s 18080KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
(a b c d)
https://ideone.com/0kmVEf
language:
Scheme (chicken 4.13)
created:
5 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!