Cho một số nguyên dương n( Ví dụn=1234444999 :)

• Tách thành các chữ số liên tiếp chạy:
  • [1, 2, 3, 4444, 999]
• Lấy sản phẩm kỹ thuật số của mỗi lần chạy.
  • [1, 2, 3, 4*4*4*4, 9*9*9] = [1, 2, 3, 256, 729]
• Tổng hợp ...
  • 991
• Lặp lại cho đến khi điều này hội tụ đến một số duy nhất:
  • 1234444999
  • 991
  • 82
  • 10
  • 1
• Trả lại số cuối cùng.

Các trường hợp thử nghiệm

BASE CASES:
0 = 0
...
9 = 9

OTHER CASES:
1234444999                     = 1
222222222222222                = 8
111222333444555666777888999000 = 9
11122233344455566677788899     = 8
1112223334445                  = 6
14536                          = 1
99                             = 9

Ví dụ yêu cầu:

334455553666333
9+16+625+3+216+27
896
8+9+6
23
2+3
**5**

Chiến thắng?

Đó là môn đánh gôn , số byte thấp nhất là người chiến thắng.

05AB1E , 7 6 5 byte

Cảm ơn Emigna vì đã tiết kiệm một byte!

vSγPO

Sử dụng mã hóa 05AB1E . Hãy thử trực tuyến!

Thạch, 9 byte

DŒgP€SµÐL

Dùng thử trực tuyến

Đây là cách nó hoạt động:

D  - input as a list of digits
Œg - group runs of equal elements
P€ - the product of each element
S  - the sum of the list
µ  - syntax stuff to separate the left from the right
ÐL - repeat until we get a result twice, then return that result.

Toán học, 55 42 byte

#//.i_:>Tr[Times@@@Split@IntegerDigits@i]&

-13 byte từ @JungHwan Min . Thanx!

trong trường hợp ai đó muốn sử dụng điều này như một trình tạo chữ số ngẫu nhiên,
đây là số liệu của 100.000 số đầu tiên

{{1, 17320}, {2, 4873}, {3, 10862}, {4, 11353}, {5, 10853}, {6, 9688}, {7, 11464}, {8, 10878}, { 9, 12704}}
hoặc nếu bạn đánh bạc, đừng đặt tiền của bạn vào 2!

Japt , 17 15 13 byte

e".+"_¬ò¦ x_×

Kiểm tra nó trực tuyến! Đưa đầu vào dưới dạng một chuỗi.

Vẫn không hài lòng với câu trả lời này ...

Giải trình

e".+"_  ¬ ò¦  x_  ×
e".+"Z{Zq ò!= xZ{Zr*1}}

e".+"                     Repeatedly replace all matches of /.+/ (the entire string)
     Z{               }   Z with this function:
       Zq                   Split Z into chars.
          ò!=               Partition at inequality; that is, split into runs of equal items.
              xZ{    }      Take the sum of: for each item in Z:
                 Zr*1         the item reduced by multiplication (i.e. the product).
                          This procedure is repeated until the same result is yielded twice.
                          Implicit: output result of last expression

Python 3 , 96 byte

from itertools import*
f=lambda n:n*(n<10)or f(sum(int(k)**len([*g])for k,g in groupby(str(n))))

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

Brachylog , 8 byte

Ḋ|ẹḅ×ᵐ+↰

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

Giải trình

Ḋ          Input = Output = a digit
 |         Or
  ẹ        Split into a list of digits
   ḅ       Group consecutive equal elements together
    ×ᵐ     Map multiply
      +    Sum
       ↰   Recursive call

Bình thường, 11 byte

us^M_MrjGT8

Hãy thử trực tuyến. Bộ thử nghiệm.

PHP , 113 byte

for(;9<$a=&$argn;$a=$s){$s=0;preg_match_all('#(.)\1*#',$argn,$t);foreach($t[0]as$v)$s+=$v[0]**strlen($v);}echo$a;

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

Husk , 8 byte

ωöṁΠgmis

Lấy và trả về một số nguyên. Hãy thử trực tuyến!

Giải trình

Có tích hợp sẵn 10 chữ số cơ bản sẽ rất tuyệt ...

ωöṁΠgmis
ω         Iterate until a fixed point is found
 ö        the composition of the following four functions:
       s   convert to string,
     mi    convert each digit to integer,
    g      group equal adjacent integers,
  ṁΠ       take product of each group and sum the results.

