Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!sun-barr!lll-winken!sol.ctr.columbia.edu!bronze!copper!huntley
From: huntley@copper.ucs.indiana.edu (Haydn Huntley)
Newsgroups: comp.lang.scheme
Subject: Re: news
Message-ID: <1991Mar2.012254.10950@bronze.ucs.indiana.edu>
Date: 2 Mar 91 01:22:54 GMT
References: <1991Mar1.153624.45733@vaxb.acs.unt.edu>
Sender: news@bronze.ucs.indiana.edu (USENET News System)
Organization: Indiana University, Bloomington
Lines: 21

In article <1991Mar1.153624.45733@vaxb.acs.unt.edu> munawar@vaxb.acs.unt.edu writes:
| Hello,
|   My problem is to flatten
|   '((a b)(c d)(e f)) in to '(a b c d e f)
| I am not sure how to tackle this problem specifically in TI PCSCHEME

; Here is a version of flatten.
(define flatten
  (lambda (ls)
    (cond
     ((null? ls) '())
     ((pair? (car ls))
      (append (flatten (car ls))
              (flatten (cdr ls))))
     (else (cons (car ls)
                 (flatten (cdr ls)))))))

--
;;  *****************************************************
;;  *  Haydn Huntley    huntley@copper.ucs.indiana.edu  *
;;  *****************************************************