Hilbert curve: Difference between revisions
m
→{{header|J}}
(J: implement and show ascii art.) |
m (→{{header|J}}) |
||
Line 1,167:
<lang J>iter=: (, 1 , +@|.) @: (,~ 0j_1 ,~ 0j_1*|.)
hilbert=: {{0j1+(%{:) +/\0,iter ^: y ''}}
asciiart=:{{
coords=. 1 3*"1 +. y % <./(,+.y)-.0
|