On Aug 7, 2014, at 1:21 PM, Alexander D. Knauth <alexan...@knauth.org> wrote:

> By the way would this function version be helpful at all?
> 
> (define (apply* fs lst*)
>   (cond [(empty? fs) lst*]
>         [(not (list? lst*)) lst*]
>         [else
>          (define f (first fs))
>          (define rst (rest fs))
>          (apply f
>                 (for/list ([lst (in-list lst*)])
>                   (apply* rst lst)))]))
> 
> (apply* (list list vector hash)
>         '((1 2 3 4) (5 (6 7) 8)))
> ; '(#(1 2 3 4) #(5 #hash((6 . 7)) 8))

Yes! And extremely instructive. So much to learn!

Thanks!

-Kevin

____________________
  Racket Users list:
  http://lists.racket-lang.org/users

Reply via email to