Hilbert curve: Difference between revisions
Content added Content deleted
m (J: perhaps slightly clearer presentation) |
|||
Line 1,387: | Line 1,387: | ||
<lang J>iter=: (, 1 , +@|.) @: (,~ 0j_1 ,~ 0j_1*|.) |
<lang J>iter=: (, 1 , +@|.) @: (,~ 0j_1 ,~ 0j_1*|.) |
||
hilbert=: {{0j1+(%{:) +/\0,iter ^: y ''}} |
hilbert=: {{0j1+(%{:) +/\0,iter ^: y ''}} |
||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
<lang J> |
|||
asciiart=:{{ |
asciiart=:{{ |
||
coords=. 1 3*"1 +. y % <./(,+.y)-.0 |
coords=. 1 3*"1 +. y % <./(,+.y)-.0 |
||
Line 1,398: | Line 1,407: | ||
canvas=. '|' (>./"2 vertical#pairs)} canvas |
canvas=. '|' (>./"2 vertical#pairs)} canvas |
||
}} |
}} |
||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
asciiart hilbert 4 |
|||
__ __ __ __ __ __ __ __ __ __ |
__ __ __ __ __ __ __ __ __ __ |
||
|__ |__| __| |__ |__| __| |__ |__| |
|__ |__| __| |__ |__| __| |__ |__| |