塔尔，她吹！

Arrr ...嗨，我妈！松开主帆！充满右舷！啊，感受你头发中的风！

是的，我衷心...我需要一点你的技巧！我的船员比我自己更现代化……我仍然更喜欢指南针（请参阅此处了解更多信息，Arrr ...），而我的船员却总是头疼。我想要一种简单的方法来将他们称为“脑袋”的那一幕转换成我能理解的，Arrr！

我需要的是代码tha'be takin'输入的数字（小数也可以），例如tha'，0 <= the headin' < 360并且它会作为最接近的罗盘点出现在答案中！啊！

以下是一些示例：

> heading 0.1

North

> heading 11.25

North by East

> heading 22.7

North Northeast

> heading 44.99

Northeast

> heading 91

East

现在，如果您不愿意让它恰好落在两个罗盘点的中间，那么请不要烦恼，我要衷心...我希望代码能吐出Between <point 1> and <point 2>，例如heading 5.625会说Between North and North by East 这只会发生，因为' H = 5.625 + 11.25(N)h'是'headin'，而N是0到31之间（包括0和31）的整数...

两个限制

1）我不希望使用数组来存储点的数据或'headin's ... Tha'be cheatin'，先生，'ye be betin'尝到了我的under弹...像过去一样被计算！啊！

2）最短的代码获胜，否则我将继续走下去... Arrr！

Perl 5.10的使用取代，231 228 226 224

@c=(north,east,south,west);
@q=qw(P PbR P-Q QbP Q QbR R-Q RbP);
sub p{$j=$_[0]>>3&3;$_=$q[7&pop];s/P/$c[$j]/;s/Q/$c[$j+1&2]$c[$j|1]/;s/R/$c[$j+1&3]/;s/b/ by /;ucfirst}
$a=<>/11.25+.5;
say$a==int$a&&'Between '.p($a-1).' and ',p$a

添加了四个换行符以提高可读性。

编辑：使用打了2个字节pop。谢谢@Dom Hastings

编辑：少使用2个字节qw()

我花了太多时间在这里寻宝，但这是Java的解决方案：

public class Aaaaarrrr {

    public static void main(String[] aaarrrgs) {

        float heading = Float.parseFloat(aaarrrgs[0]);

        final List<String> points = Arrays.asList("North",
                "North by east", "North-northeast", "Northeast by north",
                "Northeast", "Northeast by east", "East-northeast",
                "East by north", "East", "East by south", "East-southeast",
                "Southeast by east", "Southeast", "Southeast by south",
                "South-southeast", "South by east", "South", "South by west",
                "South-southwest", "Southwest by south", "Southwest",
                "Southwest by west", "West-southwest", "West by south", "West",
                "West by north", "West-northwest", "Northwest by west",
                "Northwest", "Northwest by north", "North-northwest",
                "North by west");


        float cp = heading / 360.0f * 32.0f;
        if (cp % 1 == 0.5f)
             System.out.print("Between " + points.get((int)Math.floor(cp)) + " and ");

         System.out.println(points.get(Math.round(cp)));

    }
}

编辑如果我将上面的代码最小化并使其变得丑陋，它将变为：

Java，770个字符

import java.util.*;class A{public static void main(String[] r){List<String> l=Arrays.asList("North","North by east","North-northeast","Northeast by north","Northeast","Northeast by east","East-northeast","East by north","East","East by south","East-southeast","Southeast by east","Southeast","Southeast by south","South-southeast","South by east","South","South by west","South-southwest","Southwest by south","Southwest","Southwest by west","West-southwest","West by south", "West","West by north","West-northwest","Northwest by west","Northwest","Northwest by north","North-northwest","North by west");float c=Float.parseFloat(r[0])/360.0f*32.0f;if (c%1==0.5f) System.out.print("Between "+l.get((int)Math.floor(c))+" and ");System.out.println(l.get(Math.round(c)));}}

Python，264

n='north'
e='east'
s='south'
w='west'
b=' by '
def f(H):x,y,z=(n,e,s,w,e,s,w,n,n+e,s+e,s+w,n+w)[int(H%360/90)::4];return(x,x+b+y,x+'-'+z,z+b+x,z,z+b+y,y+'-'+z,y+b+x)[int(H%90*4/45)].capitalize()
h=input()+5.625
print h%11.25and f(h)or'Between '+f(h-1)+' and '+f(h)

根据Wikipedia页面，这将使用大写字母，并且应该适用于任何数字。

Arrr Python，336岁

A,R,r=int,input()/360.*32,' by #South#north#West#East#south#North#west#east#-#/#Between#and'.split('#')
a=''.join(r[A(c,16)]for c in'6A608A6928A6802A68A6808A4928A402A4A405A4958A1808A18A1805A1958A108A1A107A1957A1705A17A1707A3957A305A3A302A3927A6707A67A6702A6927A607').split('/')
if R%1==.5:print r[11],a[A(R)],r[12],
print a[A(round(R))]

谢谢@Jeen

Perl 5.10的，262 257 254

类似于Python解决方案之一：

$n=north;$e=east;$s=south;$w=west;
@d=($n,$n.$e,$e,$s.$e,$s,$s.$w,$w,$n.$w,$n);
sub p{$j=pop;$i=$j>>2;ucfirst(($d[$i],"$d[$i] by $d[$i+2&~1]","$d[$i+1&~1]-$d[$i|1]","$d[$i+1] by $d[$i&~1]")[$j&3])}
$a=<>/11.25+.5;
say$a==int$a&&'Between '.p($a-1).' and ',p$a

添加了四个换行符以提高可读性。

编辑：多亏了@Dom Hastings，减少了三个字节