前書き

OEISシーケンスA127421は、10進拡張が2つの連続する増加する非負数の連結である数のシーケンスです。簡単に言えば、配列中のすべての数は一緒に入れることによって形成されているNとN + 1の値が整数、いくつかの非負のためにN。最初のいくつかの用語は次のとおりです。

1、12、23、34、45、56、67、78、89、910、1011、1112、1213、1314、1415、1516、1617、1718、1819、1920、2021、2122、2223、2324、2425、 2526、2627、2728、2829、2930、3031、3132、3233、3334、3435、3536、3637、3738、3839、3940、4041、4142、4243、4344、4445、4546、…

チャレンジ

単一の正の整数nを指定すると、OEISシーケンスA127421の最初のnエントリを昇順で出力します。

• 入力および出力は、任意の受け入れ可能な形式にすることができます。文字列または数値は出力に適しています。
• 先行ゼロは許可されません。
• 完全なプログラムまたは機能のいずれかが許可されます。
• この課題のために、nは正で100未満です。
• デフォルトでは、標準の抜け穴は許可されていません。
• この質問はコードゴルフなので、バイト数が最も少なくなります。

• 入力と出力の例を次に示します。

  1 => 1
  2 => 1, 12
  3 => 1, 12, 23
  10 => 1, 12, 23, 34, 45, 56, 67, 78, 89, 910
  

ご質問がありましたら、お気軽にお尋ねください。幸運を。

PSこれは私の最初の挑戦なので、うまくいけばこれはすべて理にかなっています。

編集：数値または文字列を許可する出力制限を削除しました。

ゼリー、3 バイト

ŻVƝ

整数のリストを生成する整数を受け入れる単項リンク

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

どうやって？

ŻVƝ - Link: integer       e.g. 59
Ż   - zero-range               [0,1,2,3,4,5,6, ... ,58,59]
  Ɲ - apply to each pair: i.e: [0,1] or [5,6]  or  [58,59]
 V  -   evaluate* jelly code   1     or 56     or  5859
    -                       -> [1,12,23,45,56, ... 5859]

* When given a list V actually joins the Python string values and evaluates that
  ...so e.g.: [58,59] -> ['58','59'] -> '5859' -> 5859

R、32バイト

strtoi(paste0((x=1:scan())-1,x))

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

MickyTに負けていないので、その答えに賛成票を投じてください！

Python 3、39バイト

f=lambda n:1//n or f'{f(n-1)} {n-1}{n}'

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

Haskell、38 37バイト

f n=("":)>>=zipWith(++)$show<$>[1..n]

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

Cat Wizardに感謝します！

Cubix、19バイト

I.1.W)>OSo;u.uO;@!-

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

これは、次のようにキューブにラップします

    I .
    1 .
W ) > O S o ; u
. u O ; @ ! - .
    . .
    . .

実行する

まだ遊ぶ余裕がありましたが、現時点では

• W 下に向かう上面にリダイレクト
• I1> 入力と1でスタックを設定し、メインループにリダイレクトします
• OSo;u スタックの一番上を出力し、スタックにスペースを追加し、出力し、削除して、uturn
• -!@;Ou)TOSを入力から減算します。0の場合は結果を停止し、その他の場合は結果を出力し、TOSを出力し、TOSをUTURNしてインクリメントします。メインループに戻ります。

Perl 6の、19の 18バイト

{(^$_ Z~1..$_)X+0}

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

連結演算子を使用して0〜n-1の範囲を1〜nで圧縮し、すべての要素に0を追加して数値に強制し、先頭の0を削除する匿名コードブロック。

R、30 29バイト

@Giuseppeのおかげで余分なバイト

10^nchar(n<-1:scan())*(n-1)+n

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

使用した以外は、ほとんどの数学的な解決策、nchar()というよりもfloor(log10())。文字列バージョンよりも短くなったことに本当に驚きました。

APL（Dyalog）、13 12バイト

@FrownyFrogのおかげで1バイト節約

(⍎⍕,∘⍕1∘+)¨⍳

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

ブラキログ、6バイト

⟦s₂ᶠcᵐ

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

説明

⟦         Range: [0, …, Input]
 s₂ᶠ      Find all substrings of length 2
    cᵐ    Map concatenate

パイソン2、42の 41バイト

f=lambda n:n-1and f(n-1)+[`n-1`+`n`]or[1]

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

文字列と整数の混合リストを返す再帰関数

Haskell、34バイト

f n="1":[show=<<[i-1,i]|i<-[2..n]]

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

