Yüce Sum String

Bir giriş dizesi verildiğinde, unicode karakterlerin her birinin en yüksek toplamına sahip sözcüğü döndürün.

kurallar

• Girdi boşlukla ayrılmalıdır
• Her kelimenin değeri, sözcüğün UTF-16 kodundaki her karakterin toplamına dayanır
• Çıktı en yüksek değere sahip ilk sözcük olmalıdır (yinelenen toplamlar olması durumunda)

Örnekler

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: "🕷️"

Bu kod golf, bu yüzden en kısa cevap kazanır! İyi şanslar :)

Jöle , 7 bayt

ḲOS$ÐṀḢ

Çevrimiçi deneyin!

Ḳ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 bayt

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

Çevrimiçi deneyin!

R , 77 69 59 58 56 44 bayt

Şimdi bir grup çabası.

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

Çevrimiçi deneyin!

Kod noktalarına dönüştürün, her kelimeyi toplayın, negatif, (kararlı) sıralama, ilk öğeyi döndürün.

Teknik olarak dönüş değeri, değeri toplam ve adı kazanan sözcük olan bir "adlandırılmış vektör" dür, ancak bu kurallara uyuyor gibi görünüyor. Kazanan kelimeyi dize olarak döndürmek isterseniz, 7 bayt daha harcamanız ve yukarıdakileri girmeniz gerekir names().

05AB1E , 8 bayt

ð¡RΣÇO}θ

Çevrimiçi deneyin!

açıklama

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

JavaScript (ES6), 81 bayt

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

Çevrimiçi deneyin!

jq, 61 43 57 37 karakter

( 57 39 53 33 karakter kodu + 4 karakter komut satırı seçeneği)

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

Örnek çalışma:

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

Çevrimiçi deneyin!

Pyth, 8 bayt

h.MsCMZc

Test odası

Zaten bir Pyth cevabı olduğunu biliyorum ama bunun oldukça farklı bir yaklaşım kullandığını hissediyorum _{^{ve aynı zamanda daha kısa}}

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 bayt

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

Çevrimiçi deneyin!

Bir boğucu -22 bayt için mazzy için teşekkürler.

-split$argsboşluktaki girdi , sortbelirli bir sıralama mekanizmasıyla birleştirilen borular {...}ve -unike bayrağı.

Burada mevcut kelimeyi alıyoruz , oCharArra'yı $_değiştiriyoruz , o zaman her harf için onu tsonucumuza ekliyoruz. Bu, dizeyi UTF-16 temsilini temel alan bir sayıya dönüştürür.y$r

Bir kez, tüm dizeleri arka planda UTF-16 olan PowerShell hayat kurtarıcı!

Daha sonra, (...)bunları bir diziye dönüştürmek ve sonuncuyu almak için [-1], yani cümlenin başlangıcına en yakın olan en büyük sonucu içine alırız. Bu, -unike bayrağı nedeniyle çalışır , yani aynı değere sahip daha sonraki bir öğe varsa, atılır. Bu kelime ardışık düzende bırakılır ve çıktı örtüktür.

Python 3 , 55 52 bayt

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

Çevrimiçi deneyin!

• Yöntemde hiçbir argümana gerek olmadığına işaret ettiği için Gigaflop sayesinde -3 bayt split.

MATLAB, 57 bayt

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

MATLAB R2016a'mda, emojilerin düzgün bir şekilde işlenmemesi dışında tüm testler geçilir. Ancak karakterler doğru şekilde döndürülür

Japt -h , 8 bayt

@Enigma yaklaşımı

¸w ñ_¬xc

Çevrimiçi deneyin!

Başka bir yaklaşım

Japt -g , 8 bayt

¸ñ@-X¬xc

Çevrimiçi deneyin!

Java (JDK) , 117 97 84 bayt

-13 bayt teşekkürler @Nevay. Görünüşe göre varJava'da da kullanabileceğimi bilmiyordum .

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

Çevrimiçi deneyin!

Ruby, 45 karakter

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

Örnek çalışma:

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

Çevrimiçi deneyin!

Ruby 2.4, 40 karakter

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

(Test edilmemiş).

Pyth , 33 bayt

FHmCdmcd)Kczd aYu+GHmCdH0)@KxYeSY

Çevrimiçi deneyin!

Bunu yapmak için neredeyse kesinlikle daha iyi bir yol var, ama çok fazla harcadım, bu yüzden bu yapacak.

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

For döngüsünü kullanmak yerine başka bir haritaya indirgeme geçirdim, ancak işe yarayamadım.

Kömür , 20 bayt

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

Çevrimiçi deneyin! Bağlantı, kodun ayrıntılı versiyonudur. Açıklama:

≔⪪Ｓ θ

Giriş dizesini boşluklara ayırın ve atayın q.

≔ＥθΣＥι℅λη

Her kelimedeki karakterlerin sıra sayılarının toplamını hesaplayın ve atayın h.

§θ⌕η⌈η

En yüksek toplamın dizinini bulun ve o dizindeki kelimeyi yazdırın.

Powershell, 66 bayt

Basit. Powershell'i akıllıca kullanmak için AdmBorkBork'un cevabına bakın .

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

Not! Unicode ile çalışmayı düzeltmek için komut dosyanızıUTF-16 veya UTF8 with BOMkodlamayla .

Test komut dosyası:

$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"
}

Çıktı:

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