つまらない数（私は完全にだけ、この挑戦のためにアップしませんでした）このように作成されます。

1. 正の整数Nを取る
2. Nの末尾にNの数字を追加して、新しい数値Oを作成します
3. 最終的な興味のない数はO * Nです

たとえば、N = 12の場合：

1. O = 1212
2. O * N = 1212 * 12
3. 最終番号は14544です

入力

正の整数N（N> 0）または言語の同等の値。間違った入力をキャッチする必要はありません。

出力

対応する興味のない番号。

テストケース

  1 -> 11
  2 -> 44
  3 -> 99
 10 -> 10100
174 -> 30306276

得点

バイト単位の最短コードが優先されます。

05AB1E、3バイト

Ы*

説明した

Ð    # triplicate input
 «   # conactenate
  *  # multiply

オンラインで試す

JavaScript（ES6）、10バイト

_=>(_+_)*_

引数としてa Stringではなくa で呼び出す必要がありますNumber。

使用法：

(_=>(_+_)*_)('3')
99

@Quillの提案のおかげで、-3バイト。

Java 8、29 26 25 21バイト

ゴッドブレスラムダ

c->new Long(c+""+c)*c

c-> Long.decode（c + "" + c）* c;

vim、11

C<C-r>=<C-r>"<C-r>"*<C-r>"<cr>

crcrcrcrcr ...

C       change (delete and enter insert mode) until the end of the line
<C-r>=  insert an expression via the special "expression register"
<C-r>"  insert the contents of the default register (what we just C'd)
<C-r>"  ... again
*       multiplied by
<C-r>"  the input (again)
<cr>    insert the result of this expression

Pyth、5 4バイト

*s+`

説明：

    Q    input
   `     representation, basically str(Q)
  +  Q   add Q to its own string form
 s       parse int
*     Q  multiply by input
         print

ここでテストしてください。

Emacs、17バイト

(*SPACEC-SPACEC-EM-YSPACEC-YC-Y)C-J

説明

• (*SPACE(*ポイント（数の前）に追加します。
• C-SPACEC-EM-Y 番号を選択してコピーします。
• SPACE ポイントに（数字の後に）スペース文字を追加します。
• C-YC-Y ポイントに数値の2倍の値を貼り付けます。
• ))最後に追加します。
• C-J 行をLISP式として解釈し、結果を出力します。

例

パイプ（|）で表されるカーソル

