Sumuj cyfry do kwadratu

11

Podana jest dowolna liczba całkowita x> 0 i dowolna podstawa y> 3.

  1. Zsumuj wszystkie cyfry x (jeśli są zapisane w bazie podstawowej).
  2. Pomnóż to przez najwyższą możliwą cyfrę (zawsze base -1).
  3. Powtarzaj, aż ta wartość wyniesie (y - 1) ^ 2

Szukano liczby iteracji i kroków.

Przykład 1:

x= 739
y= 7
searched: (7 - 1) ^ 2 = 36

based: (b7)2104
sum: (dec)7
mul: (dec)42

based: (b7)60
sum: (dec)6
mul: (dec)36

2 steps needed -> answer is [2, 739, 42, 36] or [739, 42, 36, 2]

Przykład 2:

x = 1712
y = 19
s: 324

step1: 1712 -> 360
step2:  360 -> 648
step3:  648 -> 324

3 steps needed -> answer is [3, 1712, 360, 648, 324] or [1712, 360, 648, 324, 3]

Specjalne:
W niektórych przypadkach (niektóre kombinacje z bazą 3) nie będziesz mógł (y - 1) ^ 2polubić x = 53i y = 3. Z tego powodu ymusi być większy niż 3 i możesz to zignorować.

Liczba iteracji musi być pierwszą lub ostatnią wartością

Jest to wygrana w najniższej liczbie bajtów .

Dirk Reichel
źródło
Wymaganie liczby kroków w odpowiedzi wydaje się niepotrzebnym dodatkiem do problemu . Moje rozwiązanie musiało dodać 21 bajtów, aby zrobić to, co
oznaczało
@ngenisis ma tylko kolejność danych wyjściowych, ale ignoruje metodę (tablica, stos, łańcuch ograniczający, wiele ciągów ...). Śledzenie dwóch różnych rzeczy (wartości końcowej i liczby) pozwala uniknąć „ślepego” zbierania wartości (mniej więcej) i jest dobrym dodatkiem do mojego oka. Być może inne podejście będzie wymagało 5 dodatkowych bajtów przy obliczaniu, ale oszczędza 8 w części liczącej (tutaj tylko losowe liczby).
Dirk Reichel,

Odpowiedzi:

4

Galaretka , 14 13 bajtów

-1 bajt, drukując w pętli ( zastępując separację łańcucha µi konkatenację ;)

Ṅb⁹S×⁹’¤µÐĿL’

TryItOnline!

W jaki sposób?

Ṅb⁹S×⁹’¤µÐĿL’ - Main link: x, y
        µÐĿ   - loop monadically until results are no longer unique and collect
Ṅ             - print z (initially x), then result of previous loop and return z
  ⁹           -     right argument (y, even though monadic)
 b            -     left to base right
   S          -     sum (the result was a list of base y digits)
       ¤      -     nilad followed by link(s) as a nilad
     ⁹’       -         y decremented
    ×         -     multiply
           L  - length(z)
            ’ - decrement
              - implicit print

Alternatywny bajt 13 drukuje każde wejście do pętli plus znak linii ( ), a na koniec drukuje pośrednio zmniejszoną liczbę zebranych wyników, eliminując potrzebę monadycznego oddzielania łańcucha ( µ) i konkatenacji ( ;).

Jonathan Allan
źródło
1
Ponieważ nie ma ustawionego żądania „formatowania wyjściowego”. Wiele wyników będzie się liczyć, o ile zamówienie będzie w porządku. W ten sposób 13-bajtowa odpowiedź jest poprawna.
Dirk Reichel,
Fajnie, nie byłem pewien, dziękuję za informację!
Jonathan Allan,
4

Perl 6 , 60 bajtów

{$/=[$^x,*.polymod($^y xx*).sum*($y-1)...($y-1)²];$/-1,|$/}

Rozszerzony:

