これは、以前スタックで尋ねた同様の質問のコードゴルフバージョンですが、面白いパズルになると思いました。

36を底とする数値を表す長さ10の文字列が与えられた場合、それを1つ増やし、結果の文字列を返します。

これは、文字列から数字だけを含めることを意味0する9とからの手紙aにz。

Base 36は次のように機能します。

最初に0to を使用して、右端の数字がインクリメントされます9

0000000000> 9回の繰り返し> 0000000009

その後、ato zが使用されます。

000000000a> 25回の繰り返し> 000000000z

場合はzニーズがインクリメントされるように、それはゼロにループバックし、その左に数字がインクリメントされます。

000000010

さらなるルール：

• 大文字または小文字を使用できます。
• 先行ゼロを削除することはできません。入力と出力の両方が長さ10の文字列です。
• zzzzzzzzzz入力として処理する必要はありません。

テストケース：

"0000000000" -> "0000000001"
"0000000009" -> "000000000a"
"000000000z" -> "0000000010"
"123456zzzz" -> "1234570000"
"00codegolf" -> "00codegolg"

05AB1E、10バイト

入力は大文字です。

コード

1ì36ö>36B¦

説明

1ì           # Prepend a 1 to the number
  36ö        # Convert from base 36 to decimal
     >       # Increment by 1
      36B    # Convert from decimal to base 36
         ¦   # Remove the first character

05AB1Eエンコードを使用します。オンラインでお試しください！または、すべてのテストケースを確認します。

Japt、13バイト

n36 Ä s36 ù0A

オンラインでお試しください！およびテストケースを確認してください

入力を文字列として受け取ります

説明

n36            converts input to base 36
    Ä           +1
      s36       to base 36 string
          ù0A   left-pad with 0 to length 10

JavaScript（ES6）、45バイト

@OOBalanceのおかげで4バイト節約

s=>(parseInt(1+s,36)+1).toString(36).slice(1)

オンラインでお試しください！

Haskell、58バイト

d=['0'..'9']
f s=snd(span(<s)$mapM(\_->d++['a'..'z'])d)!!1

オンラインでお試しください！

非常に強引な戦略：長さ10のbase 36のすべての文字列を順番に生成し、リスト内の入力の後に来るものを見つけます。リストの先頭から遠く離れた文字列に膨大な時間をかけます。

Haskell、60バイト

q '9'='a'
q c=succ c
f(h:t)|any(<'z')t=h:f t|r<-'0'<$t=q h:r

オンラインでお試しください！

文字列の左から右に、すべてのzのサフィックスが続く文字に達するまで読み取ります。その文字をインクリメントし、zを0に置き換えます。

スタックス、7バイト

ûæ≥╡►N▀

実行してデバッグする

説明：

|3^|3A|z Full program, implicit input
|3       Convert from base 36
  ^      Increment
   |3    Convert to base 36
     A|z Fill with "0" to length 10
         Implicit output

C（gcc）、 50 48バイト

キャリーが発生しなくなるとすぐに終了するようにループを再構築した後、明示的なキャリーフラグは必要ありませんでした。ループチェック中に9-> A調整が実行されます。

提案してくれたceilingcatに感謝します。

f(char*s){for(s+=9;(*s+=*s-57?1:8)>90;*s--=48);}

オンラインでお試しください！

オリジナルバージョン：71 57バイト

このバージョンでは、キャリーフラグを使用して更新を伝達します。増分を開始するために、それをtrueに設定します。文字列はインプレースで変更され、0〜9、A〜Zのみを受け入れます。トリッキーな部分は、キャリーで9-> Aが正しく処理されるようにすることでした。

編集：入力ポインターをキャリーフラグとして再利用しました。

f(s){for(char*t=s+9;s;)*t--+=(s=++*t>90)?-43:7*!(*t-58);}

オンラインでお試しください！

C、82 81 53 50バイト

f(char*s){for(s+=10;*--s>89;)*s=48;*s+=*s-57?1:8;}

入力文字列を直接変更します。入力と出力は大文字です。こちらからオンラインでお試しください。24バイトのゴルフをしてくれたArnauldと、さらに3バイトのゴルフをしてくれたceilingcatに感謝します。

ゴルフをしていない：

