Monday Mini-Golf:คำถามสั้น ๆ เกี่ยวกับกอล์ฟที่โพสต์ (หวังว่า!) ทุกวันจันทร์
^{(ขออภัยฉันมาสายอีกครั้งฉันออกจากคอมพิวเตอร์โดยพื้นฐานแล้วเมื่อวานและวันนี้)}

โปรแกรมเมอร์ของเรา (โดยเฉพาะผู้เล่นโค๊ด) แน่ใจได้ว่าชอบลำดับเลขจำนวนเต็มโดยพลการ เรายังมีไซต์ทั้งหมดที่อุทิศให้กับลำดับเหล่านี้ที่ปัจจุบันมีประมาณ 200,000 รายการ ในความท้าทายนี้เราจะดำเนินการตามลำดับเหล่านี้อีกชุด

ท้าทาย

ความท้าทายของคุณคือการเขียนโปรแกรมหรือฟังก์ชั่นที่ใช้ในจำนวนเต็มNและแสดงลำดับของฐาน 10 จำนวนเต็มโดยแต่ละจำนวนถัดไปจะถูกกำหนดด้วยวิธีนี้:

• เริ่มต้นที่ 1

• สำหรับแต่ละหลักDในการแสดงฐาน 10 ของจำนวนเต็มก่อนหน้า:

  • ถ้าDเป็น 0 ให้เพิ่มหนึ่งเข้าไปในจำนวนเต็มปัจจุบัน
  • มิฉะนั้นคูณจำนวนเต็มในปัจจุบันโดยD

รายละเอียด

• คุณอาจจะคิดว่า 0 < N <2 วันที่ 31
• คุณต้องส่งออกจำนวนเต็มแต่ละค่าในลำดับเริ่มต้นด้วยหมายเลขอินพุตจนกว่าจะถึงจำนวนที่น้อยกว่า 10
• ผลลัพธ์อาจเป็นอาร์เรย์หรือสตริงที่คั่นด้วยช่องว่างเครื่องหมายจุลภาคการขึ้นบรรทัดใหม่หรือการรวมกันของเหล่านี้
• อนุญาตให้เว้นวรรคต่อท้ายและ / หรือขึ้นบรรทัดใหม่ แต่ไม่ใช่เครื่องหมายจุลภาคต่อท้าย
• ไม่ควรมีศูนย์นำหน้า

ตัวอย่าง

ตัวอย่างที่ 1: 77

ตัวอย่างนี้ค่อนข้างตรงไปตรงมา:

77 = 1*7*7 = 49
49 = 1*4*9 = 36
36 = 1*3*6 = 18
18 = 1*1*8 = 8

77 49 36 18 8ดังนั้นการส่งออกที่เหมาะสมคือ

ตัวอย่างที่ 2: 90

ที่นี่เรามี:

90 = 1*9+1 = 10
10 = 1*1+1 = 2

90 10 2ดังนั้นการส่งออกจะเป็น

ตัวอย่างที่ 3: 806

อ่านสมการจากซ้ายไปขวา:

806 = 1*8+1*6 = 54 (((1*8)+1)*6)
 54 = 1*5*4   = 20
 20 = 1*2+1   = 3

806 54 20 3เอาท์พุทควรจะเป็น

การทดสอบกรณี

หมายเลขแรกในแต่ละบรรทัดคืออินพุตและบรรทัดเต็มคือเอาต์พุตที่คาดไว้

77 49 36 18 8
90 10 2
249 72 14 4
806 54 20 3
1337 63 18 8
9999 6561 180 9
10000 5
8675309 45369 3240 25 10 2
9999999 4782969 217728 1568 240 9
1234567890 362881 2304 28 16 6

นี่คือจำนวนเต็มถัดไปที่เหมาะสมจาก 10 ถึง 100:

