Chuỗi Sum tối cao

Đưa ra một chuỗi đầu vào, trả về từ có tổng cao nhất của mỗi ký tự unicode của nó.

Quy tắc

• Đầu vào phải được ngăn cách bởi khoảng trắng
• Giá trị của mỗi từ dựa trên tổng của từng ký tự trong mã UTF-16 của từ đó
• Đầu ra phải là từ đầu tiên có giá trị cao nhất (trong trường hợp tổng tiền trùng lặp)

Ví dụ

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

Đây là mã golf, vì vậy câu trả lời ngắn nhất sẽ thắng! Chúc may mắn :)

Thạch , 7 byte

ḲOS$ÐṀḢ

Hãy thử trực tuyến!

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

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

Hãy thử trực tuyến!

R , 77 69 59 58 56 44 byte

Một nỗ lực nhóm bây giờ.

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

Hãy thử trực tuyến!

Chuyển đổi thành điểm mã, tổng hợp từng từ, phủ định, sắp xếp (ổn định), trả về phần tử đầu tiên.

Về mặt kỹ thuật, giá trị trả về là một "vectơ có tên" có giá trị là tổng và tên là từ chiến thắng, nhưng điều này dường như tuân theo các quy tắc. Nếu bạn muốn trả về từ chiến thắng dưới dạng chuỗi, bạn phải chi thêm 7 byte và gói phần trên vào trong names().

05AB1E , 8 byte

ð¡RΣÇO}θ

Hãy thử trực tuyến!

Giải trình

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

JavaScript (ES6), 81 byte

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

Hãy thử trực tuyến!

jq, 61 43 57 37 ký tự

( 57 39 53 33 ký tự mã + 4 ký tự tùy chọn dòng lệnh)

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

Chạy mẫu:

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

Hãy thử trực tuyến!

Bình thường, 8 byte

h.MsCMZc

Bộ kiểm tra

Tôi biết đã có câu trả lời Pyth nhưng tôi cảm thấy như cách này sử dụng một cách tiếp cận khá khác biệt _{^{và nó cũng ngắn hơn}}

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 byte

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

Hãy thử trực tuyến!

Cảm ơn mazzy cho một con số khổng lồ -22 byte.

-splits đầu vào $argstrên khoảng trắng, đường ống vào sortvới một cơ chế sắp xếp cụ thể {...}và -ucờ nique.

Ở đây chúng tôi đang dùng từ hiện tại $_, thay đổi nó toCharArray , sau đó với mỗi chữ cái chúng tôi sẽ thêm từ đó vào$r esult . Điều đó biến chuỗi thành một số dựa trên đại diện UTF-16 của nó.

Lần đầu tiên, PowerShell có tất cả các chuỗi là UTF-16 trong nền là một trình cứu sinh!

Sau đó, chúng tôi gói gọn các kết quả đó (...)để biến chúng thành một mảng và lấy kết quả cuối cùng [-1], nghĩa là kết quả lớn nhất gần nhất với điểm bắt đầu của câu. Điều này hoạt động vì -ucờ nique, nghĩa là, nếu có một phần tử sau này có cùng giá trị, nó sẽ bị loại bỏ. Từ đó được để lại trên đường ống và đầu ra là ẩn.

Python 3 , 55 52 byte

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

Hãy thử trực tuyến!

• -3 byte nhờ Gigaflop đã chỉ ra rằng không cần đối số trong splitphương thức.

MATLAB, 57 byte

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

Trong MATLAB R2016a của tôi, tất cả các bài kiểm tra đều được vượt qua, ngoại trừ biểu tượng cảm xúc không được hiển thị đúng. Nhưng các ký tự được trả lại chính xác

Japt -h , 8 byte

Cách tiếp cận @Enigma

¸w ñ_¬xc

Hãy thử trực tuyến!

Cách tiếp cận khác

Japt -g , 8 byte

¸ñ@-X¬xc

Hãy thử trực tuyến!

Java (JDK) , 117 97 84 byte

-13 byte cảm ơn @Nevay. Rõ ràng tôi không biết tôi cũng có thể sử dụng vartrong Java.

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

Hãy thử trực tuyến!

Ruby, 45 ký tự

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

Chạy mẫu:

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

Hãy thử trực tuyến!

Ruby 2.4, 40 ký tự

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

(Chưa được kiểm tra.)

Bình thường , 33 byte

FHmCdmcd)Kczd aYu+GHmCdH0)@KxYeSY

Hãy thử trực tuyến!

Gần như chắc chắn có một cách tốt hơn để làm điều này, nhưng tôi đã dành quá nhiều cho nó để điều này sẽ làm.

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

Tôi đã chuyển qua một bản đồ khác thay vì sử dụng vòng lặp for, nhưng tôi không thể làm cho nó hoạt động được.

Than , 20 byte

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

Hãy thử trực tuyến! Liên kết là phiên bản dài dòng của mã. Giải trình:

≔⪪Ｓ θ

Tách chuỗi đầu vào trên khoảng trắng và gán cho q.

≔ＥθΣＥι℅λη

Tính tổng các thứ tự của các ký tự trong mỗi từ và gán cho h.

§θ⌕η⌈η

Tìm chỉ số của tổng cao nhất và in từ tại chỉ mục đó.

Powershell, 66 byte

Nói thẳng ra. Xem câu trả lời của admBorkBork để tìm ra cách sử dụng Powershell thông minh.

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

Ghi chú! Để sửa công việc với unicode, hãy lưu tệp script của bạn bằng UTF-16hoặc UTF8 with BOMmã hóa.

Kịch bản thử nghiệm:

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

Đầu ra:

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