f(char *s) { // function taking a string argument
     for(s += 10; *--s > 89; ) // skip to the least significant digit, and step through the string until you hit something other than a 'Z' (90 is the ASCII code for 'Z') ...
         *s = 48; // ... replacing each digit with a zero (48 is the ASCII code for '0')
         *s += // the next digit has to be incremented:
         *s - 57 // if it's not a '9' (ASCII code 57) ...
         ? 1 // ... that is straightforward ...
         : 8; // ... otherwise it has to be replaced with an 'A' (ASCII code 65 = 57 + 8)
 }

オンラインチューリングマシンシミュレータ、745バイト

init:0
accept:2
0,0
0,0,>
0,1
0,1,>
0,2
0,2,>
0,3
0,3,>
0,4
0,4,>
0,5
0,5,>
0,6
0,6,>
0,7
0,7,>
0,8
0,8,>
0,9
0,9,>
0,a
0,a,>
0,b
0,b,>
0,c
0,c,>
0,d
0,d,>
0,e
0,e,>
0,f
0,f,>
0,g
0,g,>
0,h
0,h,>
0,i
0,i,>
0,j
0,j,>
0,k
0,k,>
0,l
0,l,>
0,m
0,m,>
0,n
0,n,>
0,o
0,o,>
0,p
0,p,>
0,q
0,q,>
0,r
0,r,>
0,s
0,s,>
0,t
0,t,>
0,u
0,u,>
0,v
0,v,>
0,w
0,w,>
0,x
0,x,>
0,y
0,y,>
0,z
0,z,>
0,_
1,_,<
1,0
2,1,-
1,1
2,2,-
1,2
2,3,-
1,3
2,4,-
1,4
2,5,-
1,5
2,6,-
1,6
2,7,-
1,7
2,8,-
1,8
2,9,-
1,9
2,a,-
1,a
2,b,-
1,b
2,c,-
1,c
2,d,-
1,d
2,e,-
1,e
2,f,-
1,f
2,g,-
1,g
2,h,-
1,h
2,i,-
1,i
2,j,-
1,j
2,k,-
1,k
2,l,-
1,l
2,m,-
1,m
2,n,-
1,n
2,o,-
1,o
2,p,-
1,p
2,q,-
1,q
2,r,-
1,r
2,s,-
1,s
2,t,-
1,t
2,u,-
1,u
2,v,-
1,v
2,w,-
1,w
2,x,-
1,x
2,y,-
1,y
2,z,-
1,z
1,0,<

オンライン通訳

Perl 6の、34の32 30バイト

o演算子を使用して関数を結合することにより、-2バイトのnwellnhofに感謝