Current | Next
--------+-----
     10 |  2
     11 |  1
     12 |  2
     13 |  3
     14 |  4
     15 |  5
     16 |  6
     17 |  7
     18 |  8
     19 |  9
     20 |  3
     21 |  2
     22 |  4
     23 |  6
     24 |  8
     25 | 10
     26 | 12
     27 | 14
     28 | 16
     29 | 18
     30 |  4
     31 |  3
     32 |  6
     33 |  9
     34 | 12
     35 | 15
     36 | 18
     37 | 21
     38 | 24
     39 | 27
     40 |  5
     41 |  4
     42 |  8
     43 | 12
     44 | 16
     45 | 20
     46 | 24
     47 | 28
     48 | 32
     49 | 36
     50 |  6
     51 |  5
     52 | 10
     53 | 15
     54 | 20
     55 | 25
     56 | 30
     57 | 35
     58 | 40
     59 | 45
     60 |  7
     61 |  6
     62 | 12
     63 | 18
     64 | 24
     65 | 30
     66 | 36
     67 | 42
     68 | 48
     69 | 54
     70 |  8
     71 |  7
     72 | 14
     73 | 21
     74 | 28
     75 | 35
     76 | 42
     77 | 49
     78 | 56
     79 | 63
     80 |  9
     81 |  8
     82 | 16
     83 | 24
     84 | 32
     85 | 40
     86 | 48
     87 | 56
     88 | 64
     89 | 72
     90 | 10
     91 |  9
     92 | 18
     93 | 27
     94 | 36
     95 | 45
     96 | 54
     97 | 63
     98 | 72
     99 | 81
    100 |  3

คุณสามารถค้นหารายชื่อนี้ได้ขยายไป 10000 ที่นี่

เกณฑ์การให้คะแนน

นี่คือรหัส - กอล์ฟดังนั้นรหัสที่ถูกต้องสั้นที่สุดในหน่วยไบต์ชนะ Tiebreaker ไปที่การส่งที่ถึงจำนวนไบต์สุดท้ายก่อน ผู้ชนะจะได้รับการคัดเลือกในวันจันทร์ที่ 19 ต.ค. โชคดี!

แก้ไข:ขอแสดงความยินดีกับผู้ชนะของคุณ@isaacgโดยใช้Pythอีกครั้งเป็นเวลา14 ไบต์ !

Pyth, 15 14 ไบต์

.uu|*GHhGjNT1Q

1 ไบต์ต้องขอบคุณเดนนิส

ชุดทดสอบ

ความท้าทายนี้ให้ความรู้สึกราวกับว่ามันถูกสร้างขึ้นมาเพื่อลดฟังก์ชั่น หนึ่งลดกับตัวเลขหนึ่งลดจนกว่าค่าจะหยุดการเปลี่ยนแปลงและเราดี

PowerShell, 92 91 90 88 87 ไบต์

($n=$args);while($n-gt9){$x=1;[char[]]"$n"|%{$x=if($y=$_-48){$x*$y}else{$x+1}};($n=$x)}

Pip , 28 25 23 ไบต์

Tt>Pa{Y1FdaYy*d|y+1a:y}

รับตัวเลขเป็นอาร์กิวเมนต์บรรทัดคำสั่งและส่งออกลำดับบนบรรทัดที่ต่อเนื่องกัน

คำอธิบาย:

                         a is cmdline arg; t is 10 (implicit)
Tt>Pa{                }  Loop till a<10, printing it each time the test is made:
      Y1                   Yank 1 into variable y
        Fda                For each digit d in a:
           Yy*d|y+1          If y*d is truthy (nonzero), yank it; otherwise, yank y+1
                   a:y     Assign value of y back to a

ตอนนี้ฉันดีใจที่ฉันเปลี่ยนPจากคำสั่งเป็นผู้ดำเนินการแก้ไขหลายที่ผ่านมา Paเป็นนิพจน์ที่ประเมินค่าaของมัน แต่ก็ให้ผลมันดังนั้นฉันสามารถพิมพ์aและทดสอบพร้อมกันว่ามันใช้น้อยกว่าสิบt>Paหรือไม่

