<?xml version="1.0" encoding='utf-8'?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<card id="card1" title="CPL (programming language) - Page 5 - Wikipedia">
<p>
<a accesskey="1" href="page.php?w=CPL_(programming_language)&amp;p=4">1.Previous</a><br />
<a accesskey="3" href="page.php?w=CPL_%28programming_language%29&amp;p=6">3.Next</a>
</p>
<p>CPL, intended primarily as a <a href="page.php?w=systems_programming">systems programming</a> language, particularly for writing <a href="page.php?w=compiler">compiler</a>s; it was first implemented in 1967, prior to CPL's first implementation. BCPL then led, via <a href="page.php?w=B_%28programming_language%29">B</a>, to the popular and influential <a href="page.php?w=C_%28programming_language%29">C programming language</a>.</p>

<p><big>Example</big></p>
<p>The function MAX as formulated by <a href="page.php?w=Peter_Norvig">Peter Norvig</a>:</p>

<p><pre>Max(Items, ValueFunction) = value of§ (Best, BestVal) = (NIL, -?)while Items do §(Item, Val) = (Head(Items), ValueFunction(Head(Items)))if Val > BestVal then (Best, BestVal) := (Item, Val)Items := Rest(Items) &#x338;§result is Best &#x338;§</pre></p><p>
<a accesskey="1" href="page.php?w=CPL_(programming_language)&amp;p=4">1.Previous</a><br />
<a accesskey="3" href="page.php?w=CPL_%28programming_language%29&amp;p=6">3.Next</a>
</p>

<do type="prev" label="Search">
        <go href="search.wml"/>
</do>

</card>
</wml>
