32-точковий компас ... цікавий, якщо не сказати.

_{Автор Denelson83 (власна робота) [ GFDL або CC-BY-SA-3.0 ], через Wikimedia Commons}

Ваше завдання полягає в тому, щоб прийняти ступінь міри і перетворити його в напрямок 32-бального компаса.

Кожен напрямок на 11,25 (360/32) градусів далі, ніж попередній. Наприклад, N (північ) - 0 градусів, NbE (північ на схід) - 11,25 градусів, NNE (північ - північний схід) - 22,5 градусів тощо.

Щодо того, як ви повинні отримати вказівки,

• 0 градусів - N, 90 градусів - E, 180 градусів - S, а 270 градусів - W.

  • Вони називаються кардинальними напрямками.

• Точки на півдорозі між кардинальними напрямками - це просто ті кардинальні напрямки, які вони між сполученими. N або S завжди йдуть першими, а W або E завжди другі.

  • Вони називаються порядковими напрямками.

• Точки на півдорозі між головним і порядковим напрямками - це напрямки, які між ними з'єднані, знову ж таки, "-" між ними. Кардинальні напрямки йдуть перше, порядкове друге.

  • Вони називаються вторинно-міжкардіальними напрямками.

• Точки на півдорозі між вторинними та міжкардіальними напрямками та іншими напрямками - це інші напрямки "на" той кардинальний напрямок, який їм найближчий (окрім того, що знаходиться безпосередньо біля них, звичайно).

  • Я поняття не маю, як це називається: P

Якщо все це пояснення завдає шкоди вашому мозку настільки ж, як і моє, ви можете звернутися до цієї таблиці:

1   North               N
2   North by east       NbE
3   North-northeast     NNE
4   Northeast by north  NEbN
5   Northeast           NE
6   Northeast by east   NEbE
7   East-northeast      ENE
8   East by north       EbN
9   East                E
10  East by south       EbS
11  East-southeast      ESE
12  Southeast by east   SEbE
13  Southeast           SE
14  Southeast by south  SEbS
15  South-southeast     SSE
16  South by east       SbE
17  South               S
18  South by west       SbW
19  South-southwest     SSW
20  Southwest by south  SWbS
21  Southwest           SW
22  Southwest by west   SWbW
23  West-southwest      WSW
24  West by south       WbS
25  West                W
26  West by north       WbN
27  West-northwest      WNW
28  Northwest by west   NWbW
29  Northwest           NW
30  Northwest by north  NWbN
31  North-northwest     NNW
32  North by west       NbW

Ось більш детальна діаграма та, можливо, краще пояснення точок компаса.

Ваша задача полягає в тому, щоб приймати дані в градусах і виводити повну назву напрямку компаса, якому він відповідає, а також його абревіатуру.

Тестові приклади:

Input  Output
0      North N
23.97  North-northeast NNE
33.7   Northeast by north NEbN
73.12  East-northeast ENE
73.13  East by north EbN
219    Southwest by south SWbS
275    West W
276    West by north WbN
287    West-northwest WNW

Вся капіталізація повинна зберігатися, як у тестових випадках. Максимальна кількість десяткових знаків - 2. Усі вхідні цифри будуть більшими або дорівнюватимуть 0 та менше 360. Якщо десятковий знак присутній, то з обох сторін будуть цифри (вам не потрібно обробляти .1або 1.).

Це код-гольф , тому виграє найкоротший код у байтах.

Perl, 250 236 231 188 187

Редагувати: Деякі байти від використання симетрії (як я бачив у рішенні @bazzargh)

+ Редагувати: І кілька злих хитрощів ...

+ Редагувати : повернутися до того, з чого я почав (працюю зі списком, а не рядком), і використовую більше симетрії = 1 байт відключений і цілий куто неприємніше.

