<html>

<head>
<meta http-equiv=Content-Type content="text/html; charset=us-ascii">
<meta name=Generator content="Microsoft Word 11 (filtered)">
<style>
<!--
 /* Style Definitions */
 p.MsoNormal, li.MsoNormal, div.MsoNormal
        {margin:0in;
        margin-bottom:.0001pt;
        font-size:10.0pt;
        font-family:Arial;}
a:link, span.MsoHyperlink
        {color:blue;
        text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
        {color:blue;
        text-decoration:underline;}
span.Typed
        {font-family:"Courier New";}
span.tty
        {font-family:"Courier New";}
span.Name
        {font-style:italic;}
span.Variable
        {font-family:"Times New Roman";
        font-style:italic;}
span.EmailStyle22
        {font-family:Arial;
        color:navy;}
@page Section1
        {size:8.5in 11.0in;
        margin:1.0in 1.25in 1.0in 1.25in;}
div.Section1
        {page:Section1;}
-->
</style>

</head>

<body lang=EN-US link=blue vlink=blue>

<div class=Section1>

<p class=MsoNormal><span style='color:navy'>On Tuesday, October 07, 2008, Hynek
Vychodil wrote:</span></p>

<p class=MsoNormal><span style='color:navy'> </span></p>

<p class=MsoNormal style='margin-left:.5in'><span style='color:navy'>> Is
there any problem write this think this way?</span></p>

<p class=MsoNormal style='margin-left:.5in'><span style='color:navy'>. . .</span></p>

<p class=MsoNormal style='margin-left:.5in'><span style='color:navy'>> For
Example factorial:</span></p>

<p class=MsoNormal style='margin-left:.5in'><span style='color:navy'>> </span></p>

<p class=MsoNormal style='margin-left:.5in'><span style='color:navy'>> Fact
= begin F = fun(_, 0) -> 1; (Self, N) -> Self(Self, N-1)*N end, fun(N)
-> F(F, N) end end.</span></p>

<p class=MsoNormal><span style='color:navy'> </span></p>

<p class=MsoNormal><span style='color:navy'>My only objection is that it pollutes
the shell variable space with the extra function F.  How about:</span></p>

<p class=MsoNormal><span style='color:navy'> </span></p>

<p class=MsoNormal style='margin-left:.5in'><span style='color:navy'>Fact =
fun(N) -> F = fun(_, 0) -> 1; (Self, N) -> Self(Self, N-1)*N end, F(F,
N) end.</span></p>

<p class=MsoNormal><span style='color:navy'> </span></p>

<p class=MsoNormal><span style='color:navy'>Cheers,</span></p>

<p class=MsoNormal><span style='color:navy'> </span></p>

<p class=MsoNormal><span style='color:navy'>David</span></p>

</div>

</body>

</html>