Maybe you could port it to APL?

That i'm sure the code can be made shorter by guys in the code golf community.