Data commit

Task/Box-the-compass/K/box-the-compass-1.k

@@ -0,0 +1,16 @@
+   d:("N;Nbe;N-ne;Nebn;Ne;Nebe;E-ne;Ebn;")
+   d,:("E;Ebs;E-se;Sebe;Se;Sebs;S-se;Sbe;")
+   d,:("S;Sbw;S-sw;Swbs;Sw;Swbw;W-sw;Wbs;")
+   d,:("W;Wbn;W-nw;Nwbw;Nw;Nwbn;N-nw;Nbw;N")
+
+   split:{1_'(&x=y)_ x:y,x}
+   dd:split[d;";"]
+
+   / lookup table
+   s1:"NEWSnewsb-"
+   s2:("North";"East";"West";"South";"north";"east";"west";"south";" by ";"-")
+   c:.({`$x}'s1),'{`$x}'s2   / create the dictionary
+   cc:{,/{$c[`$$x]}'x}       / lookup function
+
+   / calculate the degrees
+   f:{m:x!3;(11.25*x)+:[1=m;+5.62;2=m;-5.62;0]}

Task/Box-the-compass/K/box-the-compass-2.k

@@ -0,0 +1,34 @@
+   `0:{((2$(1+x!32)),"  ",(-19$cc@dd[x]),(6.2$f@x))}'!#dd
+ 1  North                0.00
+ 2  North by east       16.87
+ 3  North-northeast     16.88
+ 4  Northeast by north  33.75
+ 5  Northeast           50.62
+ 6  Northeast by east   50.63
+ 7  East-northeast      67.50
+ 8  East by north       84.37
+ 9  East                84.38
+10  East by south      101.25
+11  East-southeast     118.12
+12  Southeast by east  118.13
+13  Southeast          135.00
+14  Southeast by south 151.87
+15  South-southeast    151.88
+16  South by east      168.75
+17  South              185.62
+18  South by west      185.63
+19  South-southwest    202.50
+20  Southwest by south 219.37
+21  Southwest          219.38
+22  Southwest by west  236.25
+23  West-southwest     253.12
+24  West by south      253.13
+25  West               270.00
+26  West by north      286.87
+27  West-northwest     286.88
+28  Northwest by west  303.75
+29  Northwest          320.62
+30  Northwest by north 320.63
+31  North-northwest    337.50
+32  North by west      354.37
+ 1  North              354.38