{    # bare block lambda with placeholder parameters 「$x」 「$y」

  $/ = [          # store in 「$/」 ( so that we don't have to declare it )

    # generate a sequence

    $^x,          # declare first parameter, and seed sequence generator

    # Whatever lambda

    *\            # the parameter to this lambda

    .polymod(     # broken down with a list of moduli

      $^y         # declare second parameter of the outer block lambda
      xx *        # an infinite list of copies of it

    )
    .sum
    *
    ( $y - 1 )

    # end of Whatever lambda

    ...           # repeat until it reaches

    ( $y - 1 
  ];

  # returns
  $/ - 1,         # count of values minus one
  |$/             # Slip 「|」 the list into the result
}

Stosowanie:

# store it in the lexical namespace so that it is easier to understand
my &code = {$/=[$^x,*.polymod($^y xx*).sum*($y-1)...($y-1)²];$/-1,|$/}

say code  739,  7; # (2 739 42 36)
say code 1712, 19; # (3 1712 360 648 324)
Brad Gilbert b2gills
źródło
4

C, 116 113 bajtów

-3 bajty do każdorazowego przeliczania kwadratu

s,t,i;f(x,y){s=y-(i=1);while(x-s*s){t=0;++i;printf("%d ",x);while(x)t+=x%y,x/=y;x=t*y-t;}printf("%d %d ",x,i-1);}

Niegolfowane i użytkowanie:

s,t,i;
f(x,y){
 s=y-(i=1);
 while(x-s*s){
  t=0;
  ++i;
  printf("%d ",x);
  while(x)
   t+=x%y,    //add the base y digit
   x/=y;      //shift x to the right by base y
  x=t*y-t;
 }
 printf("%d %d ",x,i-1);
}

main(){
 f(739,7);puts("");
 f(1712,19);puts("");
}
Karl Napf
źródło
4

JavaScript (ES6), 97 91 84 82 bajtów

f=(n,b,k=1,c=b-1)=>[n,(s=(B=n=>n%b*c+(n>b&&B(n/b|0)))(n))-c*c?f(s,b,k+1):[s,k]]+''

Przypadki testowe

Arnauld
źródło
4

Galaretka , 16 bajtów

Wydaje mi się, że i tak to opublikuję, mimo że został pobity podczas pisania, ponieważ jest to znacząco inny algorytm i napisanie go było interesujące. (Nie mogłem rozgryźć, jak ÐĿprzeanalizowano te dokumenty i musiałem się z tego zrezygnować, mimo że wiedziałem, że prawdopodobnie doprowadziłoby to do krótszego rozwiązania).

ṄbS×⁹’¤ß<’¥n⁸$?‘

Wypróbuj online!

Wyjaśnienie:

ṄbS×⁹’¤ß<’¥n⁸$?‘
Ṅ                 Output {the first argument} and a newline
 b                Convert to base {the second argument}
  S               Sum digits
    ⁹’¤           {the second argument} minus 1, parsed as a group
   ×              Multiply
           n⁸$    {the current value} ≠ {the first argument}, parsed as a group
              ?   If that's true:
       ß          then run the whole program recursively
        <’¥       else run (lambda a,b: (a<b)-1)
               ‘  Increment the result

Użycie <’¥jest w zasadzie krótkim sposobem na napisanie diady (link z dwoma argumentami), która zawsze zwraca -1 (ponieważ wiemy, że odpowiedź nigdy nie będzie mniejsza niż podstawa). Wybór między rekurencyjnym uruchomieniem a rekurencyjnym całym programem pozwala nam określić, kiedy przestać zapętlać. Następnie, gdy stos się odwija ​​pod koniec rekurencji, zwiększamy -1, aby określić liczbę kroków.


źródło
2

MATL, 25 21 bajtów

4 bajty zapisane dzięki @Luis

XJx`tJYA!UsJq*tJqU-}@

Wypróbuj online!

Wyjaśnienie

XJ      % Implicitly grab the first input and store in clipboard J
x       % Delete this from the stack
`       % Do...while loop
  t     % Duplicate last element on stack (implicitly grabs second input)
  JYA   % Convert this number to the specified base
  !Us   % Sum the digits
  Jq*   % Multiply by the largest number in this base
  t     % Duplicate this value
  JqU   % Compute (base - 1) ^ 2
  -     % Subtract the two. Evaluates to TRUE if they are not equal
}       % When they are finally equal
@       % Push the number of iterations
        % Implicitly display the stack contents
Suever
źródło
@LuisMendo Naprawiono!
Suever,
1

Mathematica, 80 bajtów

(s=FixedPointList[x(#2-1)(Plus@@x~IntegerDigits~#2),#];s[[-1]]=Length@s-2;s)&

to prywatny znak U+F4A1używany do reprezentowania \[Function]. Jeśli liczba kroków nie była wymagana w odpowiedzi, można to zrobić w 60 bajtach:

Most@FixedPointList[x(#2-1)(Plus@@x~IntegerDigits~#2),#]&
ngenisis
źródło