Engel expansion: Difference between revisions

{{trans|Raku}}<syntaxhighlight lang="j">to_engle=: {{>.@% r=({.~ i.&0 while. y )<:@(* 30>:#r do. y=. _1+y*{@%)^:r=(i.30) r, >.%y end. r }}