[racket] A list of vectors

Higher order functions will be what you are looking for.  In this case - map
and vector-map.

http://docs.racket-lang.org/reference/pairs.html#(def._((lib._racket/private/map..rkt)._map))

http://docs.racket-lang.org/reference/vectors.html#(def._((lib._racket/vector..rkt)._vector-map))


Use map to iterate over the list of vectors, then use vector-map to iterate
over the cells within the vectors to apply the regexp-replace* function.

  (map (lambda (vector)
         (vector-map (lambda (cell) <apply_proc_to_individual_cell ...>)
vector))
       <your_list_of_vectors>)

HTH.  Cheers,
yc

On Mon, Oct 18, 2010 at 2:23 PM, scouic <scouic at gmail.com> wrote:

> Hi all,
> here more than three hours that i'm locked on a function, i defer to you =)
> My problem : i have a list of vectors, each vectors represents a text
> syntax (not html syntax, just text), and were created with the result of a
> format sqlite SELECT operation.
>
> For example, my list of vectors L is like this :
> (define L '(#("nickname || ' ( ' || date || ' )' || content")
>             #("zobi ( Thursday, October 14th, 2010 12:40:51pm )
> <p>try</p>")
>             #("zf ( Thursday, October 14th, 2010 12:43:56pm ) (a ((href
> \"foo.html\")) \"sometext\")")
>             #("zf2 ( Thursday, October 14th, 2010 12:44:59pm ) (a ((href
> \"bar.html\")) \"anotherone\")")))
>
> So, (first L) is a vector, (second L) too, etc.
> Now, i want to replace each string, for example "Thursday", by
> "<<Thursday>>", in my list of vectors.
>
> I have created a function, wich i call like this :
> (rush! L  '() "Thursday")
>
> this is the function :
> (define (rush! T super-list a-string)
>   (if (empty? T)
>       super-list ;; here is the problem
>       (rush! (rest T)
>                  (append
>                   super-list
>                   (list (regexp-replace* a-string (vector-ref (first T) 0)
> (string-append "<<" a-string ">>"))))
>                  a-string)))
>
> Now, if i compare L and (rush! L '() "Thursday"), i have for L:
> '(#("nickname || ' ( ' || date || ' )' || content")
>   #("zobi ( Thursday, October 14th, 2010 12:40:51pm ) <p>try</p>")
>   #("zf ( Thursday, October 14th, 2010 12:43:56pm ) (a ((href
> \"foo.html\")) \"sometext\")")
>   #("zf2 ( Thursday, October 14th, 2010 12:44:59pm ) (a ((href
> \"bar.html\")) \"anotherone\")"))
>
> and for the function :
> '("zobi ( <<Thursday>>, October 14th, 2010 12:40:51pm ) <p>try</p>"
>   "zf ( <<Thursday>>, October 14th, 2010 12:43:56pm ) (a ((href
> \"foo.html\")) \"sometext\")"
>   "zf2 ( <<Thursday>>, October 14th, 2010 12:44:59pm ) (a ((href
> \"bar.html\")) \"anotherone\")")
>
> BUT it's not a list of vectors, it's a simple list ...
> Instead of
> (if (empty? T)  super-list ...
> i've tried (if (empty? T) (list->vector super-list) ... mamamia, it's no a
> list of vectors, but just a simple vector ...
>
> I really don't know how i can replace a-string into a list of vectors so,
> because my rush! function doesn't works like i want ...
>
> Thank you for your help,
> -mw
>
> _________________________________________________
>  For list-related administrative tasks:
>  http://lists.racket-lang.org/listinfo/users
>



-- 
Cheers,
yc

Taming the software dragon - http://dragonmaestro.com
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.racket-lang.org/users/archive/attachments/20101018/be3e24a4/attachment.html>