Re: letfn - mutually recursive local functions

2009-03-10 Thread David Sletten
On Feb 28, 2009, at 2:38 PM, Rich Hickey wrote: I've added letfn, which lets you define mutually recursive local functions a la CL's labels. (defn ring [n] (letfn [(a [n] (if (zero? n) n (b (dec n (b [n] (if (zero? n) n (c (dec n (c [n] (if (zero? n) n (a

Re: letfn - mutually recursive local functions

2009-03-01 Thread Rich Hickey
On Mar 1, 2009, at 4:18 PM, Konrad Hinsen wrote: On 01.03.2009, at 01:38, Rich Hickey wrote: I've added letfn, which lets you define mutually recursive local functions a la CL's labels. (defn ring [n] (letfn [(a [n] (if (zero? n) n (b (dec n (b [n] (if (zero? n) n (c (dec

letfn - mutually recursive local functions

2009-02-28 Thread Rich Hickey
I've added letfn, which lets you define mutually recursive local functions a la CL's labels. (defn ring [n] (letfn [(a [n] (if (zero? n) n (b (dec n (b [n] (if (zero? n) n (c (dec n (c [n] (if (zero? n) n (a (dec n] (c n))) (ring 1000) Note this is still

Re: letfn - mutually recursive local functions

2009-02-28 Thread Chouser
On Sat, Feb 28, 2009 at 7:38 PM, Rich Hickey richhic...@gmail.com wrote: I've added letfn, which lets you define mutually recursive local functions a la CL's labels. (defn ring [n]  (letfn [(a [n] (if (zero? n) n (b (dec n          (b [n] (if (zero? n) n (c (dec n          (c [n]