Nomor yang tidak menarik (yang sama sekali tidak saya sesuaikan untuk tantangan ini) dibuat seperti ini:

1. Ambil bilangan bulat positif N
2. Buat angka O baru dengan menambahkan angka N di akhir N
3. Angka terakhir yang tidak menarik adalah O * N

Misalnya untuk N = 12:

1. O = 1212
2. O * N = 1212 * 12
3. Angka terakhir adalah 14544

Memasukkan

Bilangan bulat positif N (N> 0) atau setara dengan bahasa Anda. Anda tidak harus menangkap input yang salah.

Keluaran

Nomor tidak menarik yang sesuai.

Uji kasus

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

Mencetak gol

Kode terpendek dalam Bytes menang.

05AB1E , 3 byte

Ы*

Dijelaskan

Ð    # triplicate input
 «   # conactenate
  *  # multiply

Cobalah online

JavaScript (ES6), 10 byte

_=>(_+_)*_

Perlu dipanggil dengan argumen sebagai a String, bukan a Number.

Pemakaian:

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

-3 byte berkat saran @Quill .

Java 8, 29 26 25 21 Bytes

Tuhan memberkati 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>

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 byte

*s+`

Penjelasan:

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

Uji di sini .

Emacs, 17 byte

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

Penjelasan

• (*SPACEmenambahkan (*titik (sebelum nomor);
• C-SPACEC-EM-Y Pilih dan salin nomornya;
• SPACE menambahkan karakter spasi pada titik (setelah nomor);
• C-YC-Y menempelkan dua kali angka pada titik;
• )menambahkan )di akhir;
• C-J menginterpretasikan baris sebagai ekspresi LISP dan mencetak hasilnya.

Contoh

Kursor diwakili oleh sebuah pipa ( |)

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

Hasil

(* 174 174174)
30306276|

C #, 19 23 byte

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

Tanpa string, 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

Nah, ini harus menjadi jawaban Python terpendek yang pernah saya tulis dalam waktu tersingkat. Ini adalah fungsi lambda anonim yang dapat dieksekusi dengan memberi nama apa pun yang Anda inginkan dan kemudian menyebutnya seperti fungsi normal yang dibungkus print(). Misalnya, jika input Anda 12, dan fungsinya bernama H, ini akan disebut seperti print(H(12)).

Cobalah secara Online! (Ideone)

Perhatikan bahwa ini hanya berfungsi untuk nilai naik dan sama dengan 9223372036854775807karena nilai yang lebih tinggi dan repr()menempatkan a Ldi akhir bilangan bulat. Oleh karena itu, untuk nilai yang lebih besar dari 9223372036854775807, versi 24 byte ini akan menjadi yang berfungsi:

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

Coba Ini Online! (Ideone)

Jelly, 4 Bytes

;DḌ×

Cobalah online

Penjelasan

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

Versi sebelumnya (48 byte, tanpa fungsi matematika), menyimpan 16 byte berkat @LeakyNun, 1 byte berkat @FryAmTheEggman, 4 byte berkat @TobySpeight:

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

Panggil f()dengan satu argumen, nomor, dan mengembalikan nomor yang tidak menarik yang sesuai.

Program uji

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

Hasil tes:

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

Cobalah online!

Dyalog APL , 7 byte

⊢×#⍎⍕,⍕

⍕ representasi string

⍕, representasi string yang diawali

#⍎ buat menjadi angka (dalam root namespace)

⊢× kalikan dengan nomor asli

J, 7 byte

*,~&.":

Penjelasan

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

Retina , 27 20 byte

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

Mendapat sedikit lambat untuk input besar, karena sebelum tahap terakhir hasilnya diwakili dalam unary.

Cobalah online! (Baris pertama memungkinkan suite tes yang dipisahkan dengan linefeed.)

Penjelasan

Saya akan menggunakan 2sebagai input contoh (karena representasi unary menjadi sedikit sulit untuk input yang lebih besar).

Tahap 1: Substitusi

^
$_$*: $_

Dengan mencocokkan awal string dengan ^kami hanya menambahkan beberapa hal. $_mengacu pada string input itu sendiri dan $*:berarti kami memasukkan banyak titik dua. Jadi kita dapatkan:

:: 22

Tahap 2: Pergantian

:
$_$*:

Sekarang kami mencocokkan setiap :dan menggantinya dengan $_$*:. Tentu saja, kali $_ini tidak mengevaluasi ke integer (tetapi :: 22dalam contoh kita), tetapi $*hanya mencari desimal pertama dalam string, jadi ini mengevaluasi input yang digabungkan dengan dirinya sendiri ( Odalam spesifikasi tantangan). Kami akan berakhir dengan N*Otitik dua, diikuti oleh O:

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

Tahap 3: Cocokkan

:

Yang tersisa hanyalah menghitung :s untuk mengkonversi dari unary back ke desimal, yang persis seperti apa tahap ini.

CJam , 8 byte

ri_`_+i*

