Một con số không thú vị (mà tôi hoàn toàn không tạo ra chỉ cho thử thách này) được tạo ra như thế này:

1. Lấy số nguyên dương N
2. Tạo số O mới bằng cách thêm các chữ số của N vào cuối N
3. Số không quan tâm cuối cùng là O * N

Ví dụ cho N = 12:

1. O = 1212
2. O * N = 1212 * 12
3. Số cuối cùng là 14544

Đầu vào

Số nguyên dương N (N> 0) hoặc tương đương với ngôn ngữ của bạn. Bạn không phải bắt đầu vào không chính xác.

Đầu ra

Số không quan tâm tương ứng.

Các trường hợp thử nghiệm

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

Chấm điểm

Mã ngắn nhất tính bằng byte thắng.

05AB1E , 3 byte

Ы*

Giải thích

Ð    # triplicate input
 «   # conactenate
  *  # multiply

Dùng thử trực tuyến

JavaScript (ES6), 10 byte

_=>(_+_)*_

Cần được gọi với đối số là a String, không phải a Number.

Sử dụng:

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

-3 byte nhờ đề xuất của @Quill .

Java 8, 29 26 25 21 byte

Chúa phù hộ lambda

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

c-> Long.decode (c + "" + c) * c;

vim, 11

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

crcrcrcr ...

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

Bình thường, 5 4 byte

*s+`

Giải trình:

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

Kiểm tra nó ở đây .

Emacs, 17 byte

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

Giải trình

• (*SPACEthêm (*tại điểm (trước số);
• C-SPACEC-EM-Y Chọn và sao chép số;
• SPACE thêm một ký tự khoảng trắng tại điểm (sau số);
• C-YC-Y dán hai lần số tại điểm;
• )thêm )vào cuối;
• C-J diễn giải dòng dưới dạng biểu thức LISP và in kết quả của nó.

Mẫu mực

Con trỏ đại diện bởi một đường ống ( |)

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

Kết quả

(* 174 174174)
30306276|

C #, 19 23 byte

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

Không có chuỗi, 47 byte

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

Python 2.7, 21 byte:

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

Chà, đây phải là câu trả lời Python ngắn nhất tôi từng viết trong khoảng thời gian ngắn nhất từ ​​trước đến nay. Đó là một hàm lambda ẩn danh có thể được thực thi bằng cách đặt tên cho nó bất cứ thứ gì bạn muốn và sau đó gọi nó như một hàm bình thường được bọc trong print(). Chẳng hạn, nếu đầu vào của bạn là 12và hàm được đặt tên H, thì cái này sẽ được gọi như thế print(H(12)).

Dùng thử trực tuyến! (Ý)

Lưu ý rằng điều này chỉ hoạt động cho các giá trị lên và bằng với 9223372036854775807bất kỳ giá trị cao hơn nào và repr()đặt a Lở cuối số nguyên. Do đó, đối với các giá trị lớn hơn 9223372036854775807, phiên bản 24 byte này sẽ là phiên bản hoạt động:

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

Hãy thử trực tuyến này! (Ý)

Thạch, 4 byte

;DḌ×

Dùng thử trực tuyến

Giải trình

;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;}

Phiên bản trước (48 byte, không có chức năng toán học), đã lưu 16 byte nhờ @LeakyNun, 1 byte nhờ @FryAmTheEggman, 4 byte nhờ @TobySpeight:

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

Gọi f()với một đối số, số và nó trả về số không quan tâm tương ứng.

Chương trình kiểm tra

#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;
}

Kết quả kiểm tra:

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

Hãy thử trực tuyến!

APL Dyalog , 7 byte

⊢×#⍎⍕,⍕

⍕ đại diện chuỗi

⍕, đại diện chuỗi ký tự

#⍎ tạo thành số (trong không gian tên gốc)

⊢× nhân với số gốc

J, 7 byte

*,~&.":

Giải trình

*,~&.":  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

Võng mạc , 27 20 byte

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

Nhận được một chút chậm cho đầu vào lớn, bởi vì trước giai đoạn cuối, kết quả được thể hiện bằng unary.

Hãy thử trực tuyến! (Dòng đầu tiên cho phép bộ kiểm tra được phân tách bằng nguồn cấp.)

Giải trình

Tôi sẽ sử dụng 2làm đầu vào ví dụ (vì các biểu diễn đơn nhất có một chút khó sử dụng cho các đầu vào lớn hơn).

Giai đoạn 1: Thay thế

^
$_$*: $_

Bằng cách kết hợp đầu chuỗi với ^chúng tôi chỉ cần thêm một số thứ. $_đề cập đến chính chuỗi đầu vào và $*:có nghĩa là chúng ta chèn nhiều dấu hai chấm. Vì vậy, chúng tôi nhận được:

:: 22

Giai đoạn 2: Thay thế

:
$_$*:

Bây giờ chúng tôi phù hợp với tất cả :và một lần nữa thay thế nó với $_$*:. Tất nhiên, lần $_này không đánh giá một số nguyên (nhưng :: 22trong ví dụ của chúng tôi), mà $*chỉ tìm số thập phân đầu tiên trong chuỗi, do đó, điều này đánh giá đầu vào được nối với chính nó ( Otrong đặc tả thách thức). Chúng tôi sẽ kết thúc với N*Odấu hai chấm, theo sau O:

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

Giai đoạn 3: Trận đấu

:

Tất cả những gì còn lại là đếm số :s để chuyển đổi từ unary trở lại thập phân, đó chính xác là những gì giai đoạn này làm.

CJam , 8 byte

ri_`_+i*

