<div dir="ltr">Thanks for all your help.<div>I was unaware that there was a relation between let/where and lambdas.</div><div>Here is my effort to use a single lamda</div><div>md3 n = (\n -> (dist  (Point (4.0 + 0.5 * n) (4.0 - 0.5 * n)) (Point (n * 1.0) ( n * (-1.0))))) n</div><div><br></div><div>I imagine that this function could be written without lambdas, let, or where.</div><div>Is it generally true the all/most functions could be written without lambdas, let, or where?</div><div><br></div><div>Thanks,</div><div>Pat</div><div><br></div><div> <br><div class="gmail_extra"><br><div class="gmail_quote">On 26 June 2017 at 12:04, Frerich Raabe <span dir="ltr"><<a href="mailto:raabe@froglogic.com" target="_blank">raabe@froglogic.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><span class="gmail-">On 2017-06-26 11:38, PATRICK BROWNE wrote:<br>
<blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">
The code below provides a distance function that works for points and moving point.<br>
I am happy with the result, but I have a problem with the lambda expressions.<br>
</blockquote>
<br></span>
[..]<span class="gmail-"><br>
<br>
<blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">
-- Sttic points<br>
p1, p2 :: Point Float<br>
p1 = Point 0.0 0.0<br>
p2 = Point 4.0 4.0<br>
d = dist p1 p2<br>
<br>
-- Moving points<br>
mp1, mp2 :: Point Float<br>
mp1x = (\t -> 4.0 + 0.5 * t)<br>
mp1y = (\t -> 4.0 - 0.5 * t)<br>
mp1 = Point (mp1x 2) (mp1y  2)<br>
mp2x  = (\t -> 0.0 + 1.0 * t)<br>
mp2y  = (\t -> 0.0 - 1.0 * t)<br>
mp2 = Point (mp2x 2) (mp2y 2)<br>
md = dist mp1 mp2<br>
</blockquote>
<br></span>
Maybe you could reduce the number of lambda expressions by extracting common logic. It seems to me that 'mp1' and 'mp2' are moved versions of the same point (2,2) except that they apply different functions to the coordinates. These functions follow a pattern (a factor is applied to the component and then an 'offset' is added).<br>
<br>
For instance, it might be worthwhile to define<br>
<br>
  movePoint :: Float -> Float -> Point -> Point<br>
  movePoint offset factor (Point x y) = Point (offset + factor * x) (offset - factor * y)<br>
<br>
...such that you could then define<br>
<br>
md = let p = Point 2 2 in dist (movePoint 4 0.5 p) (movePoint 0 1 p)<span class="gmail-HOEnZb"><font color="#888888"><br>
<br>
-- <br>
Frerich Raabe - <a href="mailto:raabe@froglogic.com" target="_blank">raabe@froglogic.com</a><br>
<a href="http://www.froglogic.com" rel="noreferrer" target="_blank">www.froglogic.com</a> - Multi-Platform GUI Testing<br>
</font></span></blockquote></div><br></div></div></div>

<br>
<p><span lang="EN-GB"><font size="2">This email originated from DIT. If you received this email in error, please delete it from your system. Please note that if you are not the named addressee, disclosing, copying, distributing or taking any action based on the contents of this email or attachments is prohibited. <a href="http://www.dit.ie/" target="_blank">www.dit.ie</a></font></span></p><p><font size="2">Is ó ITBÁC
a tháinig an ríomhphost seo. Má fuair tú an ríomhphost seo trí earráid, scrios
de do chóras é le do thoil. Tabhair ar aird, mura tú an seolaí ainmnithe, go
bhfuil dianchosc ar aon nochtadh, aon chóipeáil, aon dáileadh nó ar aon ghníomh
a dhéanfar bunaithe ar an ábhar atá sa ríomhphost nó sna hiatáin seo. <a href="http://www.dit.ie/" target="_blank">www.dit.ie</a></font></p><p><a href="http://www.dit.ie/grangegorman" target="_blank"><font size="2">Tá ITBÁC ag aistriú go Gráinseach Ghormáin – DIT is on the move to Grangegorman</font></a></p>