Text only | Text with Images

newLISP Fan Club

Forum => newLISP in the real world => Topic started by: Fritz on October 13, 2009, 06:51:40 AM

Title: Mapping with two arguments
Post by: Fritz on October 13, 2009, 06:51:40 AM
Is it possible to give some argument to a map function? The method below want not work:


Code Select

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

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


Now I do this so:


Code Select

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


But I have a feeling there should be a simpler way.
Title:
Post by: Jeff on October 13, 2009, 07:21:22 AM
You need to pass map a function. You can do that with curry:


Code Select
(map (curry add-tail (dup "-Schwanz" 3 true)) '("Hund" "Katze" "Pinguin"))
Title:
Post by: Lutz on October 13, 2009, 07:40:34 AM
Jeff meant to say this:


Code Select
(map (curry add-tail "-Schwanz") '("Hund" "Katze" "Pinguin"))
Title:
Post by: Jeff on October 13, 2009, 07:41:51 AM
Was he trying to append "-Schwanz" or "-Schwanz-Schwanz-Schwanz"?
Title:
Post by: Lutz on October 13, 2009, 07:42:57 AM
one "Schwanz" (tail in German) should be enough for each animal :)
Title:
Post by: Jeff on October 13, 2009, 07:43:49 AM
Le pido perdon. Hablo solamente ingles y espanol. Y lisp ;)
Title:
Post by: Fritz on October 13, 2009, 08:55:51 AM
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.
Title:
Post by: newdep on October 13, 2009, 09:11:48 AM
You can rename all function inside Newlisp ;-) I did once made a Dutch newlisp..

..Awfull ;-)
Text only | Text with Images