미친 수학자는 많은 숫자를 소유하고 있기 때문에 그가 남긴 공간은 상당히 제한적입니다. 일부를 저장하려면 정수를 접어야하지만 불행히도 실제로 게으르다. 당신이 그를 도와주고 싶다면 당신의 임무는 우리의 숫자 미치광이에 주어진 양의 정수를 접는 함수 / 프로그램을 만드는 것입니다.

정수를 접는 방법?

숫자의 합으로 균등하게 나눌 수있는 경우 숫자의 합으로 나눕니다. 해당 요구 사항을 충족하지 않으면 나머지를 숫자의 합계로 나눌 때 가져갑니다. 결과가에 도달 할 때까지 프로세스를 반복하십시오 1. 접힌 정수는 수행해야하는 작업 수입니다. 예를 들어 봅시다 1782:

1. 자릿수의 합을 구하십시오 1 + 7 + 8 + 2 = 18. 1782로 균등하게 나눌 수 18있으므로 다음 숫자는 1782 / 18 = 99입니다.

2. 99로 균등하게 나눌 수 없으므로 9 + 9 = 18나머지를 취합니다 99 % 18 = 9.

3. 9는 분명히 나눌 수 9있으므로 우리는 그것을 나누고 얻습니다 1.

결과 3를 얻으려면 3 개의 작업이 필요했기 때문 1입니다.

규칙 및 사양

