tag:blogger.com,1999:blog-6848574.post8496464664410801548..comments2017-11-13T21:49:52.398-06:00Comments on Working notes: Tweaking the Power LimitPaula Ghttps://plus.google.com/100668892532764880574noreply@blogger.comBlogger5125tag:blogger.com,1999:blog-6848574.post-66786936364699184602015-09-04T14:41:00.058-05:002015-09-04T14:41:00.058-05:00I have a similar fixed-point function. My tweak i...I have a similar fixed-point function. My tweak is to add a limit to avoid infinite recursion.<br /><br />(defn fixed-point<br /> ([f] (fixed-point f 0))<br /> ([f guess] (fixed-point f guess 1000))<br /> ([f guess limit] (fixed-point f guess limit =))<br /> ([f guess limit eq?]<br /> (when (pos? limit)<br /> (let [guess' (f guess)]<br /> (if (eq? guess' guess)<br /> guess<br /> (recur f guess' (dec limit) eq?))))))<br /><br />Stevehttps://www.blogger.com/profile/09427697751372693551noreply@blogger.comtag:blogger.com,1999:blog-6848574.post-24056211515364874092015-09-01T13:22:39.270-05:002015-09-01T13:22:39.270-05:00OMG, i'am not understand sirOMG, i'am not understand sirservis printerhttp://www.masputz.com/2015/08/coba-cara-ini-jika-printer-mengalami.htmlnoreply@blogger.comtag:blogger.com,1999:blog-6848574.post-60556730873178889752015-08-12T17:16:14.433-05:002015-08-12T17:16:14.433-05:00KUL POSTKUL POSTweb lolhttp://web-lol-slo.blogspot.com/noreply@blogger.comtag:blogger.com,1999:blog-6848574.post-85510700403355902982015-02-18T11:07:39.271-06:002015-02-18T11:07:39.271-06:00I called it fixed-point at my REPL too, but the fi...I called it fixed-point at my REPL too, but the final form was called power-limit to match the APL stuff.<br /><br />Your function is the same as my first attempt, though I do like the parameterization of the equality test. I'd make it multiple arity though...<br /><br />(defn fixed-point<br /> ([F guess] (fixed-point F guess =))<br /> ([F guess eq?]<br /> (let [guess' (F guess)]<br /> (if (eq? guess' guess)<br /> guess<br /> (recur F guess' eq?)))))<br /><br />Thanks.Paul Ghttps://www.blogger.com/profile/03653112583629043593noreply@blogger.comtag:blogger.com,1999:blog-6848574.post-86666631422171843082015-02-18T01:34:39.300-06:002015-02-18T01:34:39.300-06:00Hi, here is my swiss army function for fixedpoint ...Hi, here is my swiss army function for fixedpoint computations:<br /><br />(defn fixedpoint [F guess eq?]<br /> (let [guess' (F guess)]<br /> (if (eq? guess' guess)<br /> guess<br /> (recur F guess' eq?))))<br /><br />It is parameterized to also take a function that decides whether the fixed point was reached. So you can also use it for real numbers, sets, ...<br /><br /> Jensnoreply@blogger.com