花、88バイト

rule e<int x>[1(x)]=>[1(x-1),2(str(x)+str(x+1))|1->2];rule c[1(0),2|1->2]=>[2("12")];e!c

Blossomは、私が取り組んでいるグラフプログラミング言語です。入力としてグラフのみを受け取ることができるため、このプログラムは、ラベルが整数である単一のノードで構成されるグラフを想定しています。接続されたエッジのグラフを返し、取得できる配列に最も近いものを形成し、結果のグラフが出力に出力されます。

コードの縮小されていないバージョンは次のとおりです。

rule expand <int x>
    [ 1 (x) ]
 => [ 1 (x-1), 2(str(x)+str(x+1)) | 1->2 ]
where x > 0;

rule clean
    [ 1 (0), 2 ("12") | 1->2 ]
 => [ 2 ("12") ];

expand! clean

2つのルールを定義します。1つはexpand、（現在のグラフに整数値のラベルを持つノードがあります）と呼ばれるもので、増分を連結して別のノードを作成し、値を下げます。また、これらの2つのノード間にエッジを作成します。このルールには、xが0より大きいという条件もあります。

の !Xが0となるまでので、この場合には、それが実行される、それはグラフに適用することができる限りは、このルールを実行しますcleanルールは、この0のノードとエッジを除去します。

ブロッサムはゴルフ用に作られたものではありませんが、それほど悪くはありません。私はそうは思いません。現在、人々がブロッサムコードをテストする簡単な方法はありません（現在作業中のインタープリターはまだ完成しておらず、少しバグがあります）が、これは競合するエントリではありません！

JavaScript（Node.js）、25バイト

f=n=>--n?f(n)+','+n+-~n:1

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

シェークスピア、703バイト

Q.Ajax,.Ford,.Act I:.Scene I:.[enter Ajax and Ford]Ford:Open mind!Scene V:.Ajax:You is the sum of thyself the sum of myself the sum of a big bad fat old red pig a big bad fat old lie!Ford:Open mind!Is you nicer zero?Ajax:If so, you is twice the sum of the sum of twice thyself twice thyself thyself!If so,Let us Scene V!Ford:You a cat!Open heart!Scene X:.Ajax:You is the sum of thyself a pig!Is you worse than a cat?If so,let us Scene C.Remember thyself.You is the sum of the sum of a big old red cute rich cat a big old red cute joy a big old pig!Speak mind!You is a big old red cute rich cat!Speak mind!Recall!Ford:Open heart!You is the sum of thyself a joy!Open heart!Let us Scene X.Scene C:.[exeunt]

ここで試してください

無償版

127421th Night.
Ajax, likes to read the stars.
Ford, someone Ajax can always count on.
Act I:.
Scene I: Ajax reads a star.
[enter Ajax and Ford]
Ford: Open your mind! 
Scene V: Ford counts what ajax has learned.
Ajax: you are the sum of thyself and the sum of myself and the sum of a big bad fat old red pig and a big bad fat old lie!
Ford: Open Your mind! Are you nicer than zero?
Ajax: If so, you are twice the sum of the sum of twice thyself and twice thyself and thyself! 
If so, Let us Scene V!
Ford: You are a cat! Open your heart!

Scene X: Ajax and Ford recall the nights.
Ajax: You are the sum of thyself and a pig! Are you worse than a cat? If so, Let us Scene C.
Remember thyself. 
You are the sum of the sum of a big old red cute rich cat and a big old red cute joy and a big old pig! 
Speak you mind!
You are a big old red cute rich cat! Speak your mind! Recall your finest hour!
Ford: Open your heart! You are the sum of thyself and a joy! Open your heart! Let us Scene X.
Scene C: Fin.
[exeunt]

Groovy、35バイト

{(0..<it)*.with{""+it+++it as int}}

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

.collectの代わりに* .withを使用するというアイデアを思いつきました。何がit+++it解析されるのか分かりませんが、それが同じit++ + itかit + ++it、両方が同じことをするのか。<を.. <に変換してデクリメントすることで<を削除する方法を考えようとしましたが、短くなるとは思いません。

C（gcc）、44 43バイト

f(i){i--&&printf(" %2$d%d"+5*!f(i),i+1,i);}

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

Pyth、9 8 6バイト

ms+`dh

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

説明：

       - implicit output
m      - map function with argument d:
  +    -  concatenate
    d  -  argument d
   `   -  to string
     h -  into implicit d + 1
       - into Q (implicit input)

ゼリー、4バイト