CJam, 26 25 24 22 ไบต์

riA,{_pAb{_2$*@)?}*j}j

หรือ

ri{_pAb{_2$*@)?}*_9>}g

ลองออนไลน์

มันทำงานอย่างไร

โปรแกรมทั้งสองทำสิ่งเดียวกัน; วิธีแรกเป็นวิธีแบบเรียกซ้ำและครั้งที่สองเป็นแบบวนซ้ำ ฉันจะอธิบายก่อนซึ่งฉันคิดว่าน่าสนใจมากขึ้น

ri                     Read an integer from STDIN and push it on the stack.
  A,{               }j Initialize a memoized, recursive function j with the array
                       [0 ... 9] as "base cases". If j is called on an integer
                       below 10, it returns the element at that index of the base
                       cases (which is same integer) and does not execute the code
                       block. The base case array is filled with new values as j is
                       called again and again, but we do not use this feature.
     _p                Copy and print the integer on the stack.
       Ab              Convert it into its base-10 digits.
         {       }*    Fold; push the first digit, for each remaining digit:
          _2$*         Multiply copies of the accumulator and the current digit.
              @)       Increment the original accumulator.
                ?      Select the product if the digit is non-zero, else the sum.
                   j   Call j on the result.
                       If the result was less than 10, it is retrieved from the
                       base cases and pushed on the stack. CJam prints it before
                       exiting the program.

Minkolang 0.7 , 52 46 ไบต์

ndN((d25*%1R25*:)r11(x2~gd4&x1+!*I1-)dNd9`,?).

วูซ้อนซ้อนกันลูป!

คำอธิบาย

ndN     Takes integer input and outputs it
(       Starts overall loop

 (        Starts loop that separates top of stack into digits
  d25*%   Modulus by 10
  1R      Rotates stack 1 unit to the right
  25*:    Divides by 10
 )

 r11   Reverses stack and pushes two 1s; 1 for the dump and 1 for the multiply
 (     Starts the multiply/add loop
  x    Dumps top value

      -This top-of-stack dump is because
       while loops end when the stack is
       empty or the top of stack is 0. The
       top of stack is *not* popped for
       this conditional check, so if the loop
       continues, I need to dump the left-over
       from the previous iteration.

  2~gd    Gets next-to-last stack value and duplicates for the conditional
  4&      Jumps 4 spaces if top of stack is positive
   x1+!   Dumps the 0 leftover, adds 1 to top of stack, and jumps the multiply
   *      Multiplies the top two elements of stack
  I1-     Pushes length of stack - 1
 )        Exits the loop if top of stack is 0 (i.e., len(stack)=1)
 dN       Outputs as integer
 d9`,?    Jumps out of the loop if top of stack <=9
)
.    Stop.

Mathematica, 66 ไบต์