Cobalah online!

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

Jelly, 8 6 byte

ŒṘẋ2v×

Cobalah online!

Penjelasan

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

Atur baris menjadi 2 dengan sendirinya dikalikan dengan sendirinya

Brachylog , 7 byte

:?c:?*.

Penjelasan

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

Python, 42 byte

Pendekatan aritmatika murni, tanpa string!

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

Ide itu!

Matlab / Oktaf, 20 byte

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

Ini adalah fungsi anonim yang mengambil input sebagai string.

Contoh penggunaan:

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

Atau coba online dengan ideone .

Penjelasan

Kode membangun string dengan menggabungkan string input dua kali, lalu karakter *(yang memiliki kode ASCII 42), kemudian string lagi. String yang digabungkan kemudian dievaluasi.

MATL , 6 byte

tVthU*

Cobalah online!

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]

Mengambil input sebagai argumen baris perintah, output ke STDOUT.

Ini hanya bekerja di zsh, tapi di sini 15 byte di Bash menggunakan echobukan <<<:

echo $[$1$1*$1]

Perl, 11 byte

$_*=$_ x2

+ pdan lbendera.

(dijalankan dengan perl -ple '$_*=$_ x2')

-2 byte berkat pipa.

Excel VBA, 35 Bytes

Sub disebut dengan nomor, kotak pesan mengembalikan jawaban

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

Alternatif Excel VBA, 42 Bytes

Angka yang diberikan dalam rumus, mengembalikan jawaban.

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

Lua, 20 Bytes

Dibawa dalam argumen baris perintah, dan output melalui STDOUT

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

Dan ungolfed sebagai @LeakyNun bertanya dalam komentar :)

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*

Coba di sini!

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

Juga 5 byte dengan input string

+bRb*
+]mbB

PHP, 25 24 byte

Tag pembuka pendek sangat berguna untuk beberapa tantangan golf, untungnya ini salah satunya. Sayangnya, prioritas operator adalah kebalikan dari urutan yang harus Anda lakukan sehingga diperlukan banyak tanda kurung.

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

sunting: Saya menyadari bahwa melihat bagaimana saya menggunakan tanda kurung, saya dapat secara efektif melewati operator gabungan dengan mengubah urutan tertulis dari operasi di sekitar.

dc, 11 10 byte

ddZAr^1+**

Saya tahu bahwa pada akhirnya saya akan menemukan kegunaan untuk Zperintah!

Pengoperasiannya cukup sederhana - hitung digitnya, ambil 10 pangkat hingga kekuatan itu dan tambahkan satu. Ini memberikan pengganda yang menggabungkan angka dengan dirinya sendiri. Kemudian gandakan saja.

I / O menggunakan stack, seperti biasa untuk dc.

Program lengkap

Inilah yang saya gunakan untuk tes:

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

Dua perintah tambahan memberi kita I / O pipa.

Tes

$ 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

Terima kasih kepada Sir Biden XVII (1 byte).

Mumps, 11 byte

R I W I_I*I

Ini adalah salah satu tantangan golf langka di mana keistimewaan gondong bisa sangat berguna. Pertama, semua variabel adalah string, dan semua persamaan matematika secara ketat dievaluasi kiri-ke-kanan (seperti dalam: bukan PEMDAS), jadi 1 + 2 * 4 = 12 di Mumps bukannya = 9 seperti yang PEMDAS inginkan. Jadi, (hampir tidak) tidak diserang:

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

Kata hati-hati - karena rasa Mumps yang saya gunakan (InterSystems Ensemble) tidak menggemakan carriage return untuk stdin, input dan nomor output akan tampak digabungkan. Untuk memperbaiki / meningkatkan keterbacaan, Anda perlu menambahkan dua byte dan menambahkan manual CR / LF, dengan demikian:

R I W !,I_I*I

Namun, karena saya tidak melihat persyaratan itu dalam aturan tantangan, saya cukup yakin bahwa saya baik dengan kode yang lebih pendek. Jika saya salah, silakan LART saya dan saya akan mengubah jawaban saya. :-)

PowerShell, 25 , 18 byte

Terima kasih TessellatingHeckler untuk mengingatkan saya betapa PS sangat menyukai pipeline.

18 byte baru:

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

Lama 25 byte:

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

Penjelasan:

# 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

Pengujian (simpan sebagai boring.ps1):

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

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

Jelas bukan jawaban yang menang, tetapi menyenangkan terlepas dari!

Batch, 27 20 18 byte

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

Sunting: Disimpan 7 byte berkat @TessellatingHeckler. Menyimpan 2 byte lebih lanjut berkat @ EʀɪᴋᴛʜᴇGᴏʟғᴇʀ.