• |174
• (*SPACE (* |174
• C-SPACEC-EM-Y (* 174|
• SPACE (* 174 |
• C-YC-Y (* 174 174174|
• ) (* 174 174174)|
• C-J

結果

(* 174 174174)
30306276|

C＃、19 23バイト

n=>int.Parse(""+n+n)*n;

文字列なし、47バイト

n=>{int i=1;while(i<=n)i*=10;return(i+1)*n*n;};

Python 2.7、21バイト：

lambda f:int(`f`*2)*f

まあ、これは私がこれまで最短時間で書いたPythonの最短回答でなければなりません。これは匿名のラムダ関数で、任意の名前を付けてから、通常の関数のように呼び出すことで実行できますprint()。たとえば、入力が12で、関数の名前がのH場合、これはのように呼び出されprint(H(12))ます。

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

これが唯一の値の最大動作と等しいことに留意されたい9223372036854775807任意の高い値とするのでrepr()プットL整数の末尾。したがって、より大きい値の場合9223372036854775807、この24バイトバージョンが機能します。

lambda f:int(str(f)*2)*f

このオンラインをお試しください！（イデオン）

ゼリー、4バイト

;DḌ×

オンラインで試す

説明

;DḌ×    Main link. argument : N

 D      Decimal; Yield the digits of N
;       Concatenate N and its digits
  Ḍ     Convert to integer; We get O
   ×    Multiply O and N

C、70 68 54 53 52 44

f(n){return(pow(10,(int)log10(n)+1)*n+n)*n;}

以前のバージョン（48バイト、数学関数なし）、@ LeakyNunのおかげで16バイト、@ FryAmTheEggmanのおかげで1バイト、@ TobySpeightのおかげで4バイト節約：

f(n,d,i){for(i=d=n;d;d/=10)i*=10;return(i+n)*n;}

f()1つの引数、番号で呼び出し、対応する興味のない番号を返します。

テストプログラム

#include <stdio.h>
#include <stdlib.h>

int main(int argc, char **argv)
{
    while (*++argv) {
        int n = atoi(*argv);
        printf("%d -> %d\n", n, f(n));
    }
    return 0;
}

試験結果：

$ ./84712 1 2 3 4 10 174
1 -> 11
2 -> 44
3 -> 99
4 -> 176
10 -> 10100
174 -> 30306276

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

Dyalog APL、7 バイト

⊢×#⍎⍕,⍕

⍕ 文字列表現

⍕, 文字列表現を追加する

#⍎ 数にする（ルート名前空間内）

⊢× 元の数を掛ける

J、7バイト

*,~&.":

説明

*,~&.":  Input: n
     ":  Format n as a string
 ,~&.    Reflect and join the string to make "nn"
         and parse the string to get a number
*        Multiply that number by n

網膜、27 20バイト

^
$_$*: $_
:
$_$*:
:

最後のステージの前に結果が単項で表されるため、大きな入力では少し遅くなります。

オンラインでお試しください！（最初の行は、改行で区切られたテストスイートを有効にします。）

説明

2入力例として使用します（単項表現は、大きな入力では少し扱いに​​くいため）。

ステージ1：置換

^
$_$*: $_

文字列の先頭と一致させることにより、^単に何かを追加します。$_入力文字列自体を参照し、$*:その数のコロンを挿入することを意味します。だから我々は得る：

:: 22

ステージ2：置換

:
$_$*:

今、私たちは毎回一致:させ、それをに置き換え$_$*:ます。もちろん、今回$_は整数に評価されませんが（:: 22この例では）、$*文字列の最初の10進数を検索するだけであるため、（Oチャレンジ仕様で）それ自体に連結された入力に評価されます。最後にN*Oコロンが続きますO：

:::::::::::::::::::::::::::::::::::::::::::: 22

ステージ3：試合

:

残っているのは:、単項から10進数に戻すためにsをカウントすることです。これがまさにこの段階で行われることです。

CJam、8バイト

ri_`_+i*

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

r     e# Read input
i     e# Convert to integer
_     e# Duplicate
`     e# Convert to string
_     e# Duplicate
+     e# Concatenate
i     e# Convert to integer
*     e# Multiply. Implicitly display

ゼリー、8 6 バイト

ŒṘẋ2v×

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

説明

ŒṘẋ2v× - Main link. Left argument: the number to convert

     × - Multiply
    v  - an evaluation of the left argument
ŒṘ     - converted to string
  ẋ    - multiplied by
   2   - two and the left argument

Awk、13バイト

$0=($0$0)*$0

行をそれ自体の2倍に設定します

Brachylog、7バイト

:?c:?*.

説明

:?c      Concatenate Input to itself
   :?*.  Output is that concatenation times Input

Python、42バイト

文字列なしの純粋な算術アプローチ！

f=lambda n,m=1:m<=n and f(n,m*10)or-~m*n*n

できた！

Matlab / Octave、20バイト

@(x)eval([x x 42 x])

これは、入力を文字列として受け取る匿名関数です。

使用例：

>> f = @(x)eval([x x 42 x])
f = 
    @(x)eval([x,x,42,x])
>> f('12')
ans =
       14544

または、ideoneを使用してオンラインで試してください。

説明

このコードは、入力文字列を2回連結し、次に文字*（ASCIIコード42）を連結し、次に文字列を連結して、文字列を作成します。次に、連結された文字列が評価されます。

MATL、6バイト

tVthU*

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

tV     % Input number implicitly. Duplicate and convert to string
th     % Duplicate and concatenate the two equal strings
U      % Convert to number
*      % Multiply

zsh、13バイト

<<<$[$1$1*$1]

入力をコマンドライン引数として受け取り、STDOUTに出力します。

これはzshでのみ機能しますが、Bashechoでは15バイトが代わりに使用されます<<<：

echo $[$1$1*$1]

Perl、11バイト

$_*=$_ x2

+ pおよびlフラグ。

（で実行perl -ple '$_*=$_ x2'）

パイプのおかげで-2バイト。

Excel VBA、35バイト

Subは番号で呼び出され、msgboxは応答を返します

Sub B(a)
MsgBox (a & a) * a
End Sub

代替Excel VBA、42バイト

式で与えられた数値は、答えを返します。

Function B(a)
B = (a & a) * a
End Function

Lua、20バイト

コマンドライン引数を取り、STDOUT経由で出力します

a=...print((a..a)*a)

そして、@ LeakyNunがコメントで尋ねたように、手放しました:)

a=...       -- alias for the first argument
print(
     (a..a) -- concatenate a with itself, equivalent to a:rep(2)
     *a)    -- multiply the resulting number by a

パイク、5 4バイト

`+b*

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

`    -    str(input)
 +   -   ^+input  (convert to string implicitly)
  b  -  int(^)
   * - ^*input

文字列入力のある5バイト

+bRb*
+]mbB

PHP、25 24バイト

短いオープニングタグは、驚くほど少数のゴルフチャレンジに役立ちます。幸いなことに、これはそのうちの1つです。残念ながら、演算子の優先順位は、それらを実行するのに必要な順序の反対であるため、多くの括弧が必要です。

<?=($a=$argv[1])*"$a$a";

編集：私はブラケットをどのように使用しているかと思うと、操作の書かれた順序を変更することで連結演算子を効果的にスキップできることに気付きました。

dc、11 10バイト

ddZAr^1+**

最終的にはコマンドの使用法が見つかることを知っていましたZ！

操作は非常に簡単です-桁を数え、その累乗の10を取り、1を追加します。これにより、数値とそれ自体を連結する乗数が得られます。その後、単に乗算します。

I / Oは、通常のdcのようにスタックを使用します。

フルプログラム

これは私がテストに使用したものです：

#!/usr/bin/dc
?
ddZAr^1+**
p

2つの追加コマンドは、パイプラインI / Oを提供します。

テスト

$ for i in 1 2 3 10 174; do printf '%d -> ' $i; ./84712.dc <<<$i; done
1 -> 11
2 -> 44
3 -> 99
10 -> 10100
174 -> 30306276

感謝はバイデンVII XVII（1バイト）によるものです。

おたふく風邪、11バイト

R I W I_I*I

これは、おたふく風邪の特異性が非常に重宝する、珍しいゴルフチャレンジの1つです。まず、すべての変数は文字列であり、すべての数学方程式は厳密に左から右に評価されます（例：PEMDASではありません）。だから、（ほとんど）権利を失った：

R I ;     Read from stdin to variable I
W I_I*I ; Write out I concatenated with I, then multiplied by I.

注意事項-使用しているMumpsのフレーバー（InterSystems Ensemble）はstdinの復帰改行をエコーし​​ないため、入力番号と出力番号は連結して表示されます。それを修正する/読みやすさを高めるには、2バイトを追加し、手動のCR / LFを追加する必要があります。

R I W !,I_I*I

ただし、チャレンジのルールにその要件が見られなかったため、短いコードで十分だと確信しています。間違えた場合は、お気軽にLARTでお問い合わせください。回答を修正します。:-)

PowerShellの、25、18のバイト

TessellatingHeckler、PSがパイプラインをどれだけ気に入っているかを思い出してくれてありがとう。

新しい18バイト：

process{$_*"$_$_"}

古い25バイト：

param($a);[int]"$a$a"*$a

説明：

# new
process{$_*"$_$_"}
process{         } # runs code block once for each passed item
        $_*        # multiple the first parameter
           "$_$_"  # concatenate as a string for ease
                   # in this case, the order does the typecasting for us
# old
param($a);[int]"$a$a"*$a
param($a)                 # assigns the first passed parameter to variable $a
         ;                # line terminator
          [int]           # type cast string "$a$a" to int32
               "$a$a"     # convert $a$a to string for easy concatenation
                     *$a  # multiply by $a

テスト（boring.ps1として保存）：

# new
12 | .\boring.ps1
14544
174 | .\boring.ps1
30306276

# old
.\boring.ps1 12
14544
.\boring.ps1 174
30306276

間違いなく勝利の答えではなく、関係なく楽しいです！

バッチ、27 20 18バイト

@cmd/cset/a%1%1*%1

編集：@TessellatingHecklerのおかげで7バイトを保存しました。@EʀɪᴋᴛʜᴇGᴏʟғᴇʀのおかげでさらに2バイト節約できました。