JavaScript (ES6), 77 73 67 65 byte

Đã lưu 2 byte nhờ @CraigAyre

f=s=>s>9?f(''+eval(s.replace(/(.)\1*/g,s=>'+'+[...s].join`*`))):s

Làm sao?

Các s đầu vào được chuyển thành biểu thức số học với:

s.replace(/(.)\1*/g, s => '+' + [...s].join`*`)

Ví dụ, 1234444999trở thành +1+2+3+4*4*4*4+9*9*9.

Chúng tôi đánh giá biểu thức này và thực hiện một cuộc gọi đệ quy với kết quả cho đến khi nó được rút gọn thành một chữ số thập phân duy nhất.

Các trường hợp thử nghiệm

f=s=>s>9?f(''+eval(s.replace(/(.)\1*/g,s=>'+'+[...s].join`*`))):s

console.log(f("1234444999"                    )) // = 1
console.log(f("222222222222222"               )) // = 8
console.log(f("111222333444555666777888999000")) // = 9
console.log(f("11122233344455566677788899"    )) // = 8
console.log(f("1112223334445"                 )) // = 6
console.log(f("14536"                         )) // = 1
console.log(f("99"                            )) // = 9

CJam , 22 byte

r_,{1/e`Wf%::i::#:+s}*

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

Haskell , 103 70 69 byte

import Data.List
until(<10)$sum.map product.group.map(read.pure).show

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

R , 114 104 byte

n=scan(,'');while(nchar(n)>1){n=el(strsplit(n,''));b=table(n);n=as.character(sum(strtoi(names(b))^b))};n

đọc từ stdin; trả về câu trả lời dưới dạng chuỗi

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

MATL, 11 byte

`!UY'^sVtnq

Hãy thử nó tại MATL Online

Giải trình

        % Implicitly grab input as a string
`       % Do...while loop
  !U    % Convert the string to an array of numbers (the digits)
  Y'    % Perform run-length encoding
  ^     % Raise the digits to the power corresponding to the number of times they
        % occurred consecutively
  s     % Sum the result
  V     % Convert to a string
  tn    % Duplicate and determine the number of characters in the string
  q     % Subtract one, causes the loop to continue until it's a single digit
        % Implicit end of do...while loop and display

Perl 5 , 50 byte

49 byte mã + -pcờ.

s/(.)\1*/"+".$&=~s%.%$&*%gr.1/ge while($_=eval)>9

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

R, 97 96 byte

a=scan(,"");while(nchar(a)>1){a=paste(sum(strtoi((b<-rle(el(strsplit(a,""))))$v)^strtoi(b$l)))}a

Cách tiếp cận hơi khác so với câu trả lời khác sử dụng R .

Câu trả lời này sử dụng rlechức năng, trong đó compute[s] the lengths and values of runs of equal values in a vector.

-1 byte nhờ @Giuseppe!

Braingolf, 25 byte

!L1-Mv[RG(d&*)&+!L1-Mv>]R

Sẽ thêm một liên kết TIO khi tôi nhận được Dennis để kéo phiên bản mới nhất, vì việc sử dụng các toán tử tham lam bên trong (...)các vòng lặp hiện đang bị hỏng trên TIO

Giải trình

!L1-Mv[RG(d&*)&+!L1-Mv>]R  Implicit input from commandline args
!L1-M                      Push length of input minus 1 to stack2
     v                     Switch to stack2
      [.........!L1-Mv>]   While length of input > 1..
       RG                  Split into digit runs
         (d&*)             Product of digits of each item in stack
              &+           Sum stack
                        R  Return to stack1
                           Implicit output from stack

Japt , 19 byte

=ò¦ m¬®×Ãx)<A?U:ßUs

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

Giải trình:

=ò¦ m¬®×Ãx)<A?U:ßUs
=                    // Implicit U (input) =
 ò¦                  //   Split the input into an array of consecutive digit runs
    m¬               //   Split each inner array: ["1","22","333"] -> [["1"],["2","2"],["3","3","3"]]
      ®              //   Map; At each item:
       ×             //     Get the product of each run
        Ã            //   }
         x           //   Sum
           <A        // <10
             ?       // If true:
              U      //   return U
               :     // Else:
                ß    //   Run the program again; Pass:
                 Us  //     U, cast to a string