Boustrophedon transform: Difference between revisions
Content added Content deleted
(→{{header|J}}: Alternate approach) |
m (→{{header|J}}: make M local in alternate approach) |
||
Line 79: | Line 79: | ||
<syntaxhighlight lang=J>B=: {{ |
<syntaxhighlight lang=J>B=: {{ |
||
M= |
M=. |:y#,:u i.y |
||
for_i.(#~>:/"1)1+(,#:i.@*)~y-1 do. |
for_i.(#~>:/"1)1+(,#:i.@*)~y-1 do. |
||
M= |
M=. M (<i)}~(M{~<i-0 1)+M{~<(-/\i)-1 0 |
||
end. |
end. |
||
M|:~<1 0 |
M|:~<1 0 |