Box the compass: Difference between revisions

Content added Content deleted
mNo edit summary
Line 29: Line 29:
hy=:'-'tween&>/@(/: #@>)@;
hy=:'-'tween&>/@(/: #@>)@;
fixup=: (rplc ''|.@;{.@;:@tolower) ^:(' '&e.)L:0
fixup=: (rplc ''|.@;{.@;:@tolower) ^:(' '&e.)L:0
points=:fixup , 2 ([;by;hy;by~)&>/\ cardinal
points=: , fixup 2 ([;by;hy;by~)&>/\ cardinal
indice=: 32 | 0.5 <.@+ %&11.25
indice=: 32 | 0.5 <.@+ %&11.25
deg2pnt=: points {~ indice</lang>
deg2pnt=: points {~ indice</lang>