Kto był prezydentem USA?

56

Wyzwanie

Napisz program, który pobiera dane wejściowe od 30 kwietnia 1789 r. Do 21 sierpnia 2019 r. I zwraca dane wyjściowe, który był prezydentem USA tego dnia.

Notatki

Aby zapoznać się z listą prezydentów USA , formatem ich nazwisk i okresem ich prezydentury, patrz poniżej:

April 30, 1789 - March 4, 1797          George Washington
March 4, 1797 - March 4, 1801           John Adams
March 4, 1801 - March 4, 1809           Thomas Jefferson
March 4, 1809 - March 4, 1817           James Madison
March 4, 1817 - March 4, 1825           James Monroe
March 4, 1825 - March 4, 1829           John Quincy Adams
March 4, 1829 - March 4, 1837           Andrew Jackson
March 4, 1837 - March 4, 1841           Martin Van Buren
March 4, 1841 - April 4, 1841           William Henry Harrison
April 4, 1841 - March 4, 1845           John Tyler
March 4, 1845 - March 4, 1849           James K. Polk
March 4, 1849 - July 9, 1850            Zachary Taylor
July 9, 1850 - March 4, 1853            Millard Fillmore
March 4, 1853 - March 4, 1857           Franklin Pierce
March 4, 1857 - March 4, 1861           James Buchanan
March 4, 1861 - April 15, 1865          Abraham Lincoln
April 15, 1865 - March 4, 1869          Andrew Johnson
March 4, 1869 - March 4, 1877           Ulysses S. Grant
March 4, 1877 - March 4, 1881           Rutherford B. Hayes
March 4, 1881 - September 19, 1881      James A. Garfield
September 19, 1881 - March 4, 1885      Chester A. Arthur
March 4, 1885 - March 4, 1889           Grover Cleveland
March 4, 1889 - March 4, 1893           Benjamin Harrison
March 4, 1893 - March 4, 1897           Grover Cleveland
March 4, 1897 - September 14, 1901      William McKinley
September 14, 1901 - March 4, 1909      Theodore Roosevelt
March 4, 1909 - March 4, 1913           William Howard Taft
March 4, 1913 - March 4, 1921           Woodrow Wilson
March 4, 1921 - August 2, 1923          Warren G. Harding
August 2, 1923 - March 4, 1929          Calvin Coolidge
March 4, 1929 - March 4, 1933           Herbert Hoover
March 4, 1933 - April 12, 1945          Franklin D. Roosevelt
April 12, 1945 - January 20, 1953       Harry S. Truman
January 20, 1953 - January 20, 1961     Dwight D. Eisenhower
January 20, 1961 - November 22, 1963    John F. Kennedy
November 22, 1963 - January 20, 1969    Lyndon B. Johnson
January 20, 1969 - August 9, 1974       Richard Nixon
August 9, 1974 - January 20, 1977       Gerald Ford
January 20, 1977 - January 20, 1981     Jimmy Carter
January 20, 1981 - January 20, 1989     Ronald Reagan
January 20, 1989 - January 20, 1993     George H. W. Bush
January 20, 1993 - January 20, 2001     Bill Clinton
January 20, 2001 - January 20, 2009     George W. Bush
January 20, 2009 - January 20, 2017     Barack Obama
January 20, 2017 - Incumbent            Donald Trump

Prezydencja ma obejmować pierwszy dzień, a ostatni wykluczony. Na przykład „4 marca 1861 r. - 15 kwietnia 1865 r .; Abraham Lincoln” oznacza, że ​​Lincoln był prezydentem od 4 marca 1861 r. Do 14 kwietnia 1865 r.

Jest to golf-golf, wygrywa najkrótszy program w każdym języku.

Przykład

Dane wejściowe: „7 lutego 1865 r.” Dane wyjściowe: „Abraham Lincoln”

Kate
źródło
18
Cześć, witamy w CGCC! To wygląda na niezłe wyzwanie, ale wszystkie wyzwania powinny być samodzielne. Zamiast linku do Wikipedii, proszę mieć tutaj listę wszystkich prezydentów i ich okresów (najlepiej w bloku kodu, aby pojawił się pasek przewijania). Ponadto zalecam elastyczny format wejściowy, aby ludzie mogli wprowadzać ciąg znaków w dowolnym formacie, trzy luźne liczby całkowite, obiekt daty itp., Jak uważają za stosowne w wybranym języku.
Kevin Cruijssen
3
Ponadto w przypadku przyszłych wyzwań najlepiej jest najpierw opublikować je w piaskownicy proponowanych wyzwań . Tam możesz uzyskać opinie i ulepszyć wyzwanie, zanim opublikujesz je na głównej. Miłego pobytu! :)
Kevin Cruijssen
11
Jak elastyczny jest format IO?
qwr
15
WolframAlpha["president on "<>#]&Jestem pewien, że czysta Mathematica ma gdzieś wbudowaną wersję, ale dopóki nie znajdę jak to się nazywa, trzymam się W | A.
Pavel
8
@Pavel w takim przypadku powoduje, że WolframAlpha["US president on "<>#]&dla mnie wynik jest nieprawidłowy
jonatjano

Odpowiedzi:

27

PHP , 936 bajtów

for($a=explode('-',gzinflate(base64_decode('dVTRbtswDPwV/YANKXZq+zFJ1wRts3VZtgB7Y2Mm1ipLAO0089+PtNIuHbAnAzySd+RRNkVZ6XxSJUsMdES1g66x/tgHn5iiKnSms+Q+NF7Nami7xJTajLFtE1ro1D0eDkidZJe6itnQYqfWUNsYNsV1OHgKyNHJ9G/rryfr98M7wyT2mfma8KzuYf8SG2Wx0Rqot179AK/mJ0JB8qhpZ52z0KoVehrUCoguEhjP38i2g0OS2PRK1kOqnoJ7kXAk/wn7BrjJFgYXJH2qdaHLZM0UQLW6428bSCaZZmPFHYF/cSzsySLtR+B68PmJG3oQNTdR7eyZoGG1jzx8cCMw1bnJ3wdntVH+TdT03Q1dx62+pWrJZD0jRaTYnPoG6RBY2DzlwQeUPZbmin/GRUAHi66OUGXKZNFg1yMJOKO+OcmgZdzLksIrIwuHr+jAj0VRxhz9L2h50KsFV9n/ii4n9GbNev9gvcMhMZUWDXJIGGrepNqE0EldL1j10dBwlqVv4SCgiWS7EGoKZ8VJo4hqcrkCloVeLWURVPMtC5RpPtxkAe6VhS9CcLY+ogCRaIX0jNQzkQzA8ewfU2/TD/pyccoksoFB/NjSqRVvKz4GY6rk9myPTS9Vn2yHvgnnsSs7L+h4h3epekDvsZZd3GTGTEzyOPg6ePHw3fyKzZeajZWDrNVn+3sMFzlPVPKrJXB8jmy9BIvY37btoBb8TkbWMrJugpfUDcJxlFrGxpd3v0rVLuUr7RqGqjjFnNfPZlovf4OJ1ua64C2b47HRHIifqvryDC1w1EQtfwA=')));$d=$a[+$i++];)date(Ymd,strtotime($argn))>$d?$m=$a[$i++]:die($m);echo'Donald Trump';

Wypróbuj online!


Testy: Wypróbuj online!

Kod do testów jest taka sama logika, ale trochę inaczej zastąpić die(...)z return...tak mogę pętli nad testami.


Stworzyłem ciąg mający datę rozpoczęcia prezydentury minus 1 dzień w formacie YYYYMMDDi nazwisko prezydenta, oddzielone -. Przykład:17890429-George Washington-17970303-John Adams-18010303-Thomas Jefferson-...

Ciąg ten jest kompresowany za pomocą gzdeflate, a także skompresowane dane wyjściowe są konwertowane na base-64, dzięki czemu wszystkie znaki można wydrukować w formacie ASCII i mogę je tutaj zamieścić lub użyć w TIO .

W skrypcie ciąg jest dzielony -i zapętlany. Dla każdej iteracji pętli:

  • $djest ustawiony na bieżącą wartość iteracji (która jest datą rozpoczęcia prezydenta -1 dzień), a zmienna pętli ( $i) jest zwiększana o jeden.
  • Jeśli data wejścia jest większa niż $d, wówczas $mustawiana jest następna wartość iteracji (która jest nazwą prezydenta $d), a zmienna pętli ( $i) jest ponownie zwiększana o jeden. Pozwala to pętli uzyskać nazwiska prezydenta, ale przeskakiwać nad nimi w iteracjach.
  • Jeśli data wprowadzenia nie jest większa niż $d, oznacza to, że poprzednia iteracja była poprawnym prezydentem, więc $mjest drukowana za pomocą diefunkcji, to zatrzyma cały program po wydrukowaniu nazwy.

Na koniec, jeśli pętla jest zakończona (co oznacza, że ​​nie diezostała wywołana), wypisywane jest nazwisko ostatniego prezydenta, ponieważ wiemy, że żaden z poprzednich prezydentów nie ma dopasowania (więc w zasadzie wszystko po nim January 19, 2017) drukuje nazwisko ostatniego prezydenta, nawet jeśli jest January 1, 3999.

Noc 2
źródło
zaoszczędź 20 bajtów, zastępując łańcuch gz ciągiem gist.github.com/007/b40b52da40b454d2196d0a807a6fcfaf
Ryan Moore
Nie znam PHP, ale czy możesz usunąć base64 i wstawić nieprzetworzone znaki niedrukowalne (możesz podać zrzut heksowy).
MilkyWay90
@RyanMoore, dziękuję za lepiej skompresowany ciąg, niestety nie mam już kontroli nad tą odpowiedzią i mój cel, który uzyskał wiele głosów w górę (a także kilka głosów w dół) został z niej usunięty ( w tej wersji ). Więc nie zamierzam już edytować ani grać w golfa tej odpowiedzi, mimo że wciąż istnieją pewne możliwości gry w golfa.
Noc2
@ MilkyWay90, jest to całkowicie możliwe. Ale zamieściłem tę wersję celowo, aby mieć czytelny kod tutaj i linki TIO. Zasadniczo nie była to twarda odpowiedź.
Noc 2
15

Bash , 1229 1124 bajtów

-103 bajtów z doskonałymi komentarzami @ GammaFunction, usuwając kilka nieproduktywnych podstawień (Adams) i zmieniając kod, aby użyć przesunięcia daty od poprzedniej daty zamiast daty bezwzględnej dla każdej prezydentury.

M=(. Ja F Mar Ap May Jun Jul Au S O N D)
A=40000
B=80000
s=son
a=James
c=Andrew
d=William
e=Harri$s
f=Franklin
g=George
h=Grover#Cleveland
i=Roosevelt
j=John
k=#W.#Bush
X="304:$g#Washington
$A:$j#Adams
$B:Thomas#Jeffer$s
$B:$a#Madi$s
$B:$a#Monroe
$A:$j#Quincy#Adams
$B:$c#Jack$s
$A:Martin#Van#Buren
100:$d#Henry#$e
39900:$j#Tyler
$A:$a#K.#Polk
10405:Zachary#Taylor
29595:Millard#Fillmore
$A:$f#Pierce
$A:$a#Buchanan
40111:Abraham#Lincoln
39889:$c#$j$s
$B:Ulysses#S.#Grant
$A:Rutherford#B.#Hayes
615:$a#A.#Garfield
39385:Chester#A.#Arthur
$A:$h
$A:Benjamin#$e
$A:$h
40610:$d#McKinley
79390:Theodore#$i
$A:$d#Howard#Taft
$B:Woodrow#Wilson
20598:Warren#G.#Harding
59402:Calvin#Coolidge
$A:Herbert#Hoover
120108:$f#D.#$i
79708:Harry#S.#Truman
$B:Dwight#D.#Eisenhower
21002:$j#F.#Kennedy
58998:Lyndon#B.#$j$s
50789:Richard#Nixon
29211:Gerald#Ford
$A:Jimmy#Carter
$B:Ronald#Reagan
$A:$g#H.$k
$B:Bill#Clinton
$B:$g$k
$B:Barack#Obama"
T=($1)
D=0${T[1]%,}
for((;;)){ [[ $T =~ ${M[++i]} ]]&&break;}
N=0$i
S=$[${T[2]}-1797]${N: -2}${D: -2}
for z in $X;{ O=$[O+${z%:*}];[ $S -lt $O ]&&z=${z//#/ }&&echo ${z#*:}&&exit;}
echo Donald Trump

Wypróbuj online!

Dużo ręcznej kompresji :)

spuck
źródło
Jeszcze kilka: Pozbądź się X=($X), zapętlając, jak for z in $Xpodzieli X $ na $ IFS. Użyj [ -lt ]i użyj $Tzamiast ${T[0]}. Ostatnie kilka wierszy powinno mieć ogółem 1191 bajtów
funkcja Gamma
1092 ! Uprościłem parsowanie miesiąca (na przykład, jeśli minęliśmy czerwiec, a zaczyna się na J, musi to nastąpić do lipca. Zmieniłem również test na [ ${T#${M[++i]}*} ]. Teraz możemy całkowicie zrezygnować z grudnia). Uwzględniłem także :kilka nazwisk (robiąc to :John, aby :zamiast tworzyć wszystkie ograniczniki #).
GammaFunction
12

T-SQL, 1169 981 979 977 bajtów

Święta krowa, wymyśliłem kompresję ciągów w SQL ( dostępną w SQL 2016 i nowszych ):

SELECT TOP 1 STUFF(value,1,8,'')
FROM d,STRING_SPLIT(
    CAST(DECOMPRESS(CAST('H4sIAAAAAAAEAHVT23LaMBD9FX1AxiMZg+1HIAWGhDaltMz0bYMXrEaWOmsc6r/vrpw27kOHB8ZnL+fs2VWqTa6NKe+DB1epA3XNz7tU61LABRCcXtSnZ2hAQCPgGgNdUB0Tteja+s6U5STmWufU0ll/DZ7BohzlbpJRehG77Ae+PcIFJD+PKra2aXq1BLoiCZjpQhdrJEldBaoYm8XGe3uqgSr10f6KdLOJMal57H0VvFokahtq3w6RSCffapWoB/Qeq57xaVR9f7OX+qruE/XBtujrcIvE2VRnxmyAqFdfkuhKVDmZaP6tCPwLTypl+xBafEV35WhaSnSD9Ix0VZsQXmOzdMJTmCW4Vy5ZhuBsdUHBjaQfmQS9WieK6SrrLxwxkeYYQkXhpo7WDaPo2J8/nYWG+9/EgQOchZt3w2WHGkMVCMeyijIfl+1OD9Y77CUQadYkOnl1kg+ePS6KSLRA/wMa1iw+2CihKKb/KxH+Ylljy6tT80TN6Vp3NES4ZAsNtoKvgc4WndTkUdi+u9ZIZ96uLG4DPbYcm0UJX13ftlzHO1iz6TLNTFaTzX1FeHtfczGLLPNngpqHfLT+FJzg0/ydfdHx0XiI8L+LfLJIJxRc61wXO/ZKvF3xf8N2ciCLer6DnF3PpvcuyHDZ9L39Q6KegnsR1OiMUbm5Q++QBmi8O/TcZeTrJMrc8eGzmm/AN9zxVXBguKk/4/JrHPLTgVcYPnc8bK/mFTRinBkNvAuegqgfLucNhOqNVEdNhzo00Kotns9IMZAPFxO7v7XN+SSy9O/bh7bmS+WX/hut0W9jPwQAAA=='as XML).value('.','varbinary(max)'))AS varchar(max)),',')
WHERE LEFT(value,8)<i

Nie zapisuje zupełnie jak miałem nadzieję, że może, prawdopodobnie ze względu na ilość kodu potrzebnego do konwersji / deconvert.

Oto oryginalna wersja, która jest równoważna kodowi, który działa po dekompresji zakodowanego ciągu (1169 bajtów):

SELECT TOP 1 SUBSTRING(value,9,99)
FROM d,STRING_SPLIT(
    '20170119Donald Trump,20090119Barack Obama,20010119George W. Bush,19930119Bill Clinton,19890119George H. W. Bush,19810119Ronald Reagan,19770119Jimmy Carter,19740808Gerald Ford,19690119Richard Nixon,19631121Lyndon B. Johnson,19610119John F. Kennedy,19530119Dwight D. Eisenhower,19450411Harry S. Truman,19330303Franklin D. Roosevelt,19290303Herbert Hoover,19230801Calvin Coolidge,19210303Warren G. Harding,19130303Woodrow Wilson,19090303William Howard Taft,19010913Theodore Roosevelt,18970303William McKinley,18930303Grover Cleveland,18890303Benjamin Harrison,18850303Grover Cleveland,18810918Chester A. Arthur,18810303James A. Garfield,18770303Rutherford B. Hayes,18690303Ulysses S. Grant,18650414Andrew Johnson,18610303Abraham Lincoln,18570303James Buchanan,18530303Franklin Pierce,18500708Millard Fillmore,18490303Zachary Taylor,18450303James K. Polk,18410403John Tyler,18410303William Henry Harrison,18370303Martin Van Buren,18290303Andrew Jackson,18250303John Quincy Adams,18170303James Monroe,18090303James Madison,18010303Thomas Jefferson,17970303John Adams,17890429George Washington',',')
WHERE LEFT(value,8)<i

Podziały linii służą wyłącznie do odczytu.

dINTiYYYYMMDD

Kilka sztuczek, których użyłem do zapisania bajtów:

  • Posortowałem malejących prezydentów, więc nie musiałem dodawać an ORDER BYdo kodu
  • Odejmowałem 1 w dacie „rozpoczęcia” każdego terminu, więc mogłem użyć <zamiast<=
  • Podział łańcucha jest znacznie krótszy niż duża lista VALUES(), chociaż muszę go następnie rozdzielić za pomocą SUBSTRINGi LEFT.
  • EDYCJA : Zapisano 2 bajty, zmieniając SUBSTRING()naSTUFF()

Korzystanie ze skompresowanych ciągów kodowanych w Base64 w SQL

(Dodano do wątku Porady SQL )

Tak więc Microsoft dodał funkcję COMPRESSa DECOMPRESSw SQL 2016, która obsługuje GZIP; Problem polega na tym, że zwraca a VARBINARY, która chociaż krótsza w bajtach (gdy jest przechowywana w VARBINARYpolu SQL ), jest dłuższa, gdy jest wyświetlana w postaci znaków (surowy hex), co czyni ją nieodpowiednią do gry w golfa.

Konwersja do Base64 jest oczywiście odpowiedzią, ale znalezienie krótkiej, prostej implementacji było wyzwaniem. Oparłem swoją wersję na starej odpowiedzi na SO , która daje nam większość potrzebnych danych, chociaż nie korzysta ona z nowych funkcji GZIP. Po prostu musiałem wstawić nowe funkcje w odpowiednie miejsce i nieco zagrać w golfa.

Aby użyć tej metody we własnym kodzie:

--Run this to generate your compressed string:
DECLARE @s VARCHAR(MAX)='Your really long string goes right here'
SELECT CONVERT(VARCHAR(MAX),(SELECT CONVERT(VARBINARY(MAX),COMPRESS(@s))FOR XML PATH(''),BINARY BASE64))

--Use your compressed string and the following code to get back to the original:
DECLARE @e VARCHAR(MAX)='H4sIAAAAAAAEAIvMLy1SKEpNzMmpVMjJz0tXKC4pygRS6fmpxQpFmekZJQoZqUWpAGGwW5YnAAAA'
SELECT CAST(DECOMPRESS(CAST(@e as XML).value('.','varbinary(max)'))AS varchar(max))

To 75 73 dodatkowych bajtów kodu do dekompresji zakodowanego ciągu, więc wyraźnie używaj go tylko dla bardzo długich ciągów.

EDYCJA : Zapisano 2 bajty w kodzie dekompresji za pomocą CASTzamiast CONVERT.

BradC
źródło
12

Excel, 1243 1206 1180 bajtów

-37 bajtów, odejmując od wszystkich dat
-26 bajtów, bawiąc się wartościami odejmowania

=CHOOSE(MATCH(A1-65^4,{39805,119679,159679,239679,319679,399679,439679,519679,559679,559779,599679,639679,650084,679679,719679,759679,799790,839679,919679,959679,960294,999679,1039679,1079679,1119679,1160289,1239679,1279679,1359679,1380177,1439679,1479679,1599787,1679495,1759495,1780497,1839495,1890184,1919495,1959495,2039495,2079495,2159495,2239495,2319495}),"George Washington","John Adams","Thomas Jefferson","James Madison","James Monroe","John Quincy Adams","Andrew Jackson","Martin Van Buren","William Henry Harrison","John Tyler","James K. Polk","Zachary Taylor","Millard Fillmore","Franklin Pierce","James Buchanan","Abraham Lincoln","Andrew Johnson","Ulysses S. Grant","Rutherford B. Hayes","James A. Garfield","Chester A. Arthur","Grover Cleveland","Benjamin Harrison","Grover Cleveland","William McKinley","Theodore Roosevelt","William Howard Taft","Woodrow Wilson","Warren G. Harding","Calvin Coolidge","Herbert Hoover","Franklin D. Roosevelt","Harry S. Truman","Dwight D. Eisenhower","John F. Kennedy","Lyndon B. Johnson","Richard Nixon","Gerald Ford","Jimmy Carter","Ronald Reagan","George H. W. Bush","Bill Clinton","George W. Bush","Barack Obama","Donald Trump")

Dane wejściowe są w A1formacie komórkowym , YYYYMMDDponieważ Excel nie lubi dat sprzed 1900 r.

Nie znam metody kompresji dla dat lub nazw, które nie dodałyby więcej bajtów. Metoda „odejmij [wartość] od wszystkich dat” może mieć zastosowanie do każdego rozwiązania.


Znalazłem rozwiązanie 1102 bajtów w Arkuszach Google na tej samej zasadzie. Excel nie ma tej Splitfunkcji, więc nie można go przetłumaczyć.

=Index(Split("George Washington,John Adams,Thomas Jefferson,James Madison,James Monroe,John Quincy Adams,Andrew Jackson,Martin Van Buren,William Henry Harrison,John Tyler,James K. Polk,Zachary Taylor,Millard Fillmore,Franklin Pierce,James Buchanan,Abraham Lincoln,Andrew Johnson,Ulysses S. Grant,Rutherford B. Hayes,James A. Garfield,Chester A. Arthur,Grover Cleveland,Benjamin Harrison,Grover Cleveland,William McKinley,Theodore Roosevelt,William Howard Taft,Woodrow Wilson,Warren G. Harding,Calvin Coolidge,Herbert Hoover,Franklin D. Roosevelt,Harry S. Truman,Dwight D. Eisenhower,John F. Kennedy,Lyndon B. Johnson,Richard Nixon,Gerald Ford,Jimmy Carter,Ronald Reagan,George H. W. Bush,Bill Clinton,George W. Bush,Barack Obama,Donald Trump",","),Match(A4-65^4,{39805,119679,159679,239679,319679,399679,439679,519679,559679,559779,599679,639679,650084,679679,719679,759679,799790,839679,919679,959679,960294,999679,1039679,1079679,1119679,1160289,1239679,1279679,1359679,1380177,1439679,1479679,1599787,1679495,1759495,1780497,1839495,1890184,1919495,1959495,2039495,2079495,2159495,2239495,2319495}))
Inżynier Toast
źródło
2
Nie znam zbyt dobrze Excela (a mój lokalny Excel jest holenderski, więc nie mogę zweryfikować), ale czy to prawda? Czy to nie szuka dokładnego dopasowania zamiast dopasowania niższego niż dla dat? Czy to wyjdzie cokolwiek, powiedzmy 19000101?
Kevin Cruijssen
3
@ KevinCruijssen Nope, MATCH()ma opcjonalny trzeci argument match_type, który określa, czy użyć dopasowania ścisłego. Wykluczenie tego argumentu powoduje użycie wartości domyślnej, która jest dopasowaniem „mniejszym lub równym”, więc ten kod jest poprawny.
BradC
@BradC Ah, nie wiedziałem o tym. Dzięki za wyjaśnienie! +1 ode mnie :)
Kevin Cruijssen
1
Fajna sztuczka polegająca na odejmowaniu od siebie stałej wartości, muszę sprawdzić, czy to pomaga moje.
BradC
9

05AB1E , 587 584 568 bajtów

.•6}©ß þz∊‘Îнúj7a>º ·,$_+šüÑßu?PδIëàá©ā.ǝ/¬j«Ížr‹þVwô¨"¶&ˆ₃ǝαh^¼ì∞öîNÊÌ.ÚáýиÇ÷©Mèé…—¾…тŒ¹/ÈÂÓŒš/«ª³PÉÇJúΓÁ¦';X·₅ï»/„q<ƶÚÙÊtÔιuš2βƒ¼ï\~ö…3ihD·¢ðΘmζ8É9Ïγ=^$¨Ä₆ËÂÊPv5+}þ¯ÑX4hÖdÀÒuàнº₁›ǝΘ³P@¥ùnðT“É)ó_“:Èx³«äƒæ¤∞Wgþ¶š}ô|ićcÁ‘.·ƒp>Z¬Aéγê‰ù‰¥Ó₃#/›pÐT¹Â¹J3—ΛΓkÙ»(áÌ›₃z@ìqW›Â"™raÒ›₂%ïx{
_Ωb≠¹₁ľÊÌ›}çºô|ôëKÝǝÚï,‚£=A©áāY∊~"KøVóΓyΛJÚΘ·ˆUΩ₂TнîëнÐQнĆ!!¶%Ý₃ó¸ß0ûиî€AvÙ∍Õ
'«₂θSè‡H¿ÏLôǝāqaмÑIƶ%ŸSdUbåÐÉιδJ¯4₆>θçàƶñwC¨OVÀàczdRæs?5ʒP8“ƒÍÜðαŸÝf,ƒη,™`ÿeиäƵθC≠ýzX‡)и∞úø+þćÎÌвĆ挱ðí1•™„qz„K.‡„  ¡•gpöz&»XZ1rć¾{¦¯Û¿p~Θø•Ƶaв₄R«•e½òœu#ÈĆÔFƵ•Ƶ`вŽcƵ«•9…åœòFýLÂ]FÜÔĀ=Ƶ®5¿ùK»Ωм••Rwg•в««•1L₄Æ•+I‹Oè

Dane wejściowe są połączoną datą w formacie yyyyMMdd(tj 20190821. 21 sierpnia 2019 r.).

-16 bajtów dzięki @Grimy .

Wypróbuj online lub sprawdź kilka innych przypadków testowych .

Wyjaśnienie:

Zaczynamy od utworzenia listy prezydentów w kolejności chronologicznej:

.•6}©...ðí1            # Push compressed string "george washington  john adams  thomas jefferson  james madison  james monroe  john quincy adams  andrew jackson  martin van buren  william henry harrison  john tyler  james kz polk  zachary taylor  millard fillmore  franklin pierce  james buchanan  abraham lincoln  andrew johnson  ulysses sz grant  rutherford bz hayes  james az garfield  chester az arthur  grover cleveland  benjamin harrison  grover cleveland  william mcqinley  theodore roosevelt  william howard taft  woodrow wilson  warren gz harding  calvin coolidge  herbert hoover  franklin dz roosevelt  harry sz truman  dwight dz eisenhower  john fz kennedy  lyndon bz johnson  richard nixon  gerald ford  jimmy carter  ronald reagan  george hz wz bush  bill clinton  george wz bush  barack obama  donald trump"
                       # Titlecase each word in the string
qzK.‡                 # Replace all lowercase "q" with "K" (for McKinley),
                        # and all lowercase "z" with "."
                        # (only lowercase letters and spaces can be compressed as string)
  ¡                    # Split the string on "  " (two spaces)

Następnie tworzymy listę wszystkich dat jako liczb całkowitych w formacie yyyyMMdd(kolejność nie ma znaczenia dla tej listy):

gpözXZ1rć¾{¦¯Û¿p~Θø• # Push compressed integer 57036763189461803778321913240836786322696217070172
  Ƶa                    # Push compressed integer 137
    в                   # Convert the large integer to base-137 as list:
                        #  [4,12,20,28,32,40,44,48,52,56,60,64,72,80,84,88,92,96,100,112,116,124,132,136]
     R                 # Push 1000, and reverse it to "0001"
       «                # And concat it to each item:
                        #  [40001,120001,200001,280001,320001,400001,440001,480001,520001,560001,600001,640001,720001,800001,840001,880001,920001,960001,1000001,1120001,1160001,1240001,1320001,1360001]
                        # (this is for all the March 4th dates)
e½òœu#ÈĆÔFƵ•           # Push compressed integer 47362342587646909879438102
  Ƶ`                    # Push compressed integer 223
    в                   # Convert the large integer to base-223 as list:
                        #  [155,163,171,179,183,191,195,203,211,219,222]
     ŽcƵ                # Push compressed integer 9817
        «               # And concat it to each item:
                        #  [1559817,1639817,1719817,1799817,1839817,1919817,1959817,2039817,2119817,2199817,2229817]
                        # (this is for all the January 20th dates)
1厨£ÆÊÂç-iYúΛȾEW½Ω≠tW
                        # Push compressed integer 42494608868313599134973321717434089414197466371857150907
  Rwg                 # Push compressed integer 1770507
       в                # Convert the large integer to base-1770507 as list:
                        #  [440101,530406,680112,840616,1040611,1260499,1480109,1660819,1770506]
                        # (these are the remaining dates; i.e. those who died earlier)
««                      # Merge the three lists together:
                        #  [40001,120001,200001,280001,320001,400001,440001,480001,520001,560001,600001,640001,720001,800001,840001,880001,920001,960001,1000001,1120001,1160001,1240001,1320001,1360001,1559817,1639817,1719817,1799817,1839817,1919817,1959817,2039817,2119817,2199817,2229817,440101,530406,680112,840616,1040611,1260499,1480109,1660819,1770506]
  1L₄Æ•                # Push compressed integer 17970302
        +               # Add it to each item in the list:
                        #  [18010303,18090303,18170303,18250303,18290303,18370303,18410303,18450303,18490303,18530303,18570303,18610303,18690303,18770303,18810303,18850303,18890303,18930303,18970303,19090303,19130303,19210303,19290303,19330303,19530119,19610119,19690119,19770119,19810119,19890119,19930119,20010119,20090119,20170119,20200119,18410403,18500708,18650414,18810918,19010913,19230801,19450411,19631121,19740808]

Następnie używamy danych wejściowych do określenia wyjściowego nazwiska prezesa na podstawie dat z listy:

I                      # Check for each value in the integer-list if the Input is smaller
                        # (1 if truthy; 0 if falsey)
  O                     # Sum these to get the amount of truthy values
   è                    # And use that to (0-based) index into the president-names list
                        # (after which the result is output implicitly)

Zobacz tę końcówkę 05AB1E kopalni (sekcje Jak kompresować strun nie jest częścią słownika? , Jak skompresować dużych liczb całkowitych? I Jak kompresować list całkowitych? ) , Aby zrozumieć, jak działają wszystkie skompresowane łańcuchowe, całkowite i listy.

Kevin Cruijssen
źródło
1
@Grimy Naprawdę nie mogłem go skopiować, więc musiałem sam go skompresować po tym, jak zobaczyłem, co zrobiłeś. Sprawdziłem nazwisko każdego prezydenta i wszystkie listy zostały zabrane. Ale fajny sposób na zaoszczędzenie bajtów poprzez najpierw dodawanie tytułów, a następnie użycie małych liter, których już nie ma, aby przekonwertować na kropki i wielkie litery. Dzięki za -16!
Kevin Cruijssen
Wiele z tych nazw to słowa słownikowe, co prowadzi do dużych ulepszeń. Na początek oto -32
Grimmy
1
@Grimy Może spróbuje tego podejścia gdzieś w przyszłym tygodniu. Obecnie mam zamiar zjeść, a jutro jestem zbyt zajęty pracą z powodu terminu.
Kevin Cruijssen
1
464 . Nadal można to poprawić, ale nie sądzę, że może pokonać 426 Jelly . Ich kompresja strun jest po prostu lepsza.
Grimmy
7

Galaretka ,  431 428 427  426 bajtów

“¡Ẹị’ḃ4ż“ƓĠƒƝƊ!ɓa(‘ḅ⁹
“FQIȥ’ḃ8Ėẋ/€<8ż¢F1,303yo119
“f×Ð<Mk7LqƇ%_¡¤cċ⁴ẏ’Do13’⁽¤.;Äż¢ḅȷ4<VSị“¡ṀÑṅyȮÇæjRṂ~ɠƥ⁺'Ḃġ"Ƈ~Ị'9ƒȮṃ$ḶPȯṅṡḊl¥JƊ€ẊḥSṣọwɦṡ5ėṂU #Fɲẓ÷iḄþ%~%ñçŒfƒƙɼ=ɓ⁼¡⁻Q`⁵¡ḍ36)żȥÑR\ḋ⁾ḶƤ0ÞṘḳ÷¦IṂ\}ƊĊÐḳŻƈɦ!zɠ⁺ƈṖṭW⁸ƥṛU|ḄØ^ẓfḂḣƈCȦ8ɱḤH⁵AKṢzȯỵƭḊ:TʠƬ/~ƝÑȥgṖ(ṁȯDƲṫỴftlBOȧ6Ụiṃıẉ_ƈvh5ṄUɓạẓDẠẸıṣƥ"bçȥ¿çOġQẹİẊẸs*⁶ż,Ḍg®ƲW×ɗ,ẏ¡Ḅ5M5)ṀạƈCṛʂẎŒƬwġ⁶NẠṆRƇsẊ<fŀȯ⁵øȤ\⁾.>ḋTṖĠUṇŻṬTṖræ_TçṡȤOʠƥðȦe]ƈ⁵cṆWƭƲ>`½n¿O¡ṭOþV¤ṡẊ²rdS€ė)ƘIÆ&ṙḞ¬5[pṁȥLṘVỴɠ»ḲṚƑ”.ẋṭƲ€KỴ¤

Pełny program akceptujący ciąg, YYYYMMDDktóry wypisuje nazwisko prezydenta.

Wypróbuj online! Lub zobacz pakiet testowy (Kevina Cruijssena).

W jaki sposób?

“¡Ẹị’ḃ4ż“...‘ḅ⁹ - Link 1, getNonStandardEndMonthDays: no arguments
“¡Ẹị’           - base 250 literal       = 106467
     ḃ4         - to bijective base 4    = [1,2,1,3,3,3,1,4,3]
        “...‘   - code-page indices      = [147,196,158,150,145,33,155,97,40]
       ż        - zip together           = [[1,147],[2,196],...,[3,40]]
              ⁹ - built-in literal       = 256
             ḅ  - from base (vectorises) = [403,708,414,918,913,801,411,1121,808]

“FQIȥ’ḃ8Ėẋ/€<8ż¢F1,303yo119 - Link 2, getEndMonthDays: no arguments
“FQIȥ’                      - base 250 literal    = 1114518671
      ḃ8                    - to bijective base 8 = [8,2,3,3,4,3,2,2,1,7]
        Ė                   - enumerate           = [[1,8],[2,2],[3,3],[4,3],[5,4],[6,3],[7,2],[8,2],[9,1],[10,7]]
           €                - for each:
          /                 -   reduce with: 
         ẋ                  -     repeat          = [[1,1,1,1,1,1,1,1],[2,2],[3,3,3],[4,4,4],[5,5,5,5],[6,6,6],[7,7],[8,8],9,[10,10,10,10,10,10,10]]
            <8              - less than 8?        = [[1,1,1,1,1,1,1,1],[1,1],[1,1,1],[1,1,1],[1,1,1,1],[1,1,1],[1,1],[0,0],0,[0,0,0,0,0,0,0]]
               ¢            - call last Link (1)  = [403,708,414,918,913,801,411,1121,808]
              ż             - zip together        = [[[1,1,1,1,1,1,1,1],403],[[1,1],708],[[1,1,1],414],[[1,1,1],918],[[1,1,1,1],913],[[1,1,1],801],[[1,1],411],[[0,0],1121],[0,808],[0,0,0,0,0,0,0]]
                F           - flatten             = [1,1,1,1,1,1,1,1,403,1,1,708,1,1,1,414,1,1,1,918,1,1,1,1,913,1,1,1,801,1,1,411,0,0,1121,0,808,0,0,0,0,0,0,0]
                 1,303      - pair literal        = [1,303]
                      y     - translate           = [303,303,303,303,303,303,303,303,403,303,303,708,303,303,303,414,303,303,303,918,303,303,303,303,913,303,303,303,801,303,303,411,0,0,1121,0,808,0,0,0,0,0,0,0]
                        119 - literal             = 119
                     o      - logical OR          = [303,303,303,303,303,303,303,303,403,303,303,708,303,303,303,414,303,303,303,918,303,303,303,303,913,303,303,303,801,303,303,411,119,119,1121,119,808,119,119,119,119,119,119,119]

“...’Do13’⁽¤.;Äż¢ḅȷ4<VSị“...»ḲṚƑ”.ẋṭƲ€KỴ¤ - Main Link: list of characters, X
“...’                                     - base 250 literal    = 5999595155245555951555559593750993764595999
     D                                    - to base 10          = [5,9,9,9,5,9,5,1,5,5,2,4,5,5,5,5,9,5,1,5,5,5,5,5,9,5,9,3,7,5,0,9,9,3,7,6,4,5,9,5,9,9,9]
       13                                 - literal             = 13
      o                                   - logical OR          = [5,9,9,9,5,9,5,1,5,5,2,4,5,5,5,5,9,5,1,5,5,5,5,5,9,5,9,3,7,5,13,9,9,3,7,6,4,5,9,5,9,9,9]
         ’                                - decrement           = [4,8,8,8,4,8,4,0,4,4,1,3,4,4,4,4,8,4,0,4,4,4,4,4,8,4,8,2,6,4,12,8,8,2,6,5,3,4,8,4,8,8,8]
          ⁽¤.                             - literal             = 1797
             ;                            - concatenate         = [1797,4,8,8,8,4,8,4,0,4,4,1,3,4,4,4,4,8,4,0,4,4,4,4,4,8,4,8,2,6,4,12,8,8,2,6,5,3,4,8,4,8,8,8]
              Ä                           - cumulative sums     = [1797,1801,1809,1817,1825,1829,1837,1841,1841,1845,1849,1850,1853,1857,1861,1865,1869,1877,1881,1881,1885,1889,1893,1897,1901,1909,1913,1921,1923,1929,1933,1945,1953,1961,1963,1969,1974,1977,1981,1989,1993,2001,2009,2017]
                ¢                         - call last Link (2)  = [303,303,303,303,303,303,303,303,403,303,303,708,303,303,303,414,303,303,303,918,303,303,303,303,913,303,303,303,801,303,303,411,119,119,1121,119,808,119,119,119,119,119,119,119]
               ż                          - zip together        = [[1797,303],[1801,303],[1809,303],[1817,303],[1825,303],[1829,303],[1837,303],[1841,303],[1841,403],[1845,303],[1849,303],[1850,708],[1853,303],[1857,303],[1861,303],[1865,414],[1869,303],[1877,303],[1881,303],[1881,918],[1885,303],[1889,303],[1893,303],[1897,303],[1901,913],[1909,303],[1913,303],[1921,303],[1923,801],[1929,303],[1933,303],[1945,411],[1953,119],[1961,119],[1963,1121],[1969,119],[1974,808],[1977,119],[1981,119],[1989,119],[1993,119],[2001,119],[2009,119],[2017,119]]
                  ȷ4                      - literal 10^4        = 10000
                 ḅ                        - from base           = [17970303,18010303,18090303,18170303,18250303,18290303,18370303,18410303,18410403,18450303,18490303,18500708,18530303,18570303,18610303,18650414,18690303,18770303,18810303,18810918,18850303,18890303,18930303,18970303,19010913,19090303,19130303,19210303,19230801,19290303,19330303,19450411,19530119,19610119,19631121,19690119,19740808,19770119,19810119,19890119,19930119,20010119,20090119,20170119]
                     V                    - evaluate (X)        (i.e. X -> YYYYMMDD)
                    <                     - less than? (vectorises)
                      S                   - sum                 (a number between 0 and 44 inclusive)
                                        ¤ - nilad followed by link(s) as a nilad:
                        “...»             -   compression of dictionary words and strings
                             Ḳ            -   split at spaces
                                     €    -   for each (part):
                                    Ʋ     -     last four links as a monad:
                               Ƒ          -        invariant under?:
                              Ṛ           -          reverse (true for initials only)
                                ”.        -        literal = '.'
                                  ẋ       -        repeat
                                   ṭ      -        tack (the part - e.g. [['A'],'.'])
                                      K   -   join (back up) with spaces
                                       Ỵ  -   split at newline characters
                       ị                  - index into (that list) (1-indexed & modular)
                                          - implicit (smashing) print
Jonathan Allan
źródło
Plus jeden ode mnie. To wygląda niesamowicie
MilkyWay90
Dzięki! Zajęło mi to sporo czasu.
Jonathan Allan
5

Galaretka , 454 bajtów

“¡#<Ḷ“¡D{“ß“®“c“ƒⱮ“¡“(Ȥ“u^“£“ɠn“ƒ⁺“¥“¢r“ƈ⁶“©“ƙm“¡B⁻“¤“Pẋ“ḣ¢“¡“¡ẓk“¡CẆ“¢“S¢“ėẋ“ṄỴ“t<“Œ“¦’ḃ2$¹<?€ȷ2F4ȷ4,8ȷ4ĖF¤yÄ<⁸TṪị“€`ɲ×ƥF7ȯẒ⁼ẈẎu⁻ɠṇẠẈƊ⁻QḲỌ ỊƭʠµḢƊCṾr⁻=ßạḌ`^ḌX§®tṭN£jx,ƈ=suĖɼ_ḍf9*ÆṙỊṪṄ Jʋ ȯṡẉ ỌẏⱮøÞ⁴xḤżḅñ£ṡṭʂMṚ¶ṇwıƲṁEnÄ`:®ƥʂ_xd⁶ŒĖṁƙƝg°ṂʠkṫhO5Ịḅḳ³'ø⁵aẏṄKḂẆZØ4JḌþḂ⁸⁸XlIVḤOḲØṢÐ!}?Ọ°ḲẆiḢAr`ġƘ⁸ḷ[¿T§ẓ⁵|ḍdɓ^ṭƲfỴĖġJw(Ȯ:⁺k=£ŀnṗ*'hẹḋŻZOLæزẋ⁼ẏ&ı6ḣṗẈƥ¡:9D¢=G§⁴eỤ6wẈ6ṗw6⁺zOẉ}OṆƲdṃ'ıẠ£¤þ4¢1ȷfɓ.ṪpṀ⁴Ṡtṁ⁷ẇlŒ!ṠyaṪ66xvḍgġ¤goḍRẒ³żẎịṣ6ĿⱮ}ḲkƒiL²?Ḃ¿ḥƝ¤dėḤ½Ṗ,cRÐþɼ©ṢƈḅṬḊṬɠṅÞ»Ỵ¤

Wypróbuj online!

Monadyczny link przyjmuje jako argument datę w formacie RRRRMMDD i zwraca ciąg z odpowiedzią.

Przypadki testowe (zapożyczone z odpowiedzi 05AB1E @ KevinCruijssen ).

Nick Kennedy
źródło
4

JavaScript (Node.js) ,  855 851  803 bajtów

d=>(g=i=>(p+=parseInt((a=(require('zlib').inflateRawSync(Buffer("ZVJtct0gDLwKB1A9dSaTtGfoKWSQDc+AXgS2S09f8T6cdPqDsc2utKuVv411jTC6FV4EzzO6eD53GG26vc0Wtp+3t9uhjkwn7+0dxnf6hPu5JHiJP8524mHcr7fPV3yDF+Z79XcL48em2ASy/yP+1dRCLAuZA4sPeamc4cI+G3SYClTPCYu50DyTlI5homISuvDli7Mw3cs+tpBte1RjdkKHuaBdOzuh1JDNjtlMm1CGI8QYMBlPWZrxKHLv2hvVFkkeAutgrhxX+INWSc1UbJEFkpajODPrM7EQzIJ5jSpxDSSWHtXTplUZM+Ak6FVOGZZjPu2pXJfdYitF+WUwizaqIFv1JDOrxDSovUbl0RKVgjIHig6sp1JJ+p3O5zeBRXjXCxtpp6giMFHWOvV1jvgf5RlFsr9CjtQ0eWKnQxlhLp1VP+Pio49dcdY7Zid8GMV6XwU0WLN0u+J0n2Ax7qpsmWNwC4FONJFUbdIdfEbmhi9K3WfrQVTZkibnjrD42jkUCmU10HfT1zQPZqWcyTWILTvOPapnohL6vpzJ4XefmQSjbkvzhEtIqRmrgWkj4dwBIVwwP/9HP5hj0N0VD5POrVGFXPmETwxF/y7DEyYEd2/UTV//Ag","base64"))+"").split`,`)[i],32))<new Date(d)/864e5?g(i+1):a[i+44].replace(/\b./g,c=>c.toUpperCase()))(p=0)

Wypróbuj online!

W jaki sposób?

Skompresowany ciąg zawiera listę 89 wartości.

Pierwsze 44 wartości to długość mandatów prezydenta wyrażona w liczbie dni i zakodowana w bazie 32 (która jest bazą, która najlepiej się kompresuje).

Kolejne 45 wartości to nazwiska prezydenta pisane małymi literami. Następnie stosuje się przypadek tytułu (sztuczka zapożyczona z odpowiedzi @ KevinCruijssen ).

Arnauld
źródło
Ze względu na tytuł, McKinley wyświetla jako „Mckinley”.
TheJim01
@ TheJim01 Dziękujemy za zgłoszenie tego. Teraz naprawione.
Arnauld
3

SOGL , 475 bajtów

⁵æ“DƧ▓«ļ¶↕Q∫<⅔∑+fQyΛ‼Bī:׀═&Sf',№═׀ΔΥκ\κΗδ=6oΡΠω«i℮ī K }½6YΨδ~░pTø№ŗ◄&Λθ▒“Æš“─{1α:C'⁰%+:"⅞“*c'⁰÷+dr"⅞“*b'«*e++>?al"t!■u↔R⅝Θνj╤←⁵κP׀λc⅜-Gc⁸׀!┐)└█5¦@T¬[@∫↕‛ρ℮↑δŗιf√³I2~Δ▓η¤⁴b¡νθ@36⅛Π└Ξ±Ƨ⅜⅓mwθ:∫^⌠≥-N\T‛V;r□τθ⁹;C{¾lΠƨUΒΡ║⁸Κ≤øΔ°?U┼S→iļ┐Kπzz∑Θ⅛%τ`ωΗ2D≡ψ_;OR⁴w≡1Z⅓ēυ%─ž′ιVJοUζķπd└≈³ΘΟ‚GR2┌═NΒθ↔T²νsσ□lQMæν÷¦Π±°≡═øΡTe¼ž⁰λ_►○³1≡№╚█λΜβΤ½<Π±Cļ¬└⁴┘čgr⁰⁄▲8|}⁸ē4№╤#√⅔d?÷≥}▼eī┼^ƧX‽>≥▼k ¹Wļm║⌠¦→┘C׀ψΠ¼⁽tΠ↔:φbεļ▓Β√⁷->→⅜O∑░=`ξε↕ņ⅛╚πBπσ§T׀ķīT:‽4;%≥═pP¶G→○▼φβjτ9v⁄6Υ◄⁹¤{τ/∑a⁰}┐⁵e¬č‘ūƧkiƧKiŗƧ, Θw←

Wypróbuj tutaj!

Logikę daty można prawdopodobnie nieco poprawić.

dzaima
źródło
3

PHP , 888 bajtów

$_=0;$l=explode('|',gzinflate(substr($a=base64_decode('AAALMQW0C2oLagtqBbULagW1AB8FlgW1AewDyQW1BbUF3wWLC2oFtQDHBO4FtQW1BbUGdgqoBbULagNxB/kFtRFGCxgLagQMB14H6wN/BbULagW1C2oLagtqZVLtjtpADHyVfYK8Ax8FBEd7pWmR+s9kTXbLxq68CXSlffjaheNO6q8o6/HMeOw1svTojpBDpH5kqlsO5GYehlzbwANkt8XzGSVbDQbMbg8+fvhjEsZ729cpUlce3TPygje3he5i6D3IGMn9AHLzSZDqMaYUYXAbJCluAyJ3ViNqS0J5COwa98rpUn9CF0CRLZTEUvfaDuLdSr8DC9aVAF2SSrxGlA4f3fNJuwiozk4CQeVe1CInetpTOZP9nkrOiv/WuLUSjfUwjQHlzCoxb9RewfygnCkE5Bwx+boImEcUe5vJGCapa+GrPiwSXjEB+TpH+gWD+nqO+B/kLYp9t4uUsGjyyF6HcgfmbKjxPS6+2dgtnPWN2QvfnNaM96gCSG5tdsXrPusC0lWVF8wp+h7rBuWEMiqJOXiPbNl8UDKfxYJoZRo0ueUt9mE0zKeYkQLfbDe2plXjdkiEvtSXQp7JonpL9BBtX959jn9sZhRIui3Ns27jMBS30INQogOTFQ4IPRjs3z1uGndsdHc51LnOrVFFGvlZftZA9LrclxMMUJd3IjP9+y8='),90)));foreach(str_split(substr($a,0,90),2)as$i=>$d)(strtotime($argn)+5701449600)/86400<($_+=hexdec(bin2hex($d)))&&@die($l[$i-1]);echo end($l);

WYPRÓBUJ DEMO

Chandra Nakka
źródło
3

05AB1E , 464 444 442 418 bajtów

-15 bajtów, kradnąc pomysły z odpowiedzi Kevina Cruijssena

Przekreślony 444 to wciąż 444):

.•J@λ
A∞‚XÃUδ„«›Æx…ΔΣ¸ÃEÛö›³;Î!¦ǝzŽ`²œ∊ïøÞ‰Cf4₆и)Kuм¹5®‹м£Ž}мNPõüïí
^ā-Ǩåˆ[Ü_5δ³ÂBмzIΣŠÒÅÆè"²0¢₆'$Ćùù»õJ´õý¢ºн³õ?ëØ؆Dǝç.r˜èÌ•ć¡`“ŒÕ‡¹„б·Ž²¿É‰Þ³×‰Þ̯„Ðëìncy±·¢Œžˆ–ÄîèÿíÈ£ÎÈœ„ÐÕÀ‰Þ kz™éÿ¥•¹êardœãÿ²ÀâÓ‰Þÿ㳫ƢŒš•ÿ—§Î¶ÿ橉ޖÖÿל–Ö·Š¶‹r¯ŽÇÕÈœ¶‹r¯ŽíÈÿíÈ©Æ»äft–œrow¦‹¼‰ gz†èingãŸîÁÿ²Àÿ„Ð fz½¸ÿš••Öÿéï™»»É»‰ÖŠÿŒÕÕ¹ wzŒ›‰ŽµÍŒÕ wzŒ›‹²ÿ¹Ñÿ“™„qz„K.‡#•¥ü„¨%¨₃Ó8•3в4α£ðý•9ÕS&µç©•3в±žD*•¾¹iìzÓ.+,âšÜĀ‘ó₆x.»δ•žHв«9._.¥•U<¶•+I32β‹Oè

Wypróbuj online!

Część 1: nazwy

Istnieją dwa typy kompresji ciągów w 05AB1E:

  • Ciągi Base-27 kodują każdą literę w ~ 0,6 bajta (technicznie: log (27) / log (255)), ale mogą one zawierać tylko [a-z ](małe litery i spacje).
  • Ciągi słownikowe kodują typowe angielskie słowa (plus poprzednia spacja) w 2 bajtach, a wszystkie znaki ASCII w 1 bajcie każdy (są one po prostu przekazywane przez niezmodyfikowane). Mogą również użyć bajtu ÿ, aby pobrać wartość ze stosu i osadzić ją w ciągu.

Użyjemy optymalnej kombinacji obu. Ponieważ przełączanie z jednego kodowania na drugie pociąga za sobą pewien narzut, jest to bardziej skomplikowane niż wybranie najkrótszego kodowania dla każdej nazwy. Na przykład:

  • ingW Harding Calvinodbywa ~ 1,8 bajtów bazowego 27 vs 3 bajty w słowniku łańcucha. Ale Hardi Calvinoba są w słowniku, więc w rezultacie pozostawiamy ingnieskompresowane wewnątrz ciągu słownika.
  • HerbW Coolidge Herbert Hoovertrwa około 3 bajty w 27-podstawy vs tylko 2 w słowniku łańcucha (ponieważ herbznajduje się w słowniku). Ale ani Coolidgenie Hooverma go w słowniku, więc ostatecznie kodujemy Herbjako base-27.

Aby obejść ograniczenie, które mogą zawierać tylko łańcuchy base-27 [a-z ], przypisujemy specjalne znaczenie niektórym literom. Pomiędzy nimi 44 prezydentów zużywa wszystkie 26 liter, ale nadal możemy grać w sztuczki:

  • Jedynymi js są w słowniku wyrazów ( James, Benjamin...), więc jjest dostępny bezpłatnie dla base-27 strun.
  • Jedyne qjest Quincy, więc małe litery qsą bezpłatne
  • Jedyne zjest Zachary, więc małe litery zsą bezpłatne
  • Jedyne xjest Nixonwłączone, więc wielkie litery Xsą darmowe (tak naprawdę nie korzystamy z tego)

Powiedziawszy to, spójrzmy na kod.

.•J@λ
A∞‚XÃUδ„«›Æx…ΔΣ¸ÃEÛö›³;Î!¦ǝzŽ`²œ∊ïøÞ‰Cf4₆и)Kuм¹5®‹м£Ž}мNPõüïí
^ā-Ǩåˆ[Ü_5δ³ÂBмzIΣŠÒÅÆè"²0¢₆'$Ćùù»õJ´õý¢ºн³õ?ëØ؆Dǝç.r˜èÌ•

# (The newlines are significant.) This is the base-27 string:
# "j trumpjack obamaj reaganj nixonj lyndon bzj dz roosevelt harry sz truman dwight dz eisenhowerjidge herbert hooverj mcqinley theodore rooseveltj garfieldjerford bzj ulysses szj buchananjmorejlk zacharyj buren"

ć    # extract the first character
 ¡   # split the rest on that character (a "j")
  `  # dump the list on the stack
# We now have " buren" at the top of the stack, and " trump" at the bottom.

“ŒÕ‡¹„б·Ž²¿É‰Þ³×‰Þ̯„Ðëìncy±·¢Œžˆ–ÄîèÿíÈ£ÎÈœ„ÐÕÀ‰Þ kz™éÿ¥•¹êardœãÿ²ÀâÓ‰Þÿ㳫ƢŒš•ÿ—§Î¶ÿ橉ޖÖÿל–Ö·Š¶‹r¯ŽÇÕÈœ¶‹r¯ŽíÈÿíÈ©Æ»äft–œrow¦‹¼‰ gz†èingãŸîÁÿ²Àÿ„Ð fz½¸ÿš••Öÿéï™»»É»‰ÖŠÿŒÕÕ¹ wzŒ›‰ŽµÍŒÕ wzŒ›‹²ÿ¹Ñÿ“
# Dictionary string. All the values we just dumped on the stack are popped by `ÿ`s in this string. We end up with:
# "george washington john adams thomas jefferson james madison james monroe john quincy adams andrew jackson martin van buren william henry harrison john tyler james kz polk zachary taylor millard fillmore franklin pierce james buchanan abraham lincoln andrew johnson ulysses sz grant rutherford bz hayes james az garfield chester az arthur grover cleveland benjamin harrison grover cleveland william mcqinley theodore roosevelt william howard taft woodrow wilson warren gz harding calvin coolidge herbert hoover franklin dz roosevelt harry sz truman dwight dz eisenhower john fz kennedy lyndon bz johnson richard nixon gerald ford jimmy carter ronald reagan george hz wz bush bill clinton george wz bush barack obama donald trump"

™         # title case
 „qz      # literal "qz"
    „K.   # literal "K."
       ‡  # transliterate (replaces all "q" with "K" and all "z" with "."

# This takes care of two issues at once: title casing would leave McKinley with a lowercase k, and base-27 strings can't contain "."
# We now have a long string, with all the presidents' names in order. We need to split it into 45 strings (one per president).
# We could've used a special marker to delimit the presidents, but it turns out it's more efficient to count the words in each name:

#                  # split on spaces (yes i know i've been using # for comments, but there's no actual comment character in 05AB1E)
 •¥ü„¨%¨₃Ó8•3в     # compressed list 222221211212222221111222221212211111222202122
              4α   # vectorized absolute difference with 4: 222223233232222223333222223232233333222242322
                   # this is the list of the number of words in the presidents' names
                   # (note that "George H. W. Bush" is the only 4-word name, forcing us to use base-3 instead of base-2 for the compressed list, which costs 3 bytes)

£                  # split the list of words according to the list of wordcounts: [["George", "Washington"], ..., ["Donald", "Trump"]]
 ðý                # join each sub-list with spaces

Mamy teraz listę 45 pełnych nazwisk w porządku chronologicznym, więc skończyliśmy z tą częścią.

Część 2: daty

Aby ułatwić porównywanie dat, konwertujemy je na liczby całkowite. Odbywa się to poprzez konwersję z base-32, co daje 1024 * rok + 32 * miesiąc + dzień (i nie przejmuje się tym, że „cyfra” roku jest większa niż 32).

Zaczynamy od listy kolejnych reelekcji (wyborów, które nie zmieniają prezydenta), w odwrotnej kolejności chronologicznej:

•9ÕS&µç©•3в   # compressed list 111010111011020000011000000101110

Te trzy pierwsze 1 odpowiadają Obamie, Bushowi i Clintonowi, którzy zostali ponownie wybrani raz. Samotna 2 odpowiada McKinleyowi i Theodore Rooseveltowi, którzy zostali ponownie wybrani raz (McKinley zmarł na stanowisku, a Theodore Roosevelt był jego wiceprezydentem, więc nie było innych wyborów między ich ponownymi wyborami). Franklin D. Roosevelt + Truman powinien tam mieć 4, ale jest to również punkt, w którym dzień inauguracji zmienił się z 4 marca na 20 stycznia, więc zajmiemy się tym szczególnym przypadkiem później.

±             # bitwise not (equivalently: add 1, then negate): [-2, -2, ..., -1]
 žD*          # multiply by 4096 [-8192, -8192, ..., -4096]

Pamiętaj, że 1024 oznacza rok, więc 4096 oznacza pełny mandat. Jest to teraz lista różnic czasowych między nowo wybranymi prezydentami (wciąż w odwrotnej kolejności chronologicznej, dlatego liczby muszą być ujemne).

Teraz zaopiekujmy się 9 prezydentami, którzy nie pełnili pełnych mandatów (4 zmarło z przyczyn naturalnych, 4 zamordowanych, Nixon zrezygnował):

•¾¹iìzÓ.+,âšÜĀ‘ó₆x.»δ•žHв   # compressed list [45088, 9317, 15270, 16548, 20475, 22484, 22410, 18666, 11155, 43819]

45088 to delta czasowa od 4 marca 1797 r. (Pierwsze wprowadzenie 4 marca) do 4 kwietnia 1841 r. (Pierwsza śmierć na stanowisku). Następujące liczby są deltami czasowymi między 9 zgonów / rezygnacji. Wreszcie 43819 to delta czasowa od 9 sierpnia 1974 r. (Rezygnacja Nixona) do 20 stycznia 2017 r. (Ostatnie wprowadzenie 20 stycznia).

«             # merge the two lists of time deltas
 9._          # rotate left by 9 (the number of January 20 introductions)
    .¥        # undelta
      •U<¶•   # compressed integer 1979491, meaning March 4, 1933 (the last March 4 introduction)
           +  # add to each

Mamy teraz listę wszystkich dat, w których prezydent się zmienił. Kolejność jest nieco funky: zaczyna się w 1933 r., Potem następuje wprowadzenie 4 marca wstecz, potem śmierć / rezygnacja idzie w przód, a następnie wraca wraz z wprowadzeniami 20 stycznia. Jednak kolejność nie ma znaczenia.

I             # get the input date
 32β          # convert from base 32, yielding an integer
    ‹         # vectorized compare with our list, yielding a list of 0/1 booleans
     O        # sum
      è       # use the sum to index into the list of presidents' names
              # implicit output

I skończyliśmy.

Ponury
źródło
1
Och, teraz pokonałeś nawet odpowiedź na galaretkę! Bardzo dobrze. Czekamy na wyjaśnienie.
Kevin Cruijssen
@KevinCruijssen Dodałem wyjaśnienie (:
Grimmy
2

Węgiel drzewny , 550 bajtów

✂⊟Φ⪪”}¶⟲φε"1It↙θ|&s1%⎚÷X2J¦T↶M↙@P≡,7gSC{WTB¿μ;↗AEoU…⁹aⅉ:(↶Þ|‹Cρr]χY↨×⪪…✳μⅉⅈ²]⌈&ρτ“↖s∕↘yⅉ⊘K%QUi&Uρ⦃→↑^_tZ}↙s⪪3#\UZ¶L↥ρ÷Qa.ρE⊞B↘¿⦃{RC⁴βLΦï←⁹″*²⌊∕~L‽∧&;⁵⪪⪪◨sFψ⊗=₂εωb5⎚∧¬Ii»S⟲H⧴⮌⁵↷≕≦-Lκ↗⦃″✂DcgSOE}PΣ℅ξ»u➙ïA⁼×◧⁴Gθkιbσ6�V→↓B⮌⦃]σ0↶L↷'Þ¡σ?αδ⪫4⁶M"‽W◨-n℅O≡o ⊙^fκ{~✳N⦄y⊟≦Kθ!«↘pB;fJ<ιU%D‴▶p|‹⌕ιHpIt‽7}u1~φνL▶⮌;NY✂S>ÞSλ<«⦃¬k⦄J⦃◧‴}v≕﹪φEβ<⁴↘la»�λ⁼.Xξ.th⊕jEχ>m4J'⁺▷αZ↷|D$⸿Sz⪪←fFωρ↓oⅉ⊙⁰vFQ0T⪫?GE▷|℅±P;χ'|x>i↨E◧⁺4M↖‴№⟦Π~‹σ_▷⁵N?6ⅉ |x+\⁺“≡C⟦⁹⁸pC⊕Dïψ?◧⎇ςΠH&]▷≧β↓⧴J<(1←¦6‽GG✂¡58Go…Qψ/§§c↷ZQ\@ςr⁹}TZ?«fPO)⧴\`↘℅⦄&yθ%⪫iλ*fÀ-ⅈ↖→◨⬤F″‖↘→⁹S#″▶Φ∨¬w◧«℅ySq§mCIπF?sⅈP⍘↷≔f‽k↥ABMX﹪”¶‹ιθχ

Wypróbuj online! Link jest do pełnej wersji kodu. Pobiera dane wejściowe w formacie ISO. Wyjaśnienie:

    ”...”       List of decremented dates and presidents
   ⪪     ¶      Split on newlines
  Φ       ‹ιθ   Keep those that precede the input
 ⊟              Take the last
✂            χ  Remove the date
Neil
źródło
2

Stax , 550 509 502 bajtów

ª╠TkªÑTs¬¢‼É▼╠→+╕s☼∩b°┴ò0J Öª◙%µ♪)Çb○Σ²╦àôä√P┼[╫»↓♪─y·:+x/ p~┤☺kèT┤╩☺♀◄╗*DX○e╩+ë%╫↔^║;◙/Θ╛B║K>▌GΣR╥♠╞N┬6dt♥h♪T⌠╥⌠ó←`±ΘÆM:\V►╢◘≥pe½╖→Ea}╚≤╠ΓÜ╗,πUF[╢▄¥¥▒t≥òK"=☺S╟▐ü%û▼98╕→→ñ`eB▌y↨\%Ç│╝û°6R┘K√â°◘RfçMñ♪3╦┤â╞╥┼«╧j/εⁿ○ó▀CäI3┘c▄}═%[C_%jgÿÉJÑS═g(┴`╦%êk9½é╔PT¶◄<║╕à¼╬≤`dεµc╨╔?Z=╧╥RDΓl.┘uFⁿ∟Juö♥,╠╛z¡ÇM7m☺╩?ïPª$πä♂ ╝Jò'æφ▬♠w►○ôr├=é┴╪ù#?∩E↓╣J∩╒░▒○LÑ∞¥╗å▐Ü└ä∙↨l♀╠├d┴Uÿ╩(╔♦)═╦¢αe£/bΦ╜%d$Öä¢M║╖q]¢╝8╨ÖBÿ┼÷{@0╕/#└â╪~V§πp<≡k♫á∩g4üÉà↔DR[√á√ü.îºV'X♥9↔øiè²≈τoæ┴0☻ó╪!‼⌡¼'↔ δ'X⌂■OpX¬E╡░├a"√4lB<└♣A╪º╕4íbz♠ìÿ°Γ═àÅ└5äº5æ2§ΩWª

Uruchom i debuguj go również z testami Kevina Cruijssena

Ten program działa poprawnie, ale jeśli użyjesz narzędzia „Unompress Literals”, spowoduje to uszkodzenie kodu źródłowego. Kończy się to umieszczeniem dwóch literałów całkowitych obok siebie, co czyni jeden większy literał. Oczywiście to nie robi tego samego, co oryginalny program.

rekurencyjny
źródło