$_=((@_=(1,@_=qw(1b3 1-13 13b1 13 13b3 3-13 3b1),3,map{y/1/2/r}reverse@_)),map{y/312/421/r}@_)[int<>/11.25+.5];print ucfirst s/\w/(' by ',north,south,east,west)[$&]/ger,' ',y/1-4-/NSEW/dr

Симпатичний друк:

$_=(
    (@_=
        (
            1,
            @_=qw(1b3 1-13 13b1 13 13b3 3-13 3b1),
            3,
            map{y/1/2/r}reverse@_
        )
    ),map{y/312/421/r}@_
)[int<>/11.25+.5];

print ucfirst s/\w/(' by ',north,south,east,west)[$&]/ger,' ',y/1-4-/NSEW/dr

Потрібно 5.014 через rмодифікатор.

Javascript 470 453 438 434 432 421 404

s=String;s.prototype.a=s.prototype.replace;var a=prompt()/11.25,a=a+0.5|0,b,k,c=a,d=c%8,c=c/8|0,e=["north","east","south","west"],f,g,h;f=e[c];g=e[(c+1)%4];h=f==e[0]|f==e[2]?f+g:g+f;b="1;1 by 2;1-C;C by 1;C;C by 2;2-C;2 by 1".split(";")[d].a(1,f).a(2,g).a("C",h);k=b.a(/north/g,"N").a(/east/g,"E").a(/south/g,"S").a(/west/g,"W").a(/by/g,"b").a(/[\s-]/g,"");b=b[0].toUpperCase()+b.slice(1);alert(b+" "+k)

Ви можете скопіювати цей код на консоль і виконати його. Він запропонує ввести градуси і виводить результат за допомогоюalert();

Невикористаний Javascript можна знайти у цій скрипті: http://jsfiddle.net/AezL3/11

Haskell 415 372 347 330 317 304 301C

Закінчилося сходження на такому рішенні, як @ VadimR's (і симетрія назад!). Використання: h 219виходи"Southwest by south SWbS"

d"N"="north"
d"S"="south"
d"E"="east"
d"W"="west"
d"b"=" by "
d"-"="-"
d(x:y)=d[x]++d y
e(x:y)=x:tail(d$x:y)
k 'N'='S'
k 'S'='N'
k 'E'='W'
k x=x
r="N NbE N-NE NEbN NE NEbE E-NE EbN E EbS E-SE SEbE SE SEbS S-SE SbE "
p=words$r++(map k r)
g x=p!!mod(round$x/11.25)32
h x=e(g x)++(filter(/='-')$' ':g x)

Ще 3 символи пішли, дякую @shiona.

Python 3,8 , 482 438 424 байт