• 일부 정수는 숫자의 합계가 동일 할 수도 있습니다 1같은, 10또는 100. 귀하의 프로그램은 그러한 경우를 처리 할 필요가 없습니다. 즉, 입력으로 주어진 정수의 자릿수가 합과 같지 1않으며, 주어진 정수로 조작하지 않으면 자릿수의 자릿수 1( "제외 1," 목표"). 예를 들어, 수신하지 않습니다 10또는 20입력으로.

• 입력은보다 큰 양의 정수 1입니다.

• 기본 허점이 적용됩니다.

• 표준 수단으로 입력하고 출력 할 수 있습니다 .

테스트 사례

입력-> 출력

2-> 1
5-> 1
9-> 1
18-> 2
72-> 2
152790-> 2
152-> 3
666-> 3
777-> 3
2010-> 3
898786854-> 4

다음은 프로세스를 시각화하고 더 많은 테스트 사례를 시도 할 수 있는 프로그램 입니다.

이것은 code-golf 이므로 각 언어에서 가장 짧은 코드 (바이트 단위)가 이깁니다!

05AB1E , 13 12 바이트

[¼DSO‰0Kθ©#®

온라인으로 사용해보십시오!

설명

[               # start loop
 ¼              # increment counter
  D             # duplicate current value
   SO           # sum the digits in the copy
     ‰          # divmod the current value by its digit-sum
      0K        # remove 0 from the resulting list
        θ       # pop the last element
         ©      # store a copy in register
          #     # if the current value is 1, break
           ®    # push the copy from register
                # implicitly output counter

파이썬 2 , 63 57 바이트

완전히 인간적인 덕분에 -1 감사합니다. Xcoder 덕분에 -1 감사합니다-Reffu
덕분에
-4

def f(n):a=sum(map(int,`n`));return n>1and-~f(n%a or n/a)

온라인으로 사용해보십시오!

하스켈, 85 78 바이트

f 1=0
f n|r<1=1+f(n`div`s)|1<2=1+f r where s=sum(read.pure<$>show n);r=n`rem`s

Bruce Forte 덕분에 7 바이트가 절약되었습니다.

온라인으로 사용해보십시오.

자바 스크립트 (ES6), 66 58 51 49 바이트

입력을 정수로 취합니다. 반환 false에 대한 0또는 1이 그 자리까지 추가 숫자가 발생했을 때와는 오버플로 오류가 발생합니다 1.

f=n=>n>1&&f(n%(x=eval([...""+n].join`+`))||n/x)+1

• Justin의 도움으로 8 바이트가 저장되었습니다 .

그것을 테스트

o.innerText=(

f=n=>n>1&&f(n%(x=eval([...""+n].join`+`))||n/x)+1

)(i.value=898786854);oninput=_=>o.innerText=f(+i.value)

<input id=i type=number><pre id=o>

껍질 , 12 바이트

←€1¡Ṡ§|÷%oΣd

온라인으로 사용해보십시오!

설명

←€1¡Ṡ§|÷%oΣd  Implicit input, e.g. n=1782
    Ṡ§|÷%oΣd  This part defines the transformation.
         oΣ   Sum of
           d  digits: s=18
    Ṡ   %     n mod s: 0
     §|       or (take this branch if last result was 0)
       ÷      n divided by s: 99
   ¡          Iterate the transformation: [1782,99,9,1,1,1,...
 €1           Index of 1 (1-based): 4
←             Decrement: 3
              Print implicitly.

C # (. NET 코어) , 87 바이트

n=>{int i=0,k,l;for(;n>1;++i){for(l=n,k=0;l>0;l/=10)k+=l%10;n=n%k>0?n%k:n/k;}return i;}

온라인으로 사용해보십시오!

정수를 가져 와서 반환하는 Lambda 함수

Japt , 22 19 17 바이트

@Shaggy 덕분에 -3 바이트
@ETHproductions 덕분에 -2 바이트

ìx
>1©1+ßU%VªU/V

온라인으로 사용해보십시오!

망막 , 100 바이트

$
;
{`(.+);
$1$*1;$&
(?<=;.*)\d(?=.*;)
$*
.*;1;(.*)
$.1
r`(1)*(\3)*;(1+);
$#1;$#2;1
0;(.*);|;.*;
$1;

온라인으로 사용해보십시오! 큰 경우가 너무 오래 걸리므로 작은 경우 만 링크에 포함됩니다.

수학, 73 바이트

(t=#;For[r=0,t>1,r++,If[(s=Mod[t,g=Tr@IntegerDigits@t])<1,t=t/g,t=s]];r)&

PHP, 68 + 1 바이트

단항 출력 :

for($n=$argn;$n>1;$n=$n%($s=array_sum(str_split($n)))?:$n/$s)echo 1;

십진 출력, 73 + 1 바이트 :

for($n=$argn;$n>1;$i++)$n=$n%($s=array_sum(str_split($n)))?:$n/$s;echo$i;

파이프로 실행 -nR하거나 온라인으로 사용해보십시오 .

Elvis 연산자에는 PHP 5.3 이상이 필요합니다. 오래된 PHP를 들어, 교체 ?:로 ?$n%$s:(5 바이트).

루비, 46 바이트

f=->n{s=n.digits.sum;n<2?0:1+f[n%s<1?n/s:n%s]}

하스켈 , 94 93 89 88 바이트

정말 길다 ..

length.fst.span(/=1).iterate g
g x|(d,m)<-x`divMod`sum[read[d]|d<-show x]=last$m:[d|m<1]

온라인으로 사용해보십시오!

1 바이트 씩 골프를 치르는 @Laikoni & @nimi에게 감사드립니다!

C (gcc) , 83 81 76 73 바이트

i,k,s;f(n){k=n;for(i=0;k>1;i++,n=k=k%s?:k/s)for(s=0;n;n/=10)s+=n%10;n=i;}

온라인으로 사용해보십시오!

젤리 , 12 바이트

dDS$Ṛȯ/µÐĿL’

온라인으로 사용해보십시오!

피스, 20 14 바이트

tl.ue-.DNsjNT0

여기에서 시도하십시오.

펄, 71 바이트, 64 바이트, 63 바이트

-pl

$c=0;while($_>1){$s=0;$s+=$_ for/./g;$_=$_%$s?$_%$s:$_/$s;++$c};$_=$c

온라인으로 사용해보십시오

편집 : Xcali의 의견 덕분에 7 바이트를 절약했습니다.

-p

while($_>1){$s=0;$s+=$_ for/./g;$_=$_%$s?$_%$s:$_/$s;++$c}$_=$c

편집 : 5.14 이후 비파괴 대체 s /// r

-pl

while($_>1){$s=eval s/\B/+/gr;$_=$_%$s?$_%$s:$_/$s;++$c}$_=$c

Dyalog APL, 36 바이트

{x←+/⍎¨⍕⍵⋄1=⍵:0⋄0=x|⍵:1+∇⍵÷x⋄1+∇x|⍵}

온라인으로 사용해보십시오!

방법?

{
   x←+/⍎¨⍕⍵      ⍝ x = digit sum
   1=⍵:0         ⍝ if arg = 1: bye
   0=x|⍵:1+∇⍵÷x  ⍝ if arg divisible by x: recurse with arg/x
   1+∇x|⍵        ⍝ recurse with arg mod x
}

가이아 , 13 바이트

-@{:ΣZ¤∨)‡}°\

온라인으로 사용해보십시오!

설명

-              Push -1 (this will be the counter)
 @             Push input (the starting number)
  {:ΣZ¤∨)‡}°   Repeat this block until the results of 2 consecutive runs are the same:
   :            Copy the number
    Σ           Digital sum
     Z          Divmod number by digital sum
      ¤         Swap
       ∨        Logical or: left-most non-zero out of (number mod sum, number div sum)
        )‡      Increment the counter
            \  Delete the final 1, implicitly print the counter

Matlab, 150 바이트

function[d]=X(x) 
d=0;while ~strcmp(x,'1')z='sum(str2num(x(:)))';a=eval(['rem(',x,',',z,')']);y=num2str(a*(a>0)+eval([x,'/',z])*(a==0));x=y;d=d+1;end

X ( '152')와 같은 문자열로 함수에 입력해야합니다.

이 기능은 루핑하고 증가시키면서 작동합니다. d. 그만큼x=y;라인은 날 새로운 하나 분명히 읽고 동시에 변수 값을 덮어하려고 matlab에의 오류를 방지하기 위해 필요했다.

언 골프 드 :

function[d]=X(x) 
d=0;
while ~strcmp(x,'1')
    z='sum(str2num(x(:)))';
    a=eval(['rem(',x,',',z,')']);
    y=num2str(a*(a>0)+eval([x,'/',z])*(a==0));
    x=y;
    d=d+1;
end

하스켈 , 68 바이트

f 1=0
f n=1+[f x|x<-[mod n,div n]<*>[sum$read.pure<$>show n],x>0]!!0

온라인으로 사용해보십시오! w0lf의 답변을 기반으로 합니다.

R , 85 바이트

function(n){while(n>1){n="if"(x<-n%%(d=sum(n%/%10^(nchar(n):0)%%10)),x,n/d)
F=F+1}
F}

필요한 출력을 반환하는 익명 함수

모든 테스트 사례를 확인하십시오!