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
