Golf wykres golfa
Biorąc pod uwagę odległość w metrach jako liczbę całkowitą \$60\le d \le 260\$, zwraca liczbę trefli, które mogą być użyte zgodnie z poniższym arbitralnym wykresem, gdzie oba \$min\$i \$max\$ zawierają:
club | min | max
----------------+-----+-----
Driver | 200 | 260
3-wood | 180 | 235
5-wood | 170 | 210
3-iron | 160 | 200
4-iron | 150 | 185
5-iron | 140 | 170
6-iron | 130 | 160
7-iron | 120 | 150
8-iron | 110 | 140
9-iron | 95 | 130
Pitching Wedge | 80 | 115
Sand Wedge | 60 | 90
Uwagi
Nazwy klubów podano wyłącznie w celach informacyjnych.
Oczywiście wybór klubu zależy od kilku innych parametrów. Na przykład Sand Wedge jest przeznaczony do ucieczki z bunkra z piaskiem. Ale na potrzeby tego wyzwania liczy się tylko odległość.
Jest to niewątpliwie wyzwanie typu code-golf .
Przykład
Dla \$d=130\$Możemy wybrać 6-żelaza , 7-żelazo , 8-żelazo lub 9-żelazo , tak oczekiwana odpowiedź jest \$4\$.
Przypadki testowe
Input Output
60 1
79 1
80 2
93 1
105 2
110 3
116 2
129 3
130 4
200 4
201 3
235 2
260 1
Lub jako listy:
Input : 60, 79, 80, 93, 105, 110, 116, 129, 130, 200, 201, 235, 260
Output: 1, 1, 2, 1, 2, 3, 2, 3, 4, 4, 3, 2, 1
Odpowiedzi
kod maszynowy x86-16, 47 42 bajty
00000000: be14 01b3 01b1 0bad 3ad0 7205 3ad4 7701 ........:.r.:.w.
00000010: 43e2 f4c3 505a 5feb 6e73 78d2 8282 8c8c C...PZ_.nsx.....
00000020: 9696 a0a0 aaaa b4b9 c8c8 ..........
Wymienianie kolejno:
BE 0114 MOV SI, OFFSET CHART ; SI point to distance chart
B3 01 MOV BL, 1 ; start counter at 1
B1 0B MOV CL, 11 ; loop 11 clubs
SCORE_LOOP:
AD LODSW ; load AL = min, AH = max
3A D0 CMP DL, AL ; is d less than min?
72 05 JB DONE ; if so, continue
3A D4 CMP DL, AH ; is d greater than max?
77 01 JA DONE ; if so, continue
43 INC BX ; otherwise increment counter
DONE:
E2 F4 LOOP SCORE_LOOP ; loop through end of chart
C3 RET ; return to caller
CHART DB 80,90,95,235,110,115,120,210,130,130,140,140
DB 150,150,160,160,170,170,180,185,200,200
Wywoływalnym funkcja, wejście dw DXwyjście w BL.
Brak kompresji (tylko dane 24 22 bajty binarnie i tak) tylko porównanie tabeli.
Edycja: Ogromne rekwizyty dla @SE - przestań strzelać do dobrych ludzi za zmianę układu listy i wyeliminowanie konieczności przesunięcia dwartości, oszczędzając 5 bajtów !
Program testowy działa:
Wersja alternatywna, 50 bajtów
BB 0501 MOV BX, 0501H ; init counter to 1 in BL and
BF 556D MOV DI, 0556DH ; magic number to 0x5556D in BH:DI
BE 011C MOV SI, OFFSET CHART ; SI point to transition table
B1 16 MOV CL, 22 ; loop 22 transitions
SCORE_LOOP:
AC LODSB ; load AL = next transition
3A C2 CMP AL, DL ; is d less than?
77 0B JA EXIT ; if not, end
D0 EF SHR BH, 1 ; cascade bit shift high word into CF
D1 DF RCR DI, 1 ; bit shift lsb into CF
43 INC BX ; increment counter
72 02 JC NEXT ; if CF was a 1, continue to next
4B DEC BX ; otherwise subtract 2
4B DEC BX
NEXT:
E2 F0 LOOP SCORE_LOOP ; keep looping
EXIT:
C3 RET
CHART DB 80,91,95,110,116,120,130,131,140,141,150,151,160,161,170,171,180,186,200,201,211,236
Jest to mocno zainspirowane odpowiedzią Jonathana Allana . Wykorzystuje tabelę wartości d, gdzie liczba klubów przejściami albo +1czy -1i odpowiadające binarnym magiczna liczba z 0x5556dktórym 1wskazuje na pozytywne zmiany i 0wskazuje na negatywne zmiany.
Niestety, to nie pomaga tutaj zbytnio, ponieważ kodowanie oryginalnej tabeli wynosi 24 bajty w porównaniu z 22 przejściami plus 3 bajtowa liczba magiczna, więc naprawdę jest większa. Jednak fajnie było próbować!
Python 3 , 71 bajtów
lambda n:sum(a<=n/5<=b for a,b in zip(b'($" ',b'4/*(%" '))
Ciągi bajtów zawierają pewne elementy niedrukowalne, ich uciekająca forma to b'($" \x1e\x1c\x1a\x18\x16\x13\x10\x0c'i b'4/*(%" \x1e\x1c\x1a\x17\x12'.
Python 3 , 71 bajtów
lambda n:sum(b>n-a*5>-1for a,b in zip(b'($" ',b'=8))$ $$ '))
Python 3.8 , 90 86 bajtów
lambda x:-~sum([79<x<91,94<x<236,-1<(a:=x-110)<6,9<a<101,69<a<76,a/10in{2,3,4,5,6,9}])
Ostatni warunek można również zapisać jako a%10<1<a/10<7,a==90o tej samej długości.
Galaretka , 25 bajtów
“Ḳœẹ“rɓ?’ḃ5×5“ZO‘;"Ä⁸>§I‘
Pełny program, który wypisuje wynik (lub monadyczny link, który zwraca listę jednoelementową).
Wypróbuj online! Lub zobacz zestaw testów .
W jaki sposób?
Dla każdego prawidłowego wpisu w \$[60,260]\$jesteśmy w stanie skorzystać z co najmniej jednego kija. Dla dowolnego odcinka w \$[61,260]\$, jesteśmy w stanie użyć tego samego, jednego więcej lub jednego mniej kija, niż moglibyśmy zrobić o jeden jard mniej. Poniższy kod koduje odległości, w których rośnie liczba dostępnych kijów, oraz te, w których liczba dostępnych kijów spada i wykorzystuje to do obliczenia wyniku.
“Ḳœẹ“rɓ?’ḃ5×5“ZO‘;"Ä⁸>§I‘ - Main Link: integer, Y e.g. 129
“Ḳœẹ“rɓ?’ - list of (two) base-250 integers = [11132965,7226564]
ḃ5 - convert to bijective base five -> [[5,3,2,2,2,2,3,3,2,5],[3,3,2,2,2,2,2,2,2,4]]
×5 - multiply by five -> [[25,15,10,10,10,10,15,15,10,25],[15,15,10,10,10,10,10,10,10,20]]
“ZO‘ - list of code-page indices = [90,79]
" - zip with:
; - concatenation -> [[90,25,15,10,10,10,10,15,15,10,25],[79,15,15,10,10,10,10,10,10,10,20]]
Ä - Cumulative values -> [[90,115,130,140,150,160,170,185,200,210,235],[79,94,109,119,129,139,149,159,169,179,199]]
⁸> - is Y greater than (those)? -> [[1,1,0,0,0,0,0,0,0,0,0],[1,1,1,1,0,0,0,0,0,0,0]]
§ - sums -> [2,4]
I - deltas -> [2]
‘ - increment -> [3]
- implicit print -> "3"
J , 63 58 55 50 bajtów
1#.1=(59 90+/\@,|:5*2+4#.inv 2424834 3408207)I."1]
-5 bajtów dzięki xash
Koduje listy jako liczby w bazie 4, rekonstruuje, a następnie używa indeksu interwału, I.aby policzyć, ile zakresów mieści się w danych wejściowych.
Pytona 3 , 180 155 153 97 88 bajtów
lambda n:sum(a<=chr(n)<b for a,b in zip('<P_nx‚Œ– ª´È','[tƒ—¡«ºÉÓìą'))
K (oK) , 85 82 bajty
Rozwiązanie:
{+/z=x|y&z}.(-3 -1 .5 2 3 4 5 6 7 8 9 11;0 2.5 4 5 6 7 8 9.5 11 12 14.5 17),-9+.1*
Wyjaśnienie:
Zdecydowanie naiwny; bardzo prawdopodobne, że jest to złe podejście. Chociaż fajny golf przez ngn, aby uprościć logikę porównania! .
{+/z=x|y&z}.(-3 -1 .5 2 3 4 5 6 7 8 9 11;0 2.5 4 5 6 7 8 9.5 11 12 14.5 17),-9+.1* / the solution
.1* / multiply input by 0.1
-9+ / subtract 9 from input
, / append to
(-3 -1 .5 2 3 4 5 6 7 8 9 11;0 2.5 4 5 6 7 8 9.5 11 12 14.5 17) / club stats
{ }. / call lambda with multiple args
y&z / min of input and min distance
x| / max compared to max distance
z= / is input the same?
+/ / sum up
Dodatkowy:
- -3 bajty dzięki
ngn
Python 3 , 105 bajtów
lambda n,a=[1],b=[2],c=[3],d=[4]:(a*20+b*11+a*4+b*15+c*6+b*4+c+(c*9+d)*6+d*5+c*14+d+c*10+b*25+a*25)[n-60]
Objaśnienie: Prosty sposób na przechowywanie listy odpowiedzi i wydrukowanie wymaganego indeksu.
Węgiel , 44 bajty
ＮθＩΣＥ¹²⁻›θ⁺⁵⁹×⁵Σ…”)⊞⊟‹Ｇ↔”ι›θ⁺⁹⁰×⁵Σ…”)⊟+.Ｄ↥”ι
Wypróbuj online! Link prowadzi do pełnej wersji kodu. Odpowiedź Port of @ JonathanAllen. Wyjaśnienie:
Ｎθ
Wejście d.
ＩΣＥ¹²⁻
Zmapuj 12 trefl i wydrukuj sumę wyników oddanych na ciąg, biorąc różnice między ...
›θ⁺⁵⁹×⁵Σ…”)⊞⊟‹Ｇ↔”ι
... w dporównaniu z 59dodaną do 5razy sumą cyfrową prefiksu skompresowanego ciągu 43322222224i ...
›θ⁺⁹⁰×⁵Σ…”)⊟+.Ｄ↥”ι
... w dporównaniu z 90dodaną do 5razy sumą cyfrową prefiksu skompresowanego ciągu 53222233235.
Poprzednia 48-bajtowa odpowiedź:
ＮθＩΣＥＩ⪪”)¶∧!✂η}⌊⍘⪫⪫⊕#<e⌊W[qＹ9¤…”²∧›θ⁻×⁵ι﹪κ²⊖⊗﹪κ²
Wypróbuj online! Link prowadzi do pełnej wersji kodu. Objaśnienie: Końcowe i początkowe odległości 12 kijów są podzielone ze skompresowanego ciągu liczb całkowitych od 12 do 52, które są pomnożone przez 5. i dporównuje się je ze wszystkimi, przyznając punkty 1za większe lub równe odległości w nieparzystych pozycjach i -1za większe odległości w parzystych pozycje i wydrukowana jest ostateczna suma.
Python 3 , 62 60 bajtów
lambda d:sum(b//25<=b%25+23-d/5<=7for b in b'BUNSWYQ+-}')+1
Na \x18końcu ciągu znajduje się niewidoczny (na Stack Exchange) znak.
Myślę, że możliwe jest osiągnięcie bardziej agresywnych współczynników kompresji w większości nie-esolangów.
Jako małą zachętę, oto moje własne wyniki w Pythonie i Node.
Oba fragmenty kodu ujawnię poniżej, gdy tylko krótsza lub równie długa odpowiedź zostanie opublikowana (lub zaktualizowana) w dowolnym języku lub o godzinie 14:00 czasu UTC w piątek 21 sierpnia 2020 r., W mało prawdopodobnym przypadku, gdy taka odpowiedź nie zostanie opublikowana do tego czasu.
EDYCJA (2020-08-19): Gratulacje dla @flornquake za to, że jako pierwszy opublikował odpowiedź w Pythonie poniżej 70 bajtów, używając pomysłu podobnego do mojego, ale posuwając go o krok dalej, w sumie 62 bajty!
Python 3.8 (wersja wstępna) , 70 bajtów
lambda d,n=12:sum((n:=n+x//8-4)<=d/5<=n+x%8+6for x in b' A980001225F')
JavaScript (Node.js) , 74 bajty
d=>Buffer(' A980001225F').map(x=>t-=d/5<(n+=x-32>>3)|d/5>n+x%8+6,n=t=12)|t
Perl 5 , 70 bajtów
Pierwszy bajt w ciągu jest dodawany w \x##notacji, aby ułatwić testowanie, ale jest to bajt dosłowny.
$_=grep"@F">=($k+=(ord>>4)*5)&"@F"<=$k+(15&ord)*5,"\xc6G76&&&'((+L"=~/./g
Przechowuje szczegóły każdego klubu (podzielone przez 5) jako bajt, gdzie pierwsze cztery bity są różnicą od początku poprzedniego zakresu i początku tego, a drugie cztery bity to różnica między początkiem tego zakresu a koniec.
start end => / 5 => binary #
--------------------------------------------
60 90 => 12 6 => 11000110 # counter starts at 0
80 115 => 4 7 => 00100100 # counter is 12 from before so we only need an extra 4
95 130 => 3 7 => 00110111
110 140 => 3 6 => 00110110
C (gcc) , 83 75 bajtów
(nie wszystkie znaki są poprawnie wyświetlane przy wymianie stosów, ale są poprawne w TIO)
*i;c;f(d){c=0;for(i=L"ÈĄ´ëªÒ È–¹Œª‚ x–nŒ_‚Ps<Z";*i;c+=d/ *i++&*i++/d);d=c;}
Io , 89 bajtów
method(a," \"$("asList select(i,v,v at(0)<=a/5and a/5<=" \"%(*/4"at(i))size)
Pyth , 36 bajtów
s/RC-QTrV"2FUdnx‚Œ– ª¾""Qjyƒ—¡°¿Éâû
Wyjaśnienie
"... # String literal with end of ranges minus 10 as characters
"..." # String literal with start of ranges minus 10 as characters
rV # Generate the ranges
/R # Count occurrences of
C-QT # input minus 10 converted to a characters (based on ascii value)
# in each of the ranges
s # sum
JavaScript (V8) , 142 132 117 113 bajtów
-10 bajtów: zastosowane -9 do zakresów i danych wejściowych po dzieleniu, a nie tylko dzieleniu przez 10 (inspirowane innymi odpowiedziami, zrozumiałem, dlaczego warto było po obserwowaniu mojego zakresu / 10 liczb)
-15 bajtów dzięki ulepszeniom Arnaulda
-5 bajtów dzięki dalszym ulepszeniom Shaggy'ego
d=>[11,17,9,14.5,8,12,7,11,6,9.5,...'58473625',.5,4,-1,2.5,-3,t=0].map((e,i,r)=>t+=++i%2&d>=e&d<=r[i],d=d/10-9)|t
Dość naiwne rozwiązanie, ale nie czułem się komfortowo, próbując bardziej złożonych metod używanych w innych odpowiedziach (nie wspominając o tym, że nie jestem pewien, czy są one w ogóle możliwe / warte gry w golfa w JS!). Chętnie jednak skorzystam z porad / ulepszeń.
Niezminifikowane i wyjaśnione (nieco nieaktualne, ale nadal wyjaśnia cały proces):
f = (distance) => {
// divide input by 10 and subtract 9 since the hardcoded ranges are shorter when those operations are done.
distance = distance / 10 - 9
// hardcoded ranges divided by 10 then subtracted 9 to save bytes (probably can be done better).
// Will be used in pairs, only processing even indexes and using i & i+1
//ranges = [20,26,18,23.5,17,21,16,20,15,18.5,14,17,13,16,12,15,11,14,9.5,13,8,11.5,6,9] // /10
//ranges = [14,20,12,17.5,11,15,10,14,9,12.5,8,11,7,10,6,9,5,8,3.5,7,2,5.5,0,3] // /10 -6
ranges = [11,17,9,14.5,8,12,7,11,6,9.5,5,8,4,7,3,6,2,5,0.5,4,-1,2.5,-3,0] // /10 -9 (winner! inspired by other answers)
// .map used as .reduce
ranges.map((e, i)=> { // e: current element, i: current index
totalValidClubs += ( // increment total 'valid' counter if within range
i%2 == 1 ? 0 : // skip odd indexes, will use i & i+1 on even indexes only
distance>=e && distance<=ranges[i+1] ? 1 : 0) // if even index and distance is between ranges[i] & [i+1] (inclusive), increment by 1.
}, totalValidClubs=0); // initialize valid club counter as 0
return totalValidClubs;
}
05AB1E , 38 36 bajtów
38 bajtów
"ÈĄ´ëªÒ È–¹Œª‚ x–nŒ_‚Ps<Z"Ç2ôε.SOÄ2‹}O
Nie radzę sobie z kompresją :( Najlepsze, o czym mogłem pomyśleć, to konwersja każdej liczby na znak ASCII.
Wyjaśnienie:
"ÈĄ´ëªÒ È–¹Œª‚ x–nŒ_‚Ps<Z"Ç2ôε.SOÄ2‹}O
"ÈĄ´ëªÒ È–¹Œª‚ x–nŒ_‚Ps<Z" Ranges of clubs as ASCII chars
Ç Convert to values
2ô Split into chunks of two
ε } Map on pairs
.S -1 if lower than input, 1 if greater, 0 it equal
O Sum the result of the pair
Ä Absolute value
2‹ Is it lower than 2? (The only cases the absolute value is 2 are when the input is out of range)
O Now we have list of 0 and 1 for each range. Sum it up :)
36 bajtów (dzięki @ovs)
"ÈĄ´ëªÒ ȹª xn_Ps<Z"Ç2ôε-P(d}O
Używając -P(dmapy wewnętrznej, która odejmie parę z danymi wejściowymi, iloczyn (wartości spoza zakresu będą dodatnie), a następnie zastosuj negativez (i sprawdź, czy wartość jest nieujemna za pomocą d.
> <> , 51 bajtów
"Çɳº©«Ÿ¡•—‹ƒwÓmt^ìO["1&{:})${:}(*&+&55*0l3)?.&n;
(zawiera 7 elementów niedrukowalnych)
Ponieważ na każde wejście przypada co najmniej 1 klub, można zmienić ustawienie zakresów, aby pozbyć się jednego zakresu, co ma dodatkową zaletę polegającą na usunięciu części „260”, która jest ledwo poza zakresem bajtu.
Desmos , 106 bajtów:
f(d)=total(\left\{join([18...11],[9.5,8,6,20])*10<=d<=[47,42,40,37,34,32,30,28,26,23,18,52]*5:1,0\right\})
Usuń f(d)=i odejmij 5 bajtów, jeśli nie przeszkadza ci używanie suwaka jako wejścia.