Most@FixedPointList[Fold[If[#2<1,#+1,1##]&,1,IntegerDigits@#]&,#]&

Python 3, 74, 76ไบต์

มีคำตอบของ Python อยู่ที่นี่ด้วยการลดดังนั้นฉันจึงอยากทำโดยไม่ทำมัน มันควรจะเรียกว่ามี int

def j(n,m=1):
 print(n)
 if n>9:
  for d in str(n):m=m*int(d)or m+1
  j(m)

Python 85 85ไบต์

def g(n):y=reduce(lambda i,x:i*int(x)or i+1,`n`,1);return[n]+(g(y)if n>9else[])

ตอนนี้จะพิมพ์รายการทั้งหมดอย่างถูกต้องแทนที่จะเป็นเพียงค่าแรก

K5 , 24 ไบต์

(1{(x*y;x+1)@~y}/.:'$:)\

การรวบรวมรายการในขณะที่วนไปยังจุดที่กำหนดเป็นสิ่งที่ผู้ดำเนินการสแกนต้องการ \ทำอะไร ในการวนซ้ำแต่ละครั้งแรกที่ฉันนำตัวเลขไปที่สตริงแล้วประเมินอักขระแต่ละตัว ( .:'$:), การกระจายตัวเลขเป็นตัวเลข จากนั้นฉันก็ทำการลด/ ) เริ่มต้นด้วย 1 {(x*y;x+1)@~y}และการใช้แลมบ์ดา ในกรณีนี้xคือการลดค่าและyเป็นระยะต่อเนื่องของลำดับ

ในการดำเนินการ:

  f: (1{(x*y;x+1)@~y}/.:'$:)\

  f'77 90 249 806 1337 9999 10000 8685309 9999999 1234567890
(77 49 36 18 8
 90 10 2
 249 72 14 4
 806 54 20 3
 1337 63 18 8
 9999 6561 180 9
 10000 5
 8685309 51849 1440 17 7
 9999999 4782969 217728 1568 240 9
 1234567890 362881 2304 28 16 6)

Julia, 93 89 88 86 83 77 ไบต์

f(n)=(println(n);if(d=n>9)for i=reverse(digits(n)) i<1?d+=1:d*=i end;f(d)end)

สิ่งนี้จะสร้างฟังก์ชั่นวนซ้ำ fที่พิมพ์องค์ประกอบลำดับในบรรทัดแยกกัน

Ungolfed:

function f(n::Int)
    println(n)
    if (d = n > 9)
        for i in reverse(digits(n))
            i < 1 ? d += 1 : d *= i
        end
        f(d)
    end
end

ลองออนไลน์

บันทึก 6 ไบต์ขอบคุณ Dennis!

ทับทิม83 , 72 ไบต์

ต้นฉบับประกาศเป็นฟังก์ชัน:

def f(d)loop{p d;break if d<10;d=d.to_s.bytes.inject(1){|r,i|i>48?r*(i-48):r+1}}end

ฉันพยายามใช้ Enumerator.newแต่ใช้จำนวนมาก :-(

ปรับปรุงโดยใช้การเรียกซ้ำ:

def f(d)p d;f(d.to_s.bytes.inject(1){|r,i|i>48?r*(i-48):r+1})if d>10 end

C # & LINQ, 165 146 ไบต์

void j(int a){r.Add(a);var l=a.ToString().Select(d=>int.Parse(d.ToString()));int n=1;foreach(int i in l)n=i==0?n+1:n*i;if(n>9)j(n);else r.Add(n);}

j (สำหรับ jarvis) เป็นฟังก์ชั่นวนซ้ำ Rคือรายการของ int ของผลลัพธ์

ทดสอบใน LINQPAD:

void Main()
{
    j(806);
    r.Dump();
}
List<int> r = new List<int>();

void j(int a){r.Add(a);var l=a.ToString().Select(d=>int.Parse(d.ToString()));int n=1;foreach(int i in l)n=i==0?n+1:n*i;if(n>9)j(n);else r.Add(n);}

Haskell, 71 ไบต์

x!'0'=x+1
x!c=x*read[c]
g x|h>9=x:g h|1<2=[x,h]where h=foldl(!)1$show x

การใช้งาน: ->g 8675309[8675309,45369,3240,25,10,2]

Matlab, 108

N=input('');disp(N)
k=1;while k
x=1;for n=num2str(N)-48
if n
x=x*n;else
x=x+1;end
end
disp(x)
N=x;k=x>9;
end

Java 8, 148 Bytes

String f(int j){String s="";Function r=i->(""+i).chars().map(x->x-48).reduce(1,(x,y)->y>0?x*y:x+1);while((j=(int)r.apply(j))>9)s+=j+" ";return s+j;}

จัดรูปแบบ

String f(int j) {
    String s = "";
    Function r = i -> ("" + i).chars().map(x -> x - 48).reduce(1, (x, y) -> y>0 ? x*y : x+1);
    while ((j = (int)r.apply(j)) > 9) s += j+" ";
    return s+j;
}

เยลลี่ขนาด 9 ไบต์

Dבṛ?ƒ1ƊƬ

ลองออนไลน์!