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)

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

Re: letfn - mutually recursive local functions

2009-03-01 Thread Konrad Hinsen
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 n > (c [n] (if (zero? n) n (a (

Re: letfn - mutually recursive local functions

2009-02-28 Thread Chouser
On Sat, Feb 28, 2009 at 7: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)

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 s