Hãy thử trực tuyến!

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

Thạch, 8 6 byte

ŒṘẋ2v×

Hãy thử trực tuyến!

Giải trình

ŒṘẋ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 byte

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

Đặt dòng thành 2 của chính nó nhân với chính nó

Brachylog , 7 byte

:?c:?*.

Giải trình

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

Python, 42 byte

Phương pháp số học thuần túy, không có chuỗi!

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

Nghĩa là nó!

Matlab / Octave, 20 byte

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

Đây là một hàm ẩn danh lấy đầu vào là một chuỗi.

Ví dụ sử dụng:

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

Hoặc thử trực tuyến với ideone .

Giải trình

Mã xây dựng một chuỗi bằng cách nối chuỗi đầu vào hai lần, sau đó là ký tự *(có mã ASCII 42), sau đó chuỗi lại. Chuỗi nối sau đó được đánh giá.

MATL , 6 byte

tVthU*

Hãy thử trực tuyến!

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

zsh, 13 byte

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

Lấy đầu vào làm đối số dòng lệnh, xuất ra STDOUT.

Điều này chỉ hoạt động trong zsh, nhưng đây là 15 byte trong Bash sử dụng echothay vì <<<:

echo $[$1$1*$1]

Perl, 11 byte

$_*=$_ x2

+ pvà lcờ.

(chạy với perl -ple '$_*=$_ x2')

-2 byte nhờ đường ống.

VBA Excel, 35 byte

Sub được gọi với số, hộp thư trả lời

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

VBA Excel thay thế, 42 byte

Số được đưa ra trong công thức, trả lời câu trả lời.

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

Lua, 20 byte

Tham gia vào một đối số dòng lệnh và xuất ra thông qua STDOUT

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

Và vô dụng như @LeakyNun đã hỏi trong bình luận :)

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

Pyke, 5 4 byte

`+b*

Hãy thử nó ở đây!

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

Ngoài ra 5 byte với đầu vào chuỗi

+bRb*
+]mbB

PHP, 25 24 byte

Thẻ mở ngắn rất hữu ích cho một vài thử thách đáng ngạc nhiên khi chơi golf, may mắn thay, đây là một trong số đó. Thật không may, quyền ưu tiên của nhà điều hành là ngược lại với thứ tự bạn cần thực hiện chúng trong rất nhiều dấu ngoặc là cần thiết.

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

chỉnh sửa: Tôi nhận ra rằng dù sao tôi cũng đang sử dụng dấu ngoặc, tôi có thể bỏ qua toán tử ghép một cách hiệu quả bằng cách thay đổi thứ tự bằng văn bản của các thao tác xung quanh.

dc, 11 10 byte

ddZAr^1+**

Tôi biết rằng cuối cùng tôi sẽ tìm thấy một sử dụng cho Zlệnh!

Hoạt động khá đơn giản - đếm các chữ số, lấy 10 chữ số tăng lên và thêm một. Điều này cung cấp một số nhân kết hợp số với chính nó. Sau đó chỉ cần nhân lên.

I / O sử dụng stack, như thường lệ cho dc.

Chương trình đầy đủ

Đây là những gì tôi đã sử dụng cho các bài kiểm tra:

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

Hai lệnh bổ sung cung cấp cho chúng tôi đường ống I / O.

Xét nghiệm

$ 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

Cảm ơn là do Sir Biden XVII (1 byte).

Quai bị, 11 byte

R I W I_I*I

Đây là một trong những thử thách golf hiếm hoi mà các đặc điểm riêng của Quai bị có thể rất hữu ích. Đầu tiên, tất cả các biến là các chuỗi và tất cả các phương trình toán học được đánh giá nghiêm ngặt từ trái sang phải (như trong: không phải PEMDAS), vì vậy 1 + 2 * 4 = 12 trong Quai bị thay vì = 9 theo cách PEMDAS sẽ làm. Vì vậy, (hầu như không) vô dụng:

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

Lưu ý - vì hương vị của Quai bị mà tôi đang sử dụng (Bộ đồng bộ hệ thống) không lặp lại lợi nhuận vận chuyển cho stdin, số đầu vào và đầu ra sẽ xuất hiện nối liền. Để khắc phục điều đó / tăng khả năng đọc, bạn cần thêm hai byte và thêm CR / LF thủ công, do đó:

R I W !,I_I*I

Tuy nhiên, vì tôi không thấy yêu cầu đó trong các quy tắc của thử thách, tôi khá chắc chắn rằng tôi tốt với mã ngắn hơn. Nếu tôi nhầm, xin vui lòng LART tôi và tôi sẽ sửa đổi câu trả lời của tôi. :-)

PowerShell, 25 , 18 byte

Cảm ơn bạn TessellatingHeckler đã nhắc nhở tôi rằng PS yêu thích đường ống này như thế nào.

18 byte mới:

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

25 byte cũ:

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

Giải trình:

# 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

Kiểm tra (lưu dưới dạng nhàm chán.ps1):

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

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

Chắc chắn không phải là câu trả lời chiến thắng, nhưng vui vẻ bất kể!

Mẻ, 27 20 18 byte

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

Chỉnh sửa: Đã lưu 7 byte nhờ @TessellatingHeckler. Đã lưu thêm 2 byte nhờ @ EʀɪᴋᴛʜᴇGᴏʟғᴇʀ.