카운트 다운

이 코드 골프 챌린지의 목표는 카운트를 카운트하고 재활용하는 것 입니다. 설명하겠습니다.

먼저 응용 프로그램은 프로그램 인수 또는 stdin을 사용하여 숫자를 읽습니다. 다음으로 간단히 다음과 같이 카운트 다운해야합니다. 10 9 8 7 6( 내림차순 )

그러나 더 많은 것이 있습니다!

재활용

모든 숫자를 인쇄 할 수 있지만 모든 숫자를 나열하지는 않고 재활용 할 수있는 상황이 있습니다! 간단한 예를 들어 보겠습니다.

Input: 110

Output:   11091081071061051041031021010099... etc
Recycled:  10                        1

우리는 여전히 110, 109, 108의 모든 숫자를 나열했지만 0 과 1을 재활용했습니다 .

또 다른 예:

Input: 9900

Output:   9900989989897989698959894... etc
Recycled:        9 98  

코드 골프 챌린지

• 숫자 읽기 (인수 또는 표준 입력)
• 가능한 모든 숫자 를 재활용하는 동안 카운트 다운을 내림차순으로 출력하십시오 (표준 출력 또는 파일로)
• 1에 도달하거나 0에서 9까지 재활용 한 순간 중지 (먼저 일어나는 일)

간단한 예 (1에 도달 할 때까지) :

Input: 15
Output: 15141312110987654321

(Notice the 110 instead of 1110)

고급 예 (모두 재활용) :

Input: 110
Output:   110910810710610510410310210100998979695949392919089887868584838281807978776757473727170696867665646362616059585756554535251504948474645443424140393837363534332313029282726252423221
Recycled:  10                            9                    8                    7                    6                    5                    4                    3                    2

