[plt-scheme] Re: Simple procedure building question

(define (B lst x y)
  (if (null? lst)
      y
      `(,(car lst) ,x ,(B (cdr lst) x y))))

-----Message d'origine-----
De : plt-scheme-bounces at list.cs.brown.edu
[mailto:plt-scheme-bounces at list.cs.brown.edu] De la part de blockstack
Envoyé : October-20-08 3:56 PM
À : plt-scheme at list.cs.brown.edu
Objet : [plt-scheme] Re: Simple procedure building question

correction: i meant to have y for the then-expr

(define (B lst x y)
    (if (null? lst)
        y
    ((car lst) x (B (cdr lst) x y))))

On Oct 20, 2:51 pm, blockstack <blockst... at gmail.com> wrote:
> I want to be able to pass a list of function names and create a
> procedure
> lst would be something like (f g m n) where f, g, m, and n are names
> of functions
>
> (define (B lst x y)
>    (if (null? lst)
>        x
>    ((car lst) x (B (cdr lst) x y))))
>
> I want to end up with a list like
> (f x (g x (m x (n x y))))
>
> I know that my current procedure won't return a list, but I know that
> it must be really simple to make it do so.
>
> I've tried different ways of using 'list' and cons, but I just can't
> get it.
> any help?
>
> _________________________________________________
>   For list-related administrative tasks:
>  http://list.cs.brown.edu/mailman/listinfo/plt-scheme
_________________________________________________
  For list-related administrative tasks:
  http://list.cs.brown.edu/mailman/listinfo/plt-scheme