lambda h:' '.join([b(h),a(a(a(b(h)),1),d={' by ':'b','-':''})])
L=str.lower
c={'North':'N','East':'E','South':'S','West':'W'}
a=lambda t,l=0,d=c:[*(t:=t.replace([i,L(i)][l],d[i])for i in[*d])][-1]
b=lambda h,k=[*c]:a('W|W by x|W-z|Z by w|Z|Z by x|X-z|X by w'.split('|')[int((q:=h*4/45+.5)%8)],d={'W':(W:=[*k][(v:=int(q//8)%4)]),'X':(X:=[*k][(v+1)%4]),'w':(w:=L(W)),'x':(x:=L(X)),'Z':(Z:=[W+x,X+w][W in'EastWest']),'z':L(Z)})

Спробуйте в Інтернеті!

Це те, що я отримав після гри у відповідь тоні Гудвіна ; розміщено за власною відповіддю через те, що посилання TIO було занадто довгим для коментаря. Якщо він вирішить оновити свою відповідь на вищезазначене, я видалю цю відповідь.

Я припускаю, що функція є рішенням, а не повною програмою. Якщо ні, то тут повна програма на 426 байт.

Я очікую, що ще багато можна зробити, щоб скоротити b.

Редагувати: Гольф із 44 байтів, люб'язність величної моржі. Досі не відчуваю, як bробиться гольф.

Edit2: Поголив ще 14, розпаковуючи дикти замість використання keys()та items().

Python, 2103 1647 1103 1034 924 889 848 байт

Дуже пізно, я знаю. Дякую за виклик, я встановлював магнітометр для напрямку вітру зі своїм Pi, і хотів, щоб компас-рішення на 16 точок, подібне до цього, подалося в алгоритми прогнозування погоди. Весь мій код знаходиться в Python, тому ось версія рішення JavaScript вже розміщена в Python, але з додатковим поворотом, що ви можете вказати або 32, 16, або 8 точок компаса при змінній j, і я змінив зміщення degHead у заяві перед ним, залежно від кількості балів. Я використав модифікований алогоритм перейменування (і використовував змінні, які я міг би перейменувати, не пошкоджуючи слова!), Щоб переконатися, що я відповідав вимогам справи.

Я знаю, що це не виграє, оскільки Python є більш зрозумілим, і я.

Коротка версія:

  def a(t,d,l):
    for i,j in d.items():
      if l:
        i=i.lower()
      t=t.replace(i,j)
    return t
  def b(h,q):
    p=32
    r=360
    h=(h+(r/q/2))/(r/p)
    j=int(int(int(h %8)%8/(p/q))*p/q)
    h=int(h/8)%4
    k=c.keys()
    u=['W','W by x','W-z','Z by w','Z','Z by x','X-z','X by w']
    d={}
    d['W']=list(k)[h]
    d['w']=d['W'].lower()
    d['X']=list(k)[(h+1)%4]
    d['x']=d['X'].lower()
    if(d['W']=='North' or d['W']=='South'):
      d['Z']=d['W']+d['x']
    else:
      d['Z']=d['X']+d['w']
    d['z']=d['Z'].lower()
    return a(u[j],d,0)
  def g(n):
    n=a(n,c,0)
    n=a(n,c,1)
    d={'by':'b',' ':'','-':''}
    return a(n,d,0)
  def v(m):
    while True:
      try:
        return float(input(m))
      except ValueError:
        print("?")
  c={'North':'N','East':'E','South':'S','West':'W'}
  while True:
    h=v("?")
    n=b(h,32)
    print(h,n,g(n))

Ясна версія

            import math
            import sys

            def calcPoint(degHead, points):
                maxPoints=32
                if points not in(8,16,32):
                    sys.exit("not a good question")
                degHead=(degHead+(360/points/2))/(360/maxPoints)
                j =int(int( int(degHead  % 8)%8/(maxPoints/points))*maxPoints/points)
                degHead = int(degHead / 8) % 4
                cardinal = ['North', 'East', 'South', 'West']
                pointDesc = ['W', 'W by x', 'W-z', 'Z by w', 'Z', 'Z by x', 'X-z', 'X by w']#vars not compass points
                W = cardinal[degHead]
                X = cardinal[(degHead + 1) % 4]
                w=W.lower()
                x=X.lower()
                if (W == cardinal[0] or W == cardinal[2]) :
                    Z =W + x
                else:
                    Z =X + w
                z=Z.lower()
                return pointDesc[j].replace('W', W).replace('X', X).replace('w', w).replace('x', x).replace('Z', Z).replace('z', z);

            def getShortName(name): 
                return name.replace('North', 'N').replace('East', 'E').replace('South', 'S').replace('West', 'W').replace('north', 'N').replace('east', 'E').replace('south', 'S').replace('west', 'W').replace('by', 'b').replace(' ', '').replace('-', '')

            def input_number(msg, err_msg=None):
                while True:
                    try:
                        return float(input(msg))
                    except ValueError:
                        sys.exit("not a number")

            while True:
                headingCalib=input_number("input a number: ")
                print (headingCalib, end=' ')
                name = calcPoint(headingCalib,32) #degrees heading, points of compass 8,16 or 32)
                print (name, end=' ')
                shortName = getShortName(name)
                print (shortName)