Mapping with two arguments

[Fritz]

Is it possible to give some argument to a map function? The method below want not work:

Code: Select all

(define (add-tail tl str)
  (append str tl))

(map (add-tail "-Schwanz") '("Hund" "Katze" "Pinguin"))

Now I do this so:

Code: Select all

(map add-tail (dup "-Schwanz" 3 true) '("Hund" "Katze" "Pinguin"))

But I have a feeling there should be a simpler way.

[Jeff]

You need to pass map a function. You can do that with curry:

Code: Select all

(map (curry add-tail (dup "-Schwanz" 3 true)) '("Hund" "Katze" "Pinguin"))

[Lutz]

Jeff meant to say this:

Code: Select all

(map (curry add-tail "-Schwanz") '("Hund" "Katze" "Pinguin"))

[Jeff]

Was he trying to append "-Schwanz" or "-Schwanz-Schwanz-Schwanz"?

[Lutz]

one "Schwanz" (tail in German) should be enough for each animal :)

[Jeff]

Le pido perdon. Hablo solamente ingles y espanol. Y lisp ;)

[Fritz]

Thanx! Now it works.

Btw, Spanish is very useful for me to name functions. I can define something like "buscar", "cargar" or "destripar" and be sure, that these symbols are not protected.

[newdep]

You can rename all function inside Newlisp ;-) I did once made a Dutch newlisp..
..Awfull ;-)