<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN""http://www.w3.org/TR/html4/loose.dtd"> <HTML ><HEAD ><TITLE >list-put</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="Miscellaneous" HREF="r300.htm"><LINK REL="PREVIOUS" TITLE="list-head" HREF="list-head.html"><LINK REL="NEXT" TITLE="decrement-list-members" HREF="decrement-list-members.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-head.html" ACCESSKEY="P" >Prev</A ></TD ><TD WIDTH="80%" ALIGN="center" VALIGN="bottom" ></TD ><TD WIDTH="10%" ALIGN="right" VALIGN="bottom" ><A HREF="decrement-list-members.html" ACCESSKEY="N" >Next</A ></TD ></TR ></TABLE ><HR ALIGN="LEFT" WIDTH="100%"></DIV ><H1 ><A NAME="LIST-PUT" ></A >list-put</H1 ><DIV CLASS="REFNAMEDIV" ><A NAME="AEN1665" ></A ><H2 >Name</H2 >list-put -- Replace a specific member of a list</DIV ><DIV CLASS="REFSYNOPSISDIV" ><A NAME="AEN1668" ></A ><H2 >Synopsis</H2 ><PRE CLASS="SYNOPSIS" >(list-put vlist ordinal value #!optional (span 1))</PRE ></DIV ><DIV CLASS="REFSECT1" ><A NAME="AEN1671" ></A ><H2 >Description</H2 ><P >Replaces the <TT CLASS="LITERAL" >ordinal</TT >th value of <TT CLASS="LITERAL" >vlist</TT > with <TT CLASS="LITERAL" >value</TT >. If <TT CLASS="LITERAL" >span</TT > > 1, replaces <TT CLASS="LITERAL" >ordinal</TT > to <TT CLASS="LITERAL" >ordinal+span-1</TT > values starting at <TT CLASS="LITERAL" >ordinal</TT >.</P ></DIV ><DIV CLASS="REFSECT1" ><A NAME="AEN1681" ></A ><H2 >Example</H2 ><P ><TT CLASS="LITERAL" >(list-put (1 2 3 4 5) 2 0 2)</TT > returns <TT CLASS="LITERAL" >(1 0 0 4 5)</TT >.</P ></DIV ><DIV CLASS="REFSECT1" ><A NAME="AEN1686" ></A ><H2 >Author</H2 ><P >Norman Walsh, <ndw@nwalsh.com></P ></DIV ><DIV CLASS="REFSECT1" ><A NAME="AEN1689" ></A ><H2 >Source Code</H2 ><PRE CLASS="PROGRAMLISTING" >(define (list-put vlist ordinal value #!optional (span 1)) ;; Replace a specific member of a list (let loop ((result vlist) (count span) (k ordinal)) (if (equal? count 0) result (let ((head (list-head result (- k 1))) (tail (list-tail result k))) (loop (append head (list value) tail) (- count 1) (+ k 1))))))</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-head.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="decrement-list-members.html" ACCESSKEY="N" >Next</A ></TD ></TR ><TR ><TD WIDTH="33%" ALIGN="left" VALIGN="top" >list-head</TD ><TD WIDTH="34%" ALIGN="center" VALIGN="top" ><A HREF="r300.htm" ACCESSKEY="U" >Up</A ></TD ><TD WIDTH="33%" ALIGN="right" VALIGN="top" >decrement-list-members</TD ></TR ></TABLE ></DIV ></BODY ></HTML >