(We've recycled all 0-9)

T-SQL - 291 277 267 217 199 191 166 158 153 145 142 128 117

새로운 방식으로 이것에 접근 한 후, 나는 너무 허름하지 않은 145 (몇 가지 사소한 조정 후 142)로 내려갔습니다. 그것은 내가은이나 청동을 위해 경쟁 할 수 있다는 것을 의미합니다. ^^

DECLARE @ INT=100;WITH N AS(SELECT 1A UNION ALL SELECT A+1FROM N WHERE A<@)SELECT LEFT(A,LEN(A)-1+A%11)FROM N ORDER BY-A

목록을 인쇄하지 않고 결과를 선택합니다. 이 질문에는 출력에 대한 구체적인 내용이 없었으므로 괜찮습니다. 이것은 여전히 ​​100에 대한 100의 제한을 가지고 있습니다. 부분적으로 100 미만의 모든 11 번째 용어가 문자를 잃고 부분적으로 공통 테이블 표현식에 대한 기본 100 재귀 제한 때문에 사실을 남용하기 때문입니다.

DECLARE @ INT=100;

WITH N AS
(
    SELECT 1A
    UNION ALL
    SELECT A+1
    FROM N
    WHERE A<@
)

SELECT LEFT(A,LEN(A)-1+A%11)
FROM N
ORDER BY-A

파이썬 143147

def t(n):
 p=o='';r=0 # p is previous string, o is output string, r is recycled bitmap
 while n and r<1023: # 1023 is first 10 bits set, meaning all digits have been recycled
    s=`n`;i=-1 # s is the current string representation of n
       # i is from end; negative offsets count backwards in strings
    while p.endswith(s[:i])-1:i-=1 # find common ending with prev; s[:0] is '',
       # which all strings end with
    for j in s[:i]:r|=1<<int(j) # mark off recycled bits
    o+=s[i:];p=s;n-=1 # concatenate output, prepare for next number
 print o # done

첫 번째 수준 들여 쓰기는 공백이고 두 번째 수준은 탭 문자입니다.

하스켈 154 149 147 145 128 120 119 117 바이트

import Data.List
(r%x)n|n>0&&r<":"=[(r\\t)%(x++(show n\\t))$n-1|t<-tails x,isPrefixOf t$show n]!!0|0<1=x
h=['0'..]%""

재활용 검사를 추가 하면 많은 캐릭터가 소비됩니다 ... 한숨

아직 재활용되지 않은 숫자를 기억하고 목록이 비어있을 때 중지하여 약간의 골프를 쳤습니다. 그런 다음 명시적인 재귀와 몇 가지 트릭으로 이동하여 조금 더 골프를 쳤습니다.

예제 출력 :

*Main> h 110
"110910810710610510410310210100998979695949392919089887868584838281807978776757473727170696867665646362616059585756554535251504948474645443424140393837363534332313029282726252423221"

파이썬 2 : 119 (117)

Will 's answer의 골프 버전이기 때문에 이것을 커뮤니티 위키로 표시하십시오 .

n=input()
d=s,={''}
exec"t=`n`;i=len(t)\nwhile(s*i)[-i:]!=t[:i]:i-=1\ns+=t[i:];d|=set(t[:i]);n-=len(d)<11;"*n
print s

루비, 145 (139) 130 바이트

n=gets.to_i
d=*?0..?9
s=''
n.times{|i|j=(t=(n-i).to_s).size;j-=1 while s[-j,j]!=u=t[0,j];d-=u.chars;s=t;$><<t[j..-1];exit if[]==d}

비트 마스크를 사용하지 않고 대신 사용되지 않는 숫자의 집합과 같은 배열을 제외하고 Wills와 비슷한 접근 방식. 입력은 STDIN을 통해 이루어집니다.

while대신 사용하는 대체 버전 이 times있지만 시도하는 모든 바이트 수는 동일합니다.

n=gets.to_i
d=*?0..?9
s=''
(j=(t=n.to_s).size;j-=1 while s[-j,j]!=u=t[0,j];d-=u.chars;s=t;$><<t[j..-1];exit if[]==d;n-=1)while 0<n

CJam, 80 77 65 57 54 자

아마도 전혀 최적화되지는 않았지만 여기에 많은 최적화와 디버깅이 끝나면 CJam에서 ES6 답변을 직접 변환 한 것입니다.

Mr{s:C_,{:H<M_,H->=!_CH@-@}g:T>+:MCT<_O@-+:O,A<Ci(*}h;

여기에서 온라인으로 사용해보십시오 . 이 함수는 숫자를 STDIN으로 사용하여 재활용 카운트 다운을 출력하여 재활용이 완료되면 그 사이에 중지합니다.

나는 그것을 더 골프하려고합니다.

작동 방식 :

기본 아이디어는 각 카운트 다운 숫자 C에 대해 첫 번째 H 숫자가 결과 문자열의 마지막 H 숫자와 같은지 확인합니다. 여기서 H는 C의 자릿수에서 0으로 이동합니다.

Mr                                    "Put an empty string and input on stack";
  { ... }h;                           "Run while top element of stack is true, pop when done";
s:C                                   "Store string value of top stack element in C"
   _,                                 "Put the number of characters in C to stack";
     { ... }g                         "Run while top element of stack is true";
:H<                                   "Store the digit iteration in H and slice C";
   M                                  "M is the final output string in making";
    _,H-                              "Take length of M and reduce H from it";
        >                             "Take that many digits of M from end and..."
         =!_                          "Compare with first H digits of C, negate and copy";
            CH@                       "Put C and H on stack and bring the above result to top of stack";
               -                      "Reduce H if the matched result was false";
                @                     "Bring the matched result on top in order continue or break the loop"
             :T                       "Store top stack element in T after the loop";
               >+:M                   "Take everything but first T digits of C and add it to M and update M";
                   CT<_               "Take first T digits of C and copy them";
                       O@             "Put saved digits on stack, and rotate top three elements";
                         -            "Remove all occurence of first T digits of C from O";
                          +:O         "Add first T digits of C to O and update O";
                             ,A<      "Compare number of saved digits with 10";
                                Ci(   "Decrement integer value of C and put it on stack";
                                   *  "If number of saved digits greater than 9, break loop";

자바 스크립트 ES6, 149 개 (146) 문자

그런 장황하고 많은 캐릭터들.

C=n=>{s=c='';while(n>0&s.length<10){j=1;while(t=(n+'').slice(0,-j++))if(c.endsWith(t)){s+=~s.search(t)?'':t;break}c+=(n--+'').slice(1-j)}return c}

최신 Firefox 웹 콘솔에서 실행하십시오.

실행 한 후에 C는 다음과 같이 사용할 수 있는 방법 을 만듭니다.

C(12)
12110987654321

업데이트 : 때로는 일반 오래된 return것이 화살표 함수 클로저보다 짧습니다 :)