ḶżRV

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

使い方

ḶżRV  Main link. Argument: n

Ḷ     Unlength; yield [0, ..., n-1].
  R   Range; yield [1, ... n].
 ż    Zipwith; yield [[0, 1], ..., [n-1, n]].
   V  Eval; cast each array to string and evaluate, yielding integers.

Python 2、44バイト

for i in range(input()):print`i`*(i>0)+`i+1`

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

05AB1E、6バイト

>GNJ,N

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

説明

>G       # for N in [1 ... input]
  N      # push N
   J     # join stack
    ,    # print
     N   # push N (for next iteration)

LεD<ìï 同じバイト数で機能しますが、リスト出力を使用します

APL（Dyalog Classic）、9バイト

1,2,/⍕¨∘⍳

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

Haskell、37バイト

f x=[[y-1|y>1]++[y]>>=show|y<-[1..x]]

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

Japt -m、6 5バイト

ó2 ¬n

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

いつものように、flagsを知っています。

開梱と仕組み

-m       Convert to range and map...

Uó2 q n
Uó2      Construct [U, U+1]
    q    Join
      n  Convert to number

         Implicit output (Array is printed as comma-delimited values)

C＃（Visual C＃Interactive Compiler）、103 71 64 56バイト

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

i=>{for(int x=0;x<i;)Write($"{(x>0?$",{x}":"")}{++x}");}

非ゴルフ

i => {
    for( int x = 0; x < i; )
        Write( $"{( x > 0 ? $",{x}" : "")}{ ++x }" );
}

完全なコード

Action<Int32> a = i => {
    for( int x = 0; x < i; )
        Write( $"{( x > 0 ? $",{x}" : "")}{ ++x }" );
    };

Int32[]
    testCases = new Int32[] {
        1,
        2,
        3,
        10,
    };

foreach( Int32[] testCase in testCases ) {
    WriteLine( $" Input: {testCase}\nOutput:" );
    a(testCase);
    WriteLine("\n");
}

古いバージョン：

• v1.2、64バイト

  i=>{for(int x=0;x<i;)Write($"{(x>0?$",{x}":"")}{++x}");}

• v1.1、71バイト

  i=>{for(int x=0;x<i;)System.Console.Write($"{(x>0?$",{x}":"")}{++x}");}

• v1.0、103バイト

  i=>{for(int x=0;x<i;)System.Console.Write($"{(x>0?",":"")}{x++*System.Math.Pow(10,$"{x}".Length)+x}");}

リリース

• V1.3 - - 8 bytes-削除Consoleのおかげで再びへ raznagulの
• V1.2 - - 7 bytes-削除Systemのおかげで raznagul
• v1.1 --32 bytes
• v1.0の - 103 bytes-初期ソリューション。

ノート

• 無し

J、14バイト

(,&.":>:)"0@i.

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

ABAP、101バイト

本当にゴルフの言語ではありませんが、私はそれをたくさん楽しんでいます

WHILE x<w.
CLEAR z.
IF x=1.
WRITE x.
ELSE.
CONCATENATE y x INTO z.
WRITE z.
ENDIF.
y=x.
x=x+1.
ENDDO.

Wは入力項、Xは1のカウンター、Yは2番目のパス以降のX-1、Zは連結されたストリングです。

Powershell、27 26バイト

1.."$args"|%{"$p$_";$p=$_}

-1バイト：AdmBorkBorkに感謝

テストスクリプト：

$f = {
1.."$args"|%{"$p$_";$p=$_}
}

&$f 1
""
&$f 2
""
&$f 3
""
&$f 10
""
&$f 46

Python 2、41バイト

lambda l:[`n`[:n]+`n+1`for n in range(l)]

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

PHP、33 32バイト

while($argv[1]--)echo" $i".++$i;

オンラインで試す

旧版

for(;$i<$argv[1];)echo" $i".++$i;     // 33 bytes

Javascript、43 44、46、49、53バイト

n=>[...Array(n)].map((_,a)=>~~(a+(a+1+"")))

以前のバージョン ：

n=>[...Array(n)].map((_,a)=>~~(a+(""+ ++a)))
n=>[...Array(n)].map((_,a)=>0- -(a+(""+ ++a)))
n=>[...Array(n).keys()].map(a=>0- -(a+(""+ ++a)))
n=>[...Array(n).keys()].map(a=>parseInt(a+(""+ ++a)))

@Shaggyのソリューション（私のものよりも優れています）のおかげで3バイト節約しました .keys()