Emphasis. -- Raul
On Tue, Jul 10, 2012 at 12:56 PM, Brian Schott <schott.br...@gmail.com> wrote: > Why is the obverse of gamma, ungamma, and obversely? > > On Tue, Jul 10, 2012 at 11:16 AM, Raul Miller <rauldmil...@gmail.com> wrote: >> Here's an implementation: >> >> gamma=: ([: ; <@(#&1@#, 0:, ])@}.@#:"0) :. gamma >> >> ungamma=:3 :0 :. ungamma >> r=. i. 0 >> while. #y do. >> len=. y i. 0 >> r=. r, #. 1, len {. (1+len) }. y >> y=. (1+2*len) }. y >> end. >> r >> ) >> > -- > (B=) > ---------------------------------------------------------------------- > For information about J forums see http://www.jsoftware.com/forums.htm ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm