<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN""http://www.w3.org/TR/html4/loose.dtd"> <HTML ><HEAD ><TITLE >map</TITLE ><META NAME="GENERATOR" CONTENT="Modular DocBook HTML Stylesheet Version 1.79"><LINK REL="HOME" TITLE="DSSSL Library Reference" HREF="index.html"><LINK REL="UP" TITLE="ISO/IEC 10179" HREF="r49.htm"><LINK REL="PREVIOUS" TITLE="list->string" HREF="list-2-string.html"><LINK REL="NEXT" TITLE="absolute-child-number" HREF="absolute-child-number.html"></HEAD ><BODY CLASS="REFENTRY" BGCOLOR="#FFFFFF" TEXT="#000000" LINK="#0000FF" VLINK="#840084" ALINK="#0000FF" ><DIV CLASS="NAVHEADER" ><TABLE SUMMARY="Header navigation table" WIDTH="100%" BORDER="0" CELLPADDING="0" CELLSPACING="0" ><TR ><TH COLSPAN="3" ALIGN="center" >DSSSL Library Reference: Part of the Modular DocBook Stylesheet distribution</TH ></TR ><TR ><TD WIDTH="10%" ALIGN="left" VALIGN="bottom" ><A HREF="list-2-string.html" ACCESSKEY="P" >Prev</A ></TD ><TD WIDTH="80%" ALIGN="center" VALIGN="bottom" ></TD ><TD WIDTH="10%" ALIGN="right" VALIGN="bottom" ><A HREF="absolute-child-number.html" ACCESSKEY="N" >Next</A ></TD ></TR ></TABLE ><HR ALIGN="LEFT" WIDTH="100%"></DIV ><H1 ><A NAME="MAP" ></A >map</H1 ><DIV CLASS="REFNAMEDIV" ><A NAME="AEN233" ></A ><H2 >Name</H2 >map -- Implements map</DIV ><DIV CLASS="REFSYNOPSISDIV" ><A NAME="AEN236" ></A ><H2 >Synopsis</H2 ><PRE CLASS="SYNOPSIS" >(map f #!rest xs)</PRE ></DIV ><DIV CLASS="REFSECT1" ><A NAME="AEN239" ></A ><H2 >Description</H2 ><P >Implements map</P ></DIV ><DIV CLASS="REFSECT1" ><A NAME="AEN242" ></A ><H2 >Author</H2 ><P >From Mulberry Tech. site (need better attribution)</P ></DIV ><DIV CLASS="REFSECT1" ><A NAME="AEN245" ></A ><H2 >Source Code</H2 ><PRE CLASS="PROGRAMLISTING" >(define (map f #!rest xs) ;; Implements map (let ((map1 (lambda (f xs) ; bootstrap version for unary F (let loop ((xs xs)) (if (null? xs) '() (cons (f (car xs)) (loop (cdr xs)))))))) (cond ((null? xs) '()) ((null? (cdr xs)) (map1 f (car xs))) (else (let loop ((xs xs)) (if (null? (car xs)) '() (cons (apply f (map1 car xs)) (loop (map1 cdr xs)))))))))</PRE ></DIV ><DIV CLASS="NAVFOOTER" ><HR ALIGN="LEFT" WIDTH="100%"><TABLE SUMMARY="Footer navigation table" WIDTH="100%" BORDER="0" CELLPADDING="0" CELLSPACING="0" ><TR ><TD WIDTH="33%" ALIGN="left" VALIGN="top" ><A HREF="list-2-string.html" ACCESSKEY="P" >Prev</A ></TD ><TD WIDTH="34%" ALIGN="center" VALIGN="top" ><A HREF="index.html" ACCESSKEY="H" >Home</A ></TD ><TD WIDTH="33%" ALIGN="right" VALIGN="top" ><A HREF="absolute-child-number.html" ACCESSKEY="N" >Next</A ></TD ></TR ><TR ><TD WIDTH="33%" ALIGN="left" VALIGN="top" >list->string</TD ><TD WIDTH="34%" ALIGN="center" VALIGN="top" ><A HREF="r49.htm" ACCESSKEY="U" >Up</A ></TD ><TD WIDTH="33%" ALIGN="right" VALIGN="top" >absolute-child-number</TD ></TR ></TABLE ></DIV ></BODY ></HTML >