{S/.//}o{base :36(1~$_)+1: 36}

オンラインでお試しください！

引数を基数36に変換し、1を加算して元に戻し、フォーマットする関数。Adnanの答えと同じ戦術を使用して、先行ゼロを保持するようになりました。

MATL、12バイト

36ZAQ5M10&YA

オンラインでお試しください！

           % Implicit input
36ZA       % convert from base 36 to decimal
Q          % increment by 1
5M         % bring the 36 back on stack (done this way to avoid needing space separator after this)
10         % = minimum length of output string
&YA        % convert back to base 36 with those arguments
           % Implicit output

Haskell、63バイト

r.f.r
f('9':r)='a':r
f('z':r)='0':f r
f(c:r)=succ c:r
r=reverse

オンラインでお試しください！文字列を反転し、最初の文字を確認します。

• A 9はに置き換えられますa。
• A zはに置き換えられ、0再帰的に次の文字がチェックされます。
• 他のすべての文字はsucc、Charsのインスタンスであるため、Charsで使用できる後続関数を使用してインクリメントされます。 Enumクラスの。

最後に、結果の文字列が再び逆になります。

6502（NMOS *）マシンコードルーチン、26バイト

A0 09 F3 FB B1 FB C9 5B 90 07 A9 30 91 FB 88 10 F1 C9 3A D0 04 A9 41 91 FB 60

*）「不正な」オペコードを使用しますISB/0xF3後のCMOSバリアントではなく、すべての元のNMOS 6502チップで動作します。

$fb/ 内の10文字の文字列へのポインターを$fc期待します。この数をその場で増やします。

無効な入力（たとえば、短い文字列など）に対して賢明なことは何も行いません- ZZZZZZZZZZ誤って「正しく」処理します;）

コメント付きの分解

; function to increment base 36 number as 10 character string
;
; input:
;   $fb/$fc: address of string to increment
; clobbers:
;   A, Y
 .inc36:
A0 09       LDY #$09            ; start at last character
 .loop:
F3 FB       ISB ($FB),Y         ; increment character ("illegal" opcode)
B1 FB       LDA ($FB),Y         ; load incremented character
C9 5B       CMP #$5B            ; > 'z' ?
90 07       BCC .checkgap       ; no, check for gap between numbers and letters
A9 30       LDA #$30            ; load '0'
91 FB       STA ($FB),Y         ; and store in string
88          DEY                 ; previous position
10 F1       BPL .loop           ; and loop
 .checkgap:
C9 3A       CMP #$3A            ; == '9' + 1 ?
D0 04       BNE .done           ; done if not
A9 41       LDA #$41            ; load 'a'
91 FB       STA ($FB),Y         ; and store in string
 .done:
60          RTS

ルーチンを使用したC64アセンブラープログラムの例：

オンラインデモ

ca65構文のコード：

.import inc36   ; link with routine above

.segment "BHDR" ; BASIC header
                .word   $0801           ; load address
                .word   $080b           ; pointer next BASIC line
                .word   2018            ; line number
                .byte   $9e             ; BASIC token "SYS"
                .byte   "2061",$0,$0,$0 ; 2061 ($080d) and terminating 0 bytes

.bss
b36str:         .res    11

.data
prompt:         .byte   "> ", $0

.code
                lda     #<prompt        ; display prompt
                ldy     #>prompt
                jsr     $ab1e

                lda     #<b36str        ; read string into buffer
                ldy     #>b36str
                ldx     #$b
                jsr     readline

                lda     #<b36str        ; address of array to $fb/fc
                sta     $fb
                lda     #>b36str
                sta     $fc
                jsr     inc36           ; call incrementing function

                lda     #<b36str        ; output result
                ldy     #>b36str
                jmp     $ab1e

; read a line of input from keyboard, terminate it with 0
; expects pointer to input buffer in A/Y, buffer length in X
.proc readline
                dex
                stx     $fb
                sta     $fc
                sty     $fd
                ldy     #$0
                sty     $cc             ; enable cursor blinking
                sty     $fe             ; temporary for loop variable
getkey:         jsr     $f142           ; get character from keyboard
                beq     getkey
                sta     $2              ; save to temporary
                and     #$7f
                cmp     #$20            ; check for control character
                bcs     checkout        ; no -> check buffer size
                cmp     #$d             ; was it enter/return?
                beq     prepout         ; -> normal flow
                cmp     #$14            ; was it backspace/delete?
                bne     getkey          ; if not, get next char
                lda     $fe             ; check current index
                beq     getkey          ; zero -> backspace not possible
                bne     prepout         ; skip checking buffer size for bs
checkout:       lda     $fe             ; buffer index
                cmp     $fb             ; check against buffer size
                beq     getkey          ; if it would overflow, loop again
prepout:        sei                     ; no interrupts
                ldy     $d3             ; get current screen column
                lda     ($d1),y         ; and clear 
                and     #$7f            ;   cursor in
                sta     ($d1),y         ;   current row
output:         lda     $2              ; load character
                jsr     $e716           ;   and output
                ldx     $cf             ; check cursor phase
                beq     store           ; invisible -> to store
                ldy     $d3             ; get current screen column
                lda     ($d1),y         ; and show
                ora     #$80            ;   cursor in
                sta     ($d1),y         ;   current row
                lda     $2              ; load character
store:          cli                     ; enable interrupts
                cmp     #$14            ; was it backspace/delete?
                beq     backspace       ; to backspace handling code
                cmp     #$d             ; was it enter/return?
                beq     done            ; then we're done.
                ldy     $fe             ; load buffer index
                sta     ($fc),y         ; store character in buffer
                iny                     ; advance buffer index
                sty     $fe
                bne     getkey          ; not zero -> ok
done:           lda     #$0             ; terminate string in buffer with zero
                ldy     $fe             ; get buffer index
                sta     ($fc),y         ; store terminator in buffer
                sei                     ; no interrupts
                ldy     $d3             ; get current screen column
                lda     ($d1),y         ; and clear 
                and     #$7f            ;   cursor in
                sta     ($d1),y         ;   current row
                inc     $cc             ; disable cursor blinking
                cli                     ; enable interrupts
                rts                     ; return
backspace:      dec     $fe             ; decrement buffer index
                bcs     getkey          ; and get next key
.endproc

Retina 0.8.2、12バイト

T`zo`dl`.z*$

オンラインでお試しください！説明：dl置換先の部分は、ソースにコピーされている0-9a-z間に展開さoれますz0-9a-z（ただし、2番目zは一致しないため無視されます）。これにより、一致した数字が増加します。.z*$パターンの一部は、最後の非z数字とすべての末尾zのsに一致するため、増分からの桁上げを処理します0。

ルビー、40バイト

->s{(s.to_i(36)+1).to_s(36).rjust 10,?0}

オンラインでお試しください！

1. 文字列を基数36として解釈する整数に変換します
2. 1を追加
3. ベース36文字列に戻す
4. 0sのある左パッド

"zzzzzzzzzz" 11の長さの文字列を返します

brainfuck、109バイト

,[>>,]<+[++++<[<--->>-<-]-[<->>+<---]<[[-]>-------<]+>>[[+<+>]<<+[>+<------]>>]-[<+>-----]<++++<]<[<<]>>[.>>]

オンラインでお試しください！

Apl（Dyalog Unicode）、30 28 24バイト

バイトを節約するためのヒントをくれたngnに感謝します。

(f⍣¯1)1+f←36⊥1,(⎕D,⎕A)⍳⊢

オンラインでお試しください！

• 0の0IOが必要です

• 大文字を使用

PHP、69 64バイト

ラメバージョン：

printf("%010s",base_convert(1+base_convert($argn,36,10),10,36));

でパイプとして実行し-Rます。入力は大文字小文字を区別せず、出力は小文字です。

最初のアプローチ、69バイト：

<?=str_pad(base_convert(1+base_convert($argn,36,10),10,36),10,'0',0);

パイプとして実行 -F

ループバージョン、69バイト：

for($n=$argn;~$c=$n[$i-=1];)$f||$f=$n[$i]=$c!=9?$c>Y?0:++$c:A;echo$n;

• PHP 7.1のみ：古いPHPは負の文字列インデックスを理解しません。
  若いPHPは未定義の定数に対して警告を生成します。
• 大文字の入力が必要です。小文字の入力の場合はY、とAを小文字に置き換えます。

パイプとして実行 -nR

...またはオンラインで試してください。

Python 2、88バイト

def f(s):L,R=s[:-1],s[-1:];return s and[[L+chr(ord(R)+1),f(L)+'0'][R>'y'],L+'a'][R=='9']

オンラインでお試しください！

「手動」で文字列をインクリメントします。

炭、14バイト

×0⁹←⮌⍘⊕⍘Ｓ³⁶¦³⁶

オンラインでお試しください！リンクは、コードの詳細バージョンです。説明：

×0⁹

9 0秒印刷します。これは結果を埋めるために役立ちます。

←⮌⍘⊕⍘Ｓ³⁶¦³⁶

入力を基数36から変換し、インクリメントしてから、基数36に変換し直します。次に、結果を逆にして、左方向に印刷します。

Java 8、90 76 56バイト

s->Long.toString(Long.valueOf(1+s,36)+1,36).substring(1)

入力に大文字と小文字の両方を受け入れます。出力は常に小文字です。

おかげOkx18バイトのゴルフをしてにます。

こちらからオンラインでお試しください。

ゴルフをしていない：

s -> // lambda taking a String argument and returning a String
    Long.toString(Long.valueOf(1+s,36)+1,36) // prefix input with '1' to ensure leading zeros, convert to Long using base 36, increment, then convert back to String in base 36
    .substring(1) // remove the leading '1'

JavaScript（ES6）、89バイト

これは他のJavaScriptエントリほどバイト効率がよくありませんが、このルールに気付かずにこれを作成しました。

長さ10の文字列が与えられた場合

だから、これは深刻なエントリではありません-ただの楽しみのために！それは、次のような、一般的な長さの文字列を使用しています0abc、と前に付加1最初の桁があるときにz、例えばzzz> - 1000。入力は小文字でなければなりません。

s=>(l=s[s.length-1],r=s.slice(0,-1),l=='z'?f(r||'0')+0:r+(parseInt(l,36)+1).toString(36))

説明

この式は、(A, B, C)実際には「Aを実行し、次にBを実行し、次にCを返す」ことを意味します。これを利用して、コードで再利用する変数を宣言します。s「string」の略で、l「last」、r「rest」を意味します。

/*1*/ s=>(
/*2*/   l=s[s.length-1],
/*3*/   r=s.slice(0,-1),
/*4*/   l=='z'
/*5*/     ? f(r||'0')+0
/*6*/     : r+(parseInt(l,36)+1).toString(36))

これは再帰的な関数です。のような典型的な文字列のaza場合、最後の文字をインクリメントするだけです（6行目を参照）- azb。ただしz、などh0gzで終わる文字列の場合、最後の文字（z）までのすべてで実行され、その代わりにa 0が置換されます（5行目を参照）- f(h0gz)= f(h0g) + 0=h0h0。

||'0'5行目では、それが1長の文字列（つまり、文字列の上に呼ばれていたときに機能が働くようです'z'）。それがなければ、f('')（以来と呼ばれ'z'.slice(0, -1)ている''）未定義の動作を持っている、（文字通り-それを自分で試してください）、それは駄目ません。期待される結果がf('z')ある'10'私たちから得るものである、f('0') + 0我々が使用するので、||'0'。（通常の場合の||'0'邪魔にならないため、特に有用です- 少なくとも1長さ（rs少なくとも2長）-ストリングは長さが0の場合にのみ偽であるため。）

文字列をインクリメントする方法は、他のJSエントリで使用されるものと同じです。base-36の「数値」を実際の数値に変換し、1を加算してからbase-36に変換します。実際に 'z'をインクリメントすることはないため、 'z'のインクリメント1（'z'-> '10'）を心配する必要はありません（4行目と6行目を参照してください：最後の文字は 'z'でない場合にのみインクリメントされます）。

また、実際には一度に複数の文字を操作することはなく、文字列の最後の文字のみを操作するため、先行ゼロを破棄するリスクはありません。残りの文字は、文字列と前置された後書きをスライスするときにきれいに切り取られます。

クリーン、89 84バイト

import StdEnv
@['9':t]=['a':t]
@['z':t]=['0': @t]
@[c:t]=[inc c:t]
r=reverse

r o@o r

オンラインでお試しください！

Laikoniのおかげで短いソリューション。

クリーン、115バイト

使い始めると大好きです limit(iterate...

import StdEnv
@'9'='a'
@c=inc c
?[h,'{':t]=[@h,'0': ?t]
?[h:t]=[h: ?t]
?e=e
$l=limit(iterate?(init l++[@(last l)]))

オンラインでお試しください！

リスト一致を使用して、ベースを変換せずに答えを生成します。

• ? :: [Char] -> [Char] 繰り越しを実行します。
• @ :: Char -> Char'9'との間のギャップを考慮して、1ずつ増加します'z'。
• $ :: [Char] -> [Char]最後の文字をインクリメントし?、値が安定するまで適用します。

R、152 123バイト

function(x)f(utf8ToInt(x),10)
f=function(x,n,y=x[n]){x[n]=y+(y==57)*39+(y==122)*(-75)+1
"if"(y==122,f(x,n-1),intToUtf8(x))}

オンラインでお試しください！

まったく異なるアプローチ。ASCIIコードポイントを取得し、s がなくなるまで右端のコードポイントを再帰的に「インクリメント」します0（（57）からa（97）にジャンプし、z（122）から0（48）に戻ります）z。文字列に戻します。

古いバージョン

function(s,w=gsub("(z)(?=\\1*$)","0",s,,T),x=regexpr(".0*$",w)[1],y=substr(w,x,x),z=chartr("0-9a-z","1-9a-z0",y))sub(p(y,"(0*$)"),p(z,"\\1"),w)
p=paste0

オンラインでお試しください！

これはすべてテキスト操作であり、Rコードゴルフとは連動しません。

z文字列の最後のすべてをに置き換えます0。新しく作成された末尾0sの前の最後の要素の場所を見つけます。次のベース36桁を見つけます。変更を加えます。オンラインチューリングマシンシミュレータソリューションをかろうじて打ち負かしたことを嬉しく思います。

星空、325バイト

     + , , , , , , , , , ,     +      +   +   +`* +          + +* + +**      + * +* * '    +           + +* +* +* +*      +* `     +  + +                + +  *       +* *  '    +      +*           + +* +* +*  `   +   +           + +* +  *  **   +  + +'    +    +   ` +           + +* +  *    * .           + +* +  *   * +   '

オンラインでお試しください！

説明：

Put-a-zero-at-the-base-of-the-stack
|     +
Read-10-digits
| , , , , , , , , , ,
Initialise-next-stack
|     +
Initialise-carry-bit
|      +
|   +   +
Do
|`
    Top-of-stack:-[output-stack]-[carry-bit]-[next-value]
    Add-Carry-bit-to-digit
    |*

    Compare-with-58-("9"=57)
    | +
    5-double-triple-sub1-double
    |          + +* + +**      + * +*
    Take-difference
    | *
    If-one-above-"9"
    | '
        set-to-"a"=97=6-double-double-double-double-add1
        |    +
        |           + +* +* +* +*      +*
    | `

    Initialise-next-carry-bit
    |     +
    |  +

    Compare-with-123-("z"=122)
    | +
    11-squared-add2
    |                + +  *       +*
    Take-difference
    | *
    If-one-above-"z"
    |  '
        Delete-current-value
        |    +
        set-carry-bit
        |      +*
        Set-to-"0"=48
        |           + +* +* +*
    |  `

    Push-value-to-stack
    |   +   +
    |           + +* +  *
    |  **

    |   +  +
While-next-value-is-not-null
| +'

Pop-carry-bit-and-null-string-terminator
|    +    +
Do
|   `
    Get-top-value
    | +
    |           + +* +  *
    |    *

    Print-it
    | .

    Pop-the-value-off-the-stack
    |           + +* +  *
    |   *
While-stack-is-not-null
| +   '

Wolfram言語（Mathematica）、39バイト

IntegerString[#~FromDigits~36+1,36,10]&

オンラインでお試しください！

Python 3.6+およびgmpy2、62バイト

from gmpy2 import*;f=lambda s:f'{digits(mpz(s,36)+1,36):0>10}'

オンラインでお試しください！

（gmpy2はPython標準ライブラリの一部ではないため、個別にインストールする必要があります）

Pyke、11バイト

? b!!R+bhbt

ここで試してみてください！

? b         - Change default base of `base` command to 36 
            -  This is kind of clever because it modifies the list of characters 
            -  the command uses to exactly the same as it was originally, whilst
            -  forcing an overwrite from the default settings of 10. 
            -  The default setup works for base 36, you just have to specify it
            -  time when using the command.
            -  Literally `b.contents = modify(b.contents, func=lambda: noop)`
   !!       - The previous command returns `0123456789abcdefghijklmnopqrstuvwxyz`
            -  So we convert it into a 1 with (not not ^) for the following command:
     R+     -     "1"+input
       b    -    base(^, 36)
        h   -   ^ + 1
         b  -  base(^, 36)
          t - ^[1:]

次の言語変更で2バイト短くなる可能性があります：16進モードを使用する場合、base_36およびbase_10の使用をすべてbase_92に変更します（このコンテキストでは実際にはベース92ではありません）

sed、94バイト

s/$/#:0123456789abcdefghijklmnopqrstuvwxyz#0/
:l
s/\(.\)#\(.*:.*\1\)\(#*.\)/\3\2\3/
tl
s/:.*//

オンラインでお試しください！

Sedは、ルックアップによって文字を変更する必要があるため、多くの問題を抱えています。

Zsh、41 36バイト

echo ${(l:10::0:)$(([##36]36#$1+1))}

オンラインでお試しください！

ゼリー、21バイト

ØBḊiⱮḅ‘bɗ36Ż9¡ṫ-9‘ịØB

オンラインでお試しください！

大文字を使用します。TIOリンクは、小文字/混合のケースも許可します。