Najwyższy ciąg sumy

Podany ciąg wejściowy zwraca słowo z najwyższą sumą każdego ze znaków Unicode.

Zasady

• Dane wejściowe powinny być oddzielone spacjami
• Wartość każdego słowa opiera się na sumie każdego znaku w kodzie UTF-16 słowa
• Wynik powinien być pierwszym słowem o najwyższej wartości (w przypadku zduplikowanych sum)

Przykłady

Input: "a b c d e"
Output: "e"

Input: "hello world"
Output: "world"

Input: "this is a test"
Output: "test"

Input: "àà as a test"
Output: "àà"

Input "α ää"
Output: "α"

Input: "🍬 隣隣隣"
Output: "隣隣隣"

Input: "💀 👻 🤡 🦇 🕷️ 🍬 🎃"
Output: "🕷️"

To jest golf golfowy, więc wygrywa najkrótsza odpowiedź! Powodzenia :)

Galaretka , 7 bajtów

ḲOS$ÐṀḢ

Wypróbuj online!

ḲOS$ÐṀḢ
Ḳ        Split input on spaces
    ÐṀ   Give words that have maximum of:
   $       Monad:
 O           ord(each character)
  S          sum
      Ḣ  First word that gives the max ord-sum.

Perl 6 , 34 bajtów

*.words.max(*.encode('utf16').sum)

Wypróbuj online!

R , 77 69 59 58 56 44 bajtów

Teraz wysiłek grupy.

'^'=mapply
sort(-sum^utf8ToInt^scan(,""))[1]

Wypróbuj online!

Konwertuj na punkty kodowe, sumuj każde słowo, neguj, (stabilnie) sortuj, zwracaj pierwszy element.

Technicznie wartość zwracana to „nazwany wektor”, którego wartością jest suma, a nazwa jest zwycięskim słowem, ale wydaje się, że jest to zgodne z regułami. Jeśli chcesz zwrócić zwycięskie słowo jako ciąg, musisz wydać 7 dodatkowych bajtów i owinąć powyższe names().

05AB1E , 8 bajtów

ð¡RΣÇO}θ

Wypróbuj online!

Wyjaśnienie

ð¡          # split input on spaces
  R         # reverse the resulting list
   Σ  }     # sort by
    ÇO      # sum of character codes
       θ    # take the last

JavaScript (ES6), 81 bajtów

s=>s.split` `.map(m=s=>m=[...s].map(c=>t+=c.charCodeAt(),t=0)&&t<=m?m:(r=s,t))&&r

Wypróbuj online!

jq, 61 43 57 37 znaków

( 57 39 53 33 znaki kod + 4 znaki opcje wiersza poleceń)

./" "|reverse|max_by(explode|add)

Przykładowy przebieg:

bash-4.4$ jq -Rr './" "|reverse|max_by(explode|add)' <<< 'àà as a test'
àà

Wypróbuj online!

Pyth, 8 bajtów

h.MsCMZc

Zestaw testowy

Wiem, że jest już odpowiedź na Pyth, ale wydaje mi się, że to podejście jest zupełnie inne, _{^{a ponadto jest o wiele krótsze}}

h.MsCMZc  | Full code
h.MsCMZcQ | with implicit variables added
----------+------------------------------------
h         | The first element of
       cQ | the input chopped at whitespace
 .M       | with the maximal value for
   s      | the sum of
    CMZ   | the Unicode value of each character

PowerShell , 74 52 bajty

(-split$args|sort{$r=0;$_|% t*y|%{$r+=$_};$r}-u)[-1]

Wypróbuj online!

Dzięki mazzy za aż -22 bajty.

-splits dane wejściowe $argsna białych znakach, potoki, które sortmają określony mechanizm sortowania {...}i -uflagę nique.

Tutaj bierzemy bieżące słowo $_, zmieniając je toCharArra y, a następnie do każdej litery dodajemy je do naszego $result. To zamienia ciąg w liczbę na podstawie jego reprezentacji UTF-16.

Po raz pierwszy program PowerShell mający wszystkie ciągi znaków w tle UTF-16 jest ratunkiem dla życia!

Następnie enkapsulujemy te wyniki w (...)celu przekształcenia ich w tablicę i bierzemy ostatni [-1], tj. Największy wynik, który jest najbliższy początku zdania. Działa to ze względu na -uflagę nique, tzn. Jeśli późniejszy element ma tę samą wartość, jest odrzucany. To słowo pozostawia się w potoku, a dane wyjściowe są niejawne.

Python 3 , 55 52 bajtów

lambda s:max(s.split(),key=lambda w:sum(map(ord,w)))

Wypróbuj online!

• -3 bajty dzięki Gigaflop za wskazanie, że w splitmetodzie nie jest potrzebny żaden argument .

MATLAB, 57 bajtów

s=strsplit(input('','s'));[Y I]=max(cellfun(@sum,s));s(I)

W moim MATLAB R2016a wszystkie testy są zaliczone, z wyjątkiem tego, że emoji nie są poprawnie renderowane. Ale znaki są zwracane poprawnie

Japt -h , 8 bajtów

Podejście @Enigma

¸w ñ_¬xc

Wypróbuj online!

Inne podejście

Japt -g , 8 bajtów

¸ñ@-X¬xc

Wypróbuj online!

Java (JDK) , 117 97 84 bajtów

-13 bajtów dzięki @Nevay. Najwyraźniej nie wiedziałem, że mogę także używać varw Javie.

s->{var b="";for(var a:s.split(" "))b=a.chars().sum()>b.chars().sum()?a:b;return b;}

Wypróbuj online!

Ruby, 45 znaków

->s{s.split.max_by{|w|w.codepoints.reduce:+}}

Przykładowy przebieg:

irb(main):001:0> ->s{s.split.max_by{|w|w.codepoints.reduce:+}}['àà as a test']
=> "àà"

Wypróbuj online!

Ruby 2.4, 40 znaków

->s{s.split.max_by{|w|w.codepoints.sum}}

(Niesprawdzone)

Pyth , 33 bajty

FHmCdmcd)Kczd aYu+GHmCdH0)@KxYeSY

Wypróbuj online!

Jest prawie na pewno lepszy sposób, aby to zrobić, ale wydałem na to zbyt wiele, więc to wystarczy.

FH  #For every array of letters in 
  mCd   #the array of arrays of letters [['w', 'o', 'r', 'l', 'd'], ['h', 'e', 'l', 'l', 'o']]
     mcd)   #wrap that in another array [[hello"], ["world"]]
         Kczd   #split input(z) on spaces ["hello", "world"] and assign it to K for later
              aY     #append to list Y... " " silences the prints from the for loop.
                u+GH    #reduce the list of numbers by summing them    
                    mCdH    #convert each letter in the array to its int counterpart
                        0)    #the zero for the accumulator and close for loop
                          @K    #get by index the word from K
                            xY   #find the index in Y of that number
                              eSY   #sort Y, get the last (largest) number

Przepuściłbym redukcję na inną mapę zamiast korzystać z pętli for, ale nie mogłem tego uruchomić.

Węgiel drzewny , 20 bajtów

≔⪪Ｓ θ≔ＥθΣＥι℅λη§θ⌕η⌈η

Wypróbuj online! Link jest do pełnej wersji kodu. Wyjaśnienie:

≔⪪Ｓ θ

Podziel ciąg wejściowy na spacje i przypisz do q.

≔ＥθΣＥι℅λη

Obliczyć sumę rzędnych znaków w każdym słowie i przypisać do h.

§θ⌕η⌈η

Znajdź indeks najwyższej sumy i wydrukuj słowo pod tym indeksem.

PowerShell, 66 bajtów

Bezpośredni. Zobacz odpowiedź AdmBorkBork , aby znaleźć sprytne użycie PowerShell.

-split$args|%{$s=0
$_|% t*y|%{$s+=$_}
if($s-gt$x){$w=$_;$x=$s}}
$w

Uwaga! Aby poprawić pracę z Unicode, zapisz plik skryptu za pomocą UTF-16lub UTF8 with BOMkodowania.

Skrypt testowy:

$f = {

-split$args|%{$s=0         # split argument strings by whitespaces, for each word
$_|% t*y|%{$s+=$_}         # let $s is sum of unicode char code
if($s-gt$x){$w=$_;$x=$s}}  # if $s greater then previous one, store word and sum to variables
$w                         # return word from stored variable

}

@(
    ,("a b c d e", "e")

    ,("hello world", "world")

    ,("this is a test", "test")

    ,("àà as a test", "àà")

    ,("α ää", "α")

    ,("🍬 隣隣隣", "隣隣隣")

    ,("💀 👻 🤡 🦇 🕷️ 🍬 🎃", "🕷️")
) | % {
    $s,$e=$_
    $r=&$f $s
    "$($r-eq$e): $r"
}

Wynik:

True: e
True: world
True: test
True: àà
True: α
True: 隣隣隣
True: 🕷️