Timbal balik suatu angka (1 / x)

25

Tantangan

Diberi angka (floating-point / desimal), kembalikan timbal baliknya, yaitu 1 dibagi dengan angka. Output harus berupa floating-point / angka desimal, bukan hanya bilangan bulat.

Spesifikasi detail

  • Anda harus menerima input dalam bentuk angka floating-point / desimal ...
    • ... yang memiliki setidaknya 4 digit presisi signifikan (jika perlu).
    • Lebih banyak lebih baik, tetapi tidak diperhitungkan dalam skor.
  • Anda harus mengeluarkan, dengan metode keluaran apa pun yang dapat diterima ...
    • ... kebalikan dari nomor tersebut.
    • Ini dapat didefinisikan sebagai 1 / x, x⁻¹.
    • Anda harus mengeluarkan setidaknya 4 digit presisi (jika perlu).

Input akan positif atau negatif, dengan nilai absolut dalam kisaran [0,0001, 9999] inklusif. Anda tidak akan pernah diberikan lebih dari 4 digit melewati titik desimal, atau lebih dari 4 digit mulai dari angka pertama yang bukan nol. Output harus akurat hingga digit ke-4 dari yang bukan nol pertama.

(Terima kasih @MartinEnder)

Berikut beberapa contoh input:

0.5134
0.5
2
2.0
0.2
51.2
113.7
1.337
-2.533
-244.1
-0.1
-5

Perhatikan bahwa Anda tidak akan pernah diberi input yang memiliki presisi di atas 4 digit.

Berikut adalah contoh fungsi di Ruby:

def reciprocal(i)
    return 1.0 / i
end

Aturan

  • Semua bentuk output yang diterima diizinkan
  • Celah standar dilarang
  • Ini adalah , jawaban terpendek dalam byte menang, tetapi tidak akan dipilih.

Klarifikasi

  • Anda tidak akan pernah menerima input 0.

Bounties

Tantangan ini jelas sepele di sebagian besar bahasa, tetapi dapat menawarkan tantangan yang menyenangkan dalam bahasa yang lebih esoteris dan tidak biasa, sehingga beberapa pengguna bersedia memberikan poin untuk melakukan hal ini dalam bahasa yang sangat sulit.

  • @DJMcMayhem akan memberikan hadiah +150 poin untuk jawaban brain-flak terpendek, karena brain-flak terkenal sulit untuk angka floating-point

  • @ L3viathan akan memberikan hadiah +150 poin untuk jawaban OIL terpendek . OIL tidak memiliki tipe floating point asli, juga tidak memiliki divisi.

  • @Riley akan memberikan hadiah +100 poin untuk jawaban sed terpendek.

  • @EriktheOutgolfer akan memberikan hadiah +100 poin untuk jawaban Sesos tersingkat. Pembagian dalam turunan brainfuck seperti Sesos sangat sulit, apalagi divisi titik-mengambang.

  • Saya ( @Mendeleev ) akan memberikan hadiah +100 poin untuk jawaban Retina terpendek.

Jika ada bahasa yang Anda pikir akan menyenangkan untuk melihat jawabannya, dan Anda bersedia membayar perwakilan, jangan ragu untuk menambahkan nama Anda ke dalam daftar ini (diurutkan berdasarkan jumlah hadiah)

Papan peringkat

Berikut ini adalah Stack Snippet untuk menghasilkan ikhtisar pemenang berdasarkan bahasa.

Untuk memastikan bahwa jawaban Anda muncul, silakan mulai jawaban Anda dengan tajuk utama, menggunakan templat Penurunan harga berikut:

# Language Name, N bytes

di mana Nukuran kiriman Anda. Jika Anda meningkatkan skor Anda, Anda bisa menyimpan skor lama di headline, dengan mencoretnya. Contohnya:

# Ruby, <s>104</s> <s>101</s> 96 bytes

Jika Anda ingin memasukkan beberapa angka dalam tajuk Anda (mis. Karena skor Anda adalah jumlah dari dua file atau Anda ingin membuat daftar hukuman penterjemah secara terpisah), pastikan bahwa skor sebenarnya adalah angka terakhir di tajuk:

# Perl, 43 + 2 (-p flag) = 45 bytes

Anda juga dapat membuat tautan nama bahasa yang kemudian akan muncul di cuplikan papan peringkat:

# [><>](http://esolangs.org/wiki/Fish), 121 bytes

dkudriavtsev
sumber
23
Tolong berhenti memvoting jawaban sepele
Kritixi Lithos
14
@KritixiLithos Orang dapat memilih sesuai keinginan mereka. Mengingat kesederhanaan tantangan ini, sebagian besar , jika tidak semua jawaban adalah sesuatu seperti itu 1/x.
NoOneIsHere
9
Ini tidak ditentukan secara obyektif tanpa detail yang sangat jelas tentang akurasi dan presisi.
Peter Taylor
6
Bagaimana dengan akurasi? Mungkin Anda menginginkan akurasi 4 sf juga, tetapi kemudian ada masalah pembulatan . Pertanyaan floating point sulit untuk mendapatkan yang benar dan sangat layak sandboxing .
Peter Taylor
10
-1, ini adalah tantangan yang buruk karena menggunakan builtin adalah cara HANYA untuk melakukannya dan tahu Anda telah memenuhi "spesifikasi". Jika Anda memiliki implementasi floating point standar, Anda dapat menggunakannya dan katakan pada diri sendiri ini adalah floating point standar, itu harus ok. Jika Anda harus mengimplementasikannya sendiri, tidak ada spesifikasi sehingga Anda tidak dapat mencoba golf dengan bijaksana.
feersum

Jawaban:

58

Brain-Flak , 772 536 530 482 480 + 1 = 481 byte

Karena Brain-Flak tidak mendukung angka floating point, saya harus menggunakan -cflag untuk input dan output dengan string, maka +1.

(({})[((((()()()()())){}{})){}{}]){((<{}>))}{}({}<{({}[((((()()()){}())()){}{}){}]<>)<>}<>{({}<>[()()])<>}{}([]<{({}<>[()()])<>}>)<>([[]](())){({}()<((((((({}<(((({})({})){}{}){}{})>)({})){}{}){})({})){}{}){})>)}{}({}(<>))<>([()]{()<(({})){({}[()])<>}{}>}{}<><{}{}>){({}<((()()()()()){})>(<>))<>([()]{()<(({})){({}[()])<>}{}>}{}<><([{}()]{})>)}{}<>({}()<<>([]){{}({}<>)<>([])}{}<>>){({}[()]<({}<>((((()()()){}){}){}){})<>>)}{}([()()])([]){{}({}<>((((()()()){}){}){}){})<>([])}<>>)

Cobalah online!

Penjelasan

Hal pertama yang perlu kita tangani adalah kasus negatif. Karena kebalikan dari angka negatif selalu negatif, kita bisa berpegangan pada tanda negatif sampai akhir. Kami mulai dengan membuat salinan bagian atas tumpukan dan mengurangi 45 (nilai ASCII -) dari itu. Jika ini yang kita masukkan nol di atas tumpukan, jika tidak kita tidak melakukan apa-apa. Kemudian kita mengambil bagian atas tumpukan untuk diletakkan di akhir program. Jika input dimulai dengan -ini masih -namun jika tidak kita akhirnya mengambil nol yang kita tempatkan.

(({})[((((()()()()())){}{})){}{}]){((<{}>))}{}
({}<

Sekarang setelah keluar dari jalan, kita perlu mengubah realisasi ASCII dari setiap digit menjadi nilai aktual di sana (0-9). Kami juga akan menghapus titik desimal .untuk mempermudah perhitungan. Karena kita perlu tahu di mana titik desimal dimulai ketika kita memasukkan kembali nanti, kita menyimpan angka untuk melacak berapa digit di depan .offstack.

Berikut adalah bagaimana kode melakukan itu:

Kita mulai dengan mengurangi 46 (nilai ASCII .) dari setiap elemen di stack (secara bersamaan memindahkan semuanya ke offstack). Ini akan membuat setiap digit dua lebih dari yang seharusnya tetapi akan menghasilkan .nol.

{({}[((((()()()){}())()){}{}){}]<>)<>}<>

Sekarang kita memindahkan semuanya ke tumpukan kiri sampai mencapai nol (mengurangi dua dari setiap digit saat kita pergi):

{({}<>[()()])<>}{}

Kami merekam ketinggian tumpukan

([]<

Pindahkan segala sesuatu yang lain ke tumpukan kiri (sekali lagi kurangi dua terakhir dari setiap digit saat kita memindahkannya)

  {({}<>[()()])<>}

Dan menempatkan ketinggian tumpukan yang kami rekam

>)

Sekarang kami ingin menggabungkan digit ke dalam basis 10 nomor tunggal. Kami juga ingin membuat kekuatan 10 dengan dua kali digit sebagai angka untuk digunakan dalam perhitungan.

Kita mulai dengan mengatur 1 di atas tumpukan untuk menghasilkan kekuatan 10 dan mendorong tinggi tumpukan minus satu ke tumpukan di atas untuk penggunaan perulangan.

<>([][(())])

Sekarang kita memutar tinggi tumpukan minus 1 kali,

{
 ({}[()]<

Setiap kali kita mengalikan elemen teratas dengan 100 dan di bawahnya mengalikan elemen berikutnya dengan 10 dan menambahkannya ke nomor di bawah ini.

 ((((((({}<(((({})({})){}{}){}{})>)({})){}{}){})({})){}{}){})

Kami mengakhiri lingkaran kami

 >)
}{}

Sekarang kita akhirnya selesai dengan pengaturan dan dapat memulai perhitungan yang sebenarnya.

({}(<>))<>([()]{()<(({})){({}[()])<>}{}>}{}<><{}{}>)

Itu dia ...

Kami membagi kekuatan 10 oleh versi modifikasi dari masukan menggunakan 0 ' 's algoritma pembagian integer seperti yang ditemukan di wiki . Ini mensimulasikan pembagian 1 dengan input satu-satunya cara Brain-Flak tahu caranya.

Terakhir kita harus memformat output kita ke ASCII yang sesuai.

Sekarang kami telah menemukan nekami perlu mengambil e. Langkah pertama untuk ini adalah mengubahnya menjadi daftar digit. Kode ini adalah versi modifikasi dari 0 ' 's algoritma divmod .

{({}<((()()()()()){})>(<>))<>([()]{()<(({})){({}[()])<>}{}>}{}<><([{}()]{})>)}{}

Sekarang kita ambil nomornya dan tambahkan titik desimal kembali ke tempatnya. Hanya dengan memikirkan bagian kode ini akan memunculkan sakit kepala kembali, jadi untuk sekarang saya akan membiarkannya sebagai latihan bagi pembaca untuk mengetahui bagaimana dan mengapa ia bekerja.

<>({}()<<>([]){{}({}<>)<>([])}{}<>>){({}[()]<({}<>((((()()()){}){}){}){})<>>)}{}([()()])([]){{}({}<>((((()()()){}){}){}){})<>([])}<>

Letakkan tanda negatif ke bawah atau karakter nol jika tidak ada tanda negatif.

>)
Wisaya Gandum
sumber
18
+1, Saya suka seberapa banyak penjelasan iniI don't know what this does or why I need it, but I promise it's important.
DJMcMayhem
Ini sepertinya tidak bekerja untuk input 1.0atau10
Poke
3
Adakah yang bisa membaca kode ini? Apakah Brain-Flak hanya dimaksudkan untuk menulis?
Eric Duminil
1
@EricDuminil Brain-flak adalah bahasa esoteris sehingga sangat sulit untuk dibaca sekilas. Orang-orang yang fasih dalam Brain-Flak dapat membacanya sampai tingkat tertentu. Tetapi tugas ini sangat kompleks dan Brain-Flak tidak benar-benar dirancang dengan mudah dibaca.
Wheat Wizard
@ ThisGuy Membutuhkan -cflag untuk dijalankan dengan ASCII masuk dan keluar. Karena Brain-Flak tidak mendukung angka mengambang, saya harus menggunakan IO sebagai string.
Wheat Wizard
47

Python 2 , 10 byte

1..__div__

Cobalah online!

Dennis
sumber
5
Dot. Dot. Div. +1 :)
caird coinheringaahing
37

Retina , 99 91 byte

1`\.|$
8$*;
+`;(;*)(\d)
$2$1
\d+
$*1,10000000$*
(1+),(\1)+1*
$#2
+`(\d)(;+);
$2$1
1`;
.
;
0

Cobalah online!

Woohoo, sub-100! Ini sangat efisien, mengingat ia menciptakan (dan kemudian cocok dengan) string dengan lebih dari 10 7 karakter pada satu titik. Saya yakin itu belum optimal, tetapi saya cukup senang dengan skor saat ini.

Hasil dengan nilai absolut kurang dari 1 akan dicetak tanpa nol di depan, misalnya .123atau -.456.

Penjelasan

Ide dasarnya adalah menggunakan pembagian integer (karena itu cukup mudah dengan regex dan aritmatika unary). Untuk memastikan bahwa kami mendapatkan angka signifikan yang cukup, kami membagi input menjadi 10 7 . Dengan begitu, setiap input hingga 9999 masih menghasilkan angka 4 digit. Secara efektif, itu berarti kita mengalikan hasilnya dengan 10 7 sehingga kita perlu melacaknya ketika nanti masukkan kembali titik desimal.

1`\.|$
8$*;

Kita mulai dengan mengganti titik desimal, atau akhir string jika tidak ada titik desimal dengan 8 titik koma. Yang pertama dari mereka pada dasarnya adalah titik desimal itu sendiri (tapi saya menggunakan titik koma karena mereka tidak perlu melarikan diri), 7 lainnya menunjukkan bahwa nilai telah dikalikan dengan 10 7 (ini belum terjadi, tapi kami tahu kami akan melakukannya nanti).

+`;(;*)(\d)
$2$1

Kami pertama-tama mengubah input menjadi bilangan bulat. Selama masih ada digit setelah titik desimal, kami memindahkan satu digit ke depan dan menghapus salah satu dari titik koma. Ini karena memindahkan titik desimal ke kanan mengalikan input dengan 10 , dan karenanya membagi hasilnya dengan 10 . Karena batasan input, kami tahu ini akan terjadi paling banyak empat kali, jadi selalu ada cukup titik koma untuk dihapus.

\d+
$*1,10000000$*

Sekarang inputnya adalah integer, kami mengonversinya menjadi unary dan menambahkan 10 7 1 s (dipisahkan oleh a ,).

(1+),(\1)+1*
$#2

Kami membagi bilangan bulat menjadi 10 7 dengan menghitung berapa banyak referensi yang cocok ( $#2). Ini adalah divisi integer standar unary a,b-> b/a. Sekarang kita hanya perlu memperbaiki posisi titik desimal.

+`(\d)(;+);
$2$1

Ini pada dasarnya kebalikan dari tahap kedua. Jika kita masih memiliki lebih dari satu titik koma, itu artinya kita masih perlu membagi hasilnya dengan 10 . Kami melakukan ini dengan memindahkan titik koma satu posisi ke kiri dan menjatuhkan satu titik koma hingga kami mencapai ujung kiri angka tersebut, atau kami hanya memiliki satu titik koma (yang merupakan titik desimal itu sendiri).

1`;
.

Sekarang adalah saat yang tepat untuk mengubah yang pertama (dan mungkin hanya) ;kembali ..

;
0

Jika masih ada titik koma yang tersisa, kami telah mencapai ujung kiri angka tersebut, jadi membaginya dengan 10 lagi akan memasukkan nol di belakang titik desimal. Ini mudah dilakukan dengan mengganti setiap sisa ;dengan 0, karena mereka tetap setelah titik desimal.

Martin Ender
sumber
Algoritma yang sangat singkat, +1. Saya yakin terjemahan sed akan menjadi yang terpendek juga. Bisakah Anda ganti \B;dengan ^;untuk menyimpan 1 byte?
seshoumara
@seshoumara Tidak karena input negatif, di mana ada -di depan ;.
Martin Ender
31

yup , 5 byte

|0~-e

Cobalah online! Ini mengambil input dari atas tumpukan dan meninggalkan output di atas tumpukan. TIO link mengambil input dari argumen baris perintah, yang hanya mampu mengambil input integer.

Penjelasan

yup hanya memiliki beberapa operator. Yang digunakan dalam jawaban ini adalah ln (x) (diwakili oleh |), 0 () (konstan, fungsi nilary kembali 0), - (pengurangan), dan exp (x) (diwakili oleh e). ~mengaktifkan dua anggota teratas di tumpukan.

|0~-e     top of the stack: n    stack: [n]
|         pop n, push ln(n)      stack: [ln(n)]
 0        push 0                 stack: [ln(n), 0]
  ~       swap                   stack: [0, ln(n)]
   -      subtract               stack: [-ln(n)]
    e     exp                    stack: [exp(-ln(n))]

Ini menggunakan identitas

x / y = e ^ (ln (x) -ln (y))

yang menyiratkan itu

Conor O'Brien
sumber
3
Saya ingin meningkatkan konten saya, jadi jika Anda menjelaskan downvote Anda, itu akan sangat membantu dan saya akan menghargai itu :)
Conor O'Brien
20

LOLCODE , 63 , 56 byte

HOW DUZ I r YR n 
VISIBLE QUOSHUNT OF 1 AN n
IF U SAY SO

7 byte disimpan berkat @devRicher!

Ini mendefinisikan fungsi 'r', yang dapat dipanggil dengan:

r 5.0

atau yang lainnya NUMBAR.

Cobalah online!

DJMcMayhem
sumber
Saya kira Anda bisa menggunakan ITZ A NUMBARdalam penugasan I?
ckjbgames
1
HOW DUZ I r YR n VISIBLE QUOSHUNT OF 1 AN n IF U SAY SO(tambahkan baris baru) lebih pendek beberapa byte dan dapat dipanggil dengan r d, di mana dada NUMBAR.
devRicher
Anda dapat menggunakan IZalih-alih DUZkarena aturan juru bahasa
OldBunny2800
17

sed , 575 +1 ( -rbendera) = 723 718 594 588 576 byte

s/$/\n0000000000/
tb
:b
s/^0+//
s/\.(.)(.*\n)/\1.\2/
tD
bF
:D
s/.*/&&&&&&&&&&/2m
tb
:F
s/\.//
h
s/\n.+//
s/-//
:
s/\b9/;8/
s/\b8/;7/
s/\b7/;6/
s/\b6/;5/
s/\b5/;4/
s/\b4/;3/
s/\b3/;2/
s/\b2/;1/
s/\b1/;0/
s/\b0//
/[^;]/s/;/&&&&&&&&&&/g
t
y/;/0/
x
G
s/[^-]+(\n0+)\n(0+)/\2\1/
s/\n0+/&&\n./
:a
s/^(-?)(0*)0\n0\2(.*)$/\10\2\n\30/
ta
s/.*/&&&&&&&&&&/2m
s/\n0(0*\n\..*)$/\n\1 x/
Td
s/x//
ta
:d
s/[^-]+\n//
s/-(.+)/\1-/
s/\n//
:x
s/^0{10}/0x/
s/(.)0{10}/0\1/
tx
s/00/2/g
s/22/4/g
y/0/1/
s/41/5/g
s/21/3/g
s/45/9/g
s/44/8/g
s/43/7/g
s/42/6/g
y/ /0/
s/([1-9])0/\1/g
y/x/0/
s/(.+)-/-\1/

Cobalah online!

Catatan: mengapung yang nilai absolut kurang dari 1 akan harus ditulis tanpa awalan 0 seperti .5bukan 0.5. Juga jumlah tempat desimal sama dengan masukkan deskripsi gambar di sini, di mana njumlah tempat desimal dalam angka (jadi memberi13.0 sebagai input akan memberi lebih banyak tempat desimal daripada memberi 13sebagai input)

Ini adalah pengajuan sed pertama saya di PPCG. Gagasan untuk konversi desimal ke unaris diambil dari jawaban yang luar biasa ini . Terima kasih kepada @seshoumara karena membimbing saya melalui sed!

Kode ini melakukan pembagian panjang berulang untuk mendapatkan hasilnya. Divisi ini hanya membutuhkan ~ 150 byte. Konversi unimal-desimal mengambil sebagian besar byte, dan beberapa byte lainnya digunakan untuk mendukung angka negatif dan input floating-point

Penjelasan

Penjelasan tentang TIO

#Append 10 0's. This is the dividend, I think
s/$/\n0000000000/
tb

#This branch moves the decimal point 1 to the right
:b
#Remove leading 0's (such as from numbers like .05 => 0.5)
s/^0+//
#Move the decimal point 1 to the right
s/\.(.)(.*\n)/\1.\2/
#If the above has resulted in a successful substitution, go to branch D
tD
#else go to branch F
bF

#Multiply the dividend by 10; also keeps the mood positive
:D
s/.*/&&&&&&&&&&/2m
#Then go back to branch b
tb

:F
#Remove decimal point since it is all the way to the right now
s/\.//
h
#Remove "unnecessary" things
s/\n.+//
s/-//

#Convert to unary
:
s/\b9/;8/
s/\b8/;7/
s/\b7/;6/
s/\b6/;5/
s/\b5/;4/
s/\b4/;3/
s/\b3/;2/
s/\b2/;1/
s/\b1/;0/
s/\b0//
/[^;]/s/;/&&&&&&&&&&/g
t
y/;/0/

#Append the unary number to the pattern space
x
G
s/[^-]+(\n0+)\n(0+)/\2\1/

### END Decimal-to-Unary conversion
### BEGIN Division

#Performs Long Division
#Format looks something like this (can't remember): divisor\ndividend\ncount\nresult
#Count controls how many decimal places the answer should have; dp => 10^numDigits(n)
#Removes divisor from dividend and then add a 0 to result
#Once the dividend becomes too small, append a space to result and remove a zero from count
#Rinse and repeat
s/\n0+/&&\n./
:a
s/^(-?)(0*)0\n0\2(.*)$/\10\2\n\30/
ta
s/.*/&&&&&&&&&&/2m
s/\n0(0*\n\..*)$/\n\1 x/
Td
s/x//
ta

### END DIVISION
### BEGIN Unary-to-Decimal conversion

:d
s/[^-]+\n//
s/-(.+)/\1-/
s/\n//

#"carry over"-ing; .0000000000 => 0.
:x
s/^0{10}/0x/
s/(.)0{10}/0\1/
tx

#Convert each pair of unary 0s to their decimal counterparts
s/00/2/g
s/22/4/g
y/0/1/
s/41/5/g
s/21/3/g
s/45/9/g
s/44/8/g
s/43/7/g
s/42/6/g
y/ /0/
s/([1-9])0/\1/g
y/x/0/
s/(.+)-/-\1/

Suntingan

  • s:s/(.)/(.)/g:y/\1/\2/g:g untuk menyimpan 1 byte di setiap substitusi (total 5)
  • Menghemat satu ton byte dengan melihat konverter desimal ke unary yang bagus pada "Tips untuk bermain golf di sed"
  • Saya mengubah beberapa pergantian di sekitar merawat tanda minus untuk menghemat 6 byte.
  • Digunakan \nalih-alih ;sebagai pemisah, maka saya dapat mempersingkat substitusi "kalikan dengan 10" untuk menghemat 12 byte (terima kasih kepada @Riley dan @seshoumara karena menunjukkan kepada saya ini)
Kritixi Lithos
sumber
Kau berhasil! +1
seshoumara
16

JSFuck , 3320 byte

JSFuck adalah gaya pemrograman esoterik dan pendidikan yang didasarkan pada bagian atom JavaScript. Hanya menggunakan enam karakter berbeda ()[]+!untuk menulis dan mengeksekusi kode.

[][(![]+[])[+[]]+([![]]+[][[]])[+!+[]+[+[]]]+(![]+[])[!+[]+!+[]]+(![]+[])[!+[]+!+[]]][([][(![]+[])[+[]]+([![]]+[][[]])[+!+[]+[+[]]]+(![]+[])[!+[]+!+[]]+(!![]+[])[+[]]+(!![]+[])[!+[]+!+[]+!+[]]+(!![]+[])[+!+[]]]+[])[!+[]+!+[]+!+[]]+(!![]+[][(![]+[])[+[]]+([![]]+[][[]])[+!+[]+[+[]]]+(![]+[])[!+[]+!+[]]+(!![]+[])[+[]]+(!![]+[])[!+[]+!+[]+!+[]]+(!![]+[])[+!+[]]])[+!+[]+[+[]]]+([][[]]+[])[+!+[]]+(![]+[])[!+[]+!+[]+!+[]]+(!![]+[])[+[]]+(!![]+[])[+!+[]]+([][[]]+[])[+[]]+([][(![]+[])[+[]]+([![]]+[][[]])[+!+[]+[+[]]]+(![]+[])[!+[]+!+[]]+(!![]+[])[+[]]+(!![]+[])[!+[]+!+[]+!+[]]+(!![]+[])[+!+[]]]+[])[!+[]+!+[]+!+[]]+(!![]+[])[+[]]+(!![]+[][(![]+[])[+[]]+([![]]+[][[]])[+!+[]+[+[]]]+(![]+[])[!+[]+!+[]]+(!![]+[])[+[]]+(!![]+[])[!+[]+!+[]+!+[]]+(!![]+[])[+!+[]]])[+!+[]+[+[]]]+(!![]+[])[+!+[]]]((!![]+[])[+!+[]]+(!![]+[])[!+[]+!+[]+!+[]]+(!![]+[])[+[]]+([][[]]+[])[+[]]+(!![]+[])[+!+[]]+([][[]]+[])[+!+[]]+(+(+!+[]+(!+[]+[])[!+[]+!+[]+!+[]]+[+!+[]]+[+[]]+[+[]])+[])[!+[]+!+[]]+[+!+[]]+(![]+[+![]])[([![]]+[][[]])[+!+[]+[+[]]]+(!![]+[])[+[]]+(![]+[])[+!+[]]+(![]+[])[!+[]+!+[]]+([![]]+[][[]])[+!+[]+[+[]]]+([][(![]+[])[+[]]+([![]]+[][[]])[+!+[]+[+[]]]+(![]+[])[!+[]+!+[]]+(!![]+[])[+[]]+(!![]+[])[!+[]+!+[]+!+[]]+(!![]+[])[+!+[]]]+[])[!+[]+!+[]+!+[]]+(![]+[])[!+[]+!+[]+!+[]]]()[+!+[]+[+[]]]+(!![]+[])[+[]]+(+(+!+[]+[+[]]+[+!+[]]))[(!![]+[])[+[]]+(!![]+[][(![]+[])[+[]]+([![]]+[][[]])[+!+[]+[+[]]]+(![]+[])[!+[]+!+[]]+(!![]+[])[+[]]+(!![]+[])[!+[]+!+[]+!+[]]+(!![]+[])[+!+[]]])[+!+[]+[+[]]]+(+![]+([]+[])[([][(![]+[])[+[]]+([![]]+[][[]])[+!+[]+[+[]]]+(![]+[])[!+[]+!+[]]+(!![]+[])[+[]]+(!![]+[])[!+[]+!+[]+!+[]]+(!![]+[])[+!+[]]]+[])[!+[]+!+[]+!+[]]+(!![]+[][(![]+[])[+[]]+([![]]+[][[]])[+!+[]+[+[]]]+(![]+[])[!+[]+!+[]]+(!![]+[])[+[]]+(!![]+[])[!+[]+!+[]+!+[]]+(!![]+[])[+!+[]]])[+!+[]+[+[]]]+([][[]]+[])[+!+[]]+(![]+[])[!+[]+!+[]+!+[]]+(!![]+[])[+[]]+(!![]+[])[+!+[]]+([][[]]+[])[+[]]+([][(![]+[])[+[]]+([![]]+[][[]])[+!+[]+[+[]]]+(![]+[])[!+[]+!+[]]+(!![]+[])[+[]]+(!![]+[])[!+[]+!+[]+!+[]]+(!![]+[])[+!+[]]]+[])[!+[]+!+[]+!+[]]+(!![]+[])[+[]]+(!![]+[][(![]+[])[+[]]+([![]]+[][[]])[+!+[]+[+[]]]+(![]+[])[!+[]+!+[]]+(!![]+[])[+[]]+(!![]+[])[!+[]+!+[]+!+[]]+(!![]+[])[+!+[]]])[+!+[]+[+[]]]+(!![]+[])[+!+[]]])[+!+[]+[+[]]]+(!![]+[])[+[]]+(!![]+[])[+!+[]]+([![]]+[][[]])[+!+[]+[+[]]]+([][[]]+[])[+!+[]]+(+![]+[![]]+([]+[])[([][(![]+[])[+[]]+([![]]+[][[]])[+!+[]+[+[]]]+(![]+[])[!+[]+!+[]]+(!![]+[])[+[]]+(!![]+[])[!+[]+!+[]+!+[]]+(!![]+[])[+!+[]]]+[])[!+[]+!+[]+!+[]]+(!![]+[][(![]+[])[+[]]+([![]]+[][[]])[+!+[]+[+[]]]+(![]+[])[!+[]+!+[]]+(!![]+[])[+[]]+(!![]+[])[!+[]+!+[]+!+[]]+(!![]+[])[+!+[]]])[+!+[]+[+[]]]+([][[]]+[])[+!+[]]+(![]+[])[!+[]+!+[]+!+[]]+(!![]+[])[+[]]+(!![]+[])[+!+[]]+([][[]]+[])[+[]]+([][(![]+[])[+[]]+([![]]+[][[]])[+!+[]+[+[]]]+(![]+[])[!+[]+!+[]]+(!![]+[])[+[]]+(!![]+[])[!+[]+!+[]+!+[]]+(!![]+[])[+!+[]]]+[])[!+[]+!+[]+!+[]]+(!![]+[])[+[]]+(!![]+[][(![]+[])[+[]]+([![]]+[][[]])[+!+[]+[+[]]]+(![]+[])[!+[]+!+[]]+(!![]+[])[+[]]+(!![]+[])[!+[]+!+[]+!+[]]+(!![]+[])[+!+[]]])[+!+[]+[+[]]]+(!![]+[])[+!+[]]])[!+[]+!+[]+[+[]]]](!+[]+!+[]+[+!+[]])[+!+[]]+([![]]+[][[]])[+!+[]+[+[]]]+(![]+[])[!+[]+!+[]+!+[]])[([][(![]+[])[+[]]+([![]]+[][[]])[+!+[]+[+[]]]+(![]+[])[!+[]+!+[]]+(!![]+[])[+[]]+(!![]+[])[!+[]+!+[]+!+[]]+(!![]+[])[+!+[]]]+[])[!+[]+!+[]+!+[]]+(![]+[])[+!+[]]+(![]+[])[!+[]+!+[]]+(![]+[])[!+[]+!+[]]]

Cobalah online!

alert(
  /* empty array       */ []
  /* ['fill']          */ [(![]+[])[+[]]+([![]]+[][[]])[+!+[]+[+[]]]+(![]+[])[!+[]+!+[]]+(![]+[])[!+[]+!+[]]]
  /* ['constructor']   */ [([][(![]+[])[+[]]+([![]]+[][[]])[+!+[]+[+[]]]+(![]+[])[!+[]+!+[]]+(!![]+[])[+[]]+(!![]+[])[!+[]+!+[]+!+[]]+(!![]+[])[+!+[]]]+[])[!+[]+!+[]+!+[]]+(!![]+[][(![]+[])[+[]]+([![]]+[][[]])[+!+[]+[+[]]]+(![]+[])[!+[]+!+[]]+(!![]+[])[+[]]+(!![]+[])[!+[]+!+[]+!+[]]+(!![]+[])[+!+[]]])[+!+[]+[+[]]]+([][[]]+[])[+!+[]]+(![]+[])[!+[]+!+[]+!+[]]+(!![]+[])[+[]]+(!![]+[])[+!+[]]+([][[]]+[])[+[]]+([][(![]+[])[+[]]+([![]]+[][[]])[+!+[]+[+[]]]+(![]+[])[!+[]+!+[]]+(!![]+[])[+[]]+(!![]+[])[!+[]+!+[]+!+[]]+(!![]+[])[+!+[]]]+[])[!+[]+!+[]+!+[]]+(!![]+[])[+[]]+(!![]+[][(![]+[])[+[]]+([![]]+[][[]])[+!+[]+[+[]]]+(![]+[])[!+[]+!+[]]+(!![]+[])[+[]]+(!![]+[])[!+[]+!+[]+!+[]]+(!![]+[])[+!+[]]])[+!+[]+[+[]]]+(!![]+[])[+!+[]]]
  /* ('return+1/this') */ ((!![]+[])[+!+[]]+(!![]+[])[!+[]+!+[]+!+[]]+(!![]+[])[+[]]+([][[]]+[])[+[]]+(!![]+[])[+!+[]]+([][[]]+[])[+!+[]]+(+(+!+[]+(!+[]+[])[!+[]+!+[]+!+[]]+[+!+[]]+[+[]]+[+[]])+[])[!+[]+!+[]]+[+!+[]]+(![]+[+![]])[([![]]+[][[]])[+!+[]+[+[]]]+(!![]+[])[+[]]+(![]+[])[+!+[]]+(![]+[])[!+[]+!+[]]+([![]]+[][[]])[+!+[]+[+[]]]+([][(![]+[])[+[]]+([![]]+[][[]])[+!+[]+[+[]]]+(![]+[])[!+[]+!+[]]+(!![]+[])[+[]]+(!![]+[])[!+[]+!+[]+!+[]]+(!![]+[])[+!+[]]]+[])[!+[]+!+[]+!+[]]+(![]+[])[!+[]+!+[]+!+[]]]()[+!+[]+[+[]]]+(!![]+[])[+[]]+(+(+!+[]+[+[]]+[+!+[]]))[(!![]+[])[+[]]+(!![]+[][(![]+[])[+[]]+([![]]+[][[]])[+!+[]+[+[]]]+(![]+[])[!+[]+!+[]]+(!![]+[])[+[]]+(!![]+[])[!+[]+!+[]+!+[]]+(!![]+[])[+!+[]]])[+!+[]+[+[]]]+(+![]+([]+[])[([][(![]+[])[+[]]+([![]]+[][[]])[+!+[]+[+[]]]+(![]+[])[!+[]+!+[]]+(!![]+[])[+[]]+(!![]+[])[!+[]+!+[]+!+[]]+(!![]+[])[+!+[]]]+[])[!+[]+!+[]+!+[]]+(!![]+[][(![]+[])[+[]]+([![]]+[][[]])[+!+[]+[+[]]]+(![]+[])[!+[]+!+[]]+(!![]+[])[+[]]+(!![]+[])[!+[]+!+[]+!+[]]+(!![]+[])[+!+[]]])[+!+[]+[+[]]]+([][[]]+[])[+!+[]]+(![]+[])[!+[]+!+[]+!+[]]+(!![]+[])[+[]]+(!![]+[])[+!+[]]+([][[]]+[])[+[]]+([][(![]+[])[+[]]+([![]]+[][[]])[+!+[]+[+[]]]+(![]+[])[!+[]+!+[]]+(!![]+[])[+[]]+(!![]+[])[!+[]+!+[]+!+[]]+(!![]+[])[+!+[]]]+[])[!+[]+!+[]+!+[]]+(!![]+[])[+[]]+(!![]+[][(![]+[])[+[]]+([![]]+[][[]])[+!+[]+[+[]]]+(![]+[])[!+[]+!+[]]+(!![]+[])[+[]]+(!![]+[])[!+[]+!+[]+!+[]]+(!![]+[])[+!+[]]])[+!+[]+[+[]]]+(!![]+[])[+!+[]]])[+!+[]+[+[]]]+(!![]+[])[+[]]+(!![]+[])[+!+[]]+([![]]+[][[]])[+!+[]+[+[]]]+([][[]]+[])[+!+[]]+(+![]+[![]]+([]+[])[([][(![]+[])[+[]]+([![]]+[][[]])[+!+[]+[+[]]]+(![]+[])[!+[]+!+[]]+(!![]+[])[+[]]+(!![]+[])[!+[]+!+[]+!+[]]+(!![]+[])[+!+[]]]+[])[!+[]+!+[]+!+[]]+(!![]+[][(![]+[])[+[]]+([![]]+[][[]])[+!+[]+[+[]]]+(![]+[])[!+[]+!+[]]+(!![]+[])[+[]]+(!![]+[])[!+[]+!+[]+!+[]]+(!![]+[])[+!+[]]])[+!+[]+[+[]]]+([][[]]+[])[+!+[]]+(![]+[])[!+[]+!+[]+!+[]]+(!![]+[])[+[]]+(!![]+[])[+!+[]]+([][[]]+[])[+[]]+([][(![]+[])[+[]]+([![]]+[][[]])[+!+[]+[+[]]]+(![]+[])[!+[]+!+[]]+(!![]+[])[+[]]+(!![]+[])[!+[]+!+[]+!+[]]+(!![]+[])[+!+[]]]+[])[!+[]+!+[]+!+[]]+(!![]+[])[+[]]+(!![]+[][(![]+[])[+[]]+([![]]+[][[]])[+!+[]+[+[]]]+(![]+[])[!+[]+!+[]]+(!![]+[])[+[]]+(!![]+[])[!+[]+!+[]+!+[]]+(!![]+[])[+!+[]]])[+!+[]+[+[]]]+(!![]+[])[+!+[]]])[!+[]+!+[]+[+[]]]](!+[]+!+[]+[+!+[]])[+!+[]]+([![]]+[][[]])[+!+[]+[+[]]]+(![]+[])[!+[]+!+[]+!+[]])
  /* ['call']          */ [([][(![]+[])[+[]]+([![]]+[][[]])[+!+[]+[+[]]]+(![]+[])[!+[]+!+[]]+(!![]+[])[+[]]+(!![]+[])[!+[]+!+[]+!+[]]+(!![]+[])[+!+[]]]+[])[!+[]+!+[]+!+[]]+(![]+[])[+!+[]]+(![]+[])[!+[]+!+[]]+(![]+[])[!+[]+!+[]]]
  (prompt())
)

powelles
sumber
1
Subset bahasa ini sulit untuk golf dengan tangan tetapi mudah untuk diotomatisasi (sebagai konversi dari JavaScript biasa).
wizzwizz4
Benar, tetapi jumlah karakter sumber tidak secara langsung berhubungan dengan panjang output.
powelles
4
Saya mencoba menyampaikan bahwa, jika Anda memiliki sumber, lebih mudah untuk mengotomatiskan konversi golf daripada melakukan versi golf dengan tangan.
wizzwizz4
4
@ wizzwizz4 Bahkan ketika sudah otomatis, sulit juga untuk mengetahui kode JavaScript "inti" mana yang benar-benar menghasilkan program terpendek. Dalam kasus khusus ini, return 1/thisakan menjadi sekitar 76 byte lebih lama dari return+1/this.
ETHproductions
[].fill.constructor('alert(1/prompt())')2929 bytes paste.ubuntu.com/p/5vGTqw4TQQ tambahkan ()2931
l4m2
16

MINYAK , 1428 1420 byte

Baiklah. Saya pikir saya mungkin juga mencobanya, dan pada akhirnya saya berhasil. Hanya ada satu kelemahan: Butuh waktu hampir lama untuk berjalan seperti yang dibutuhkan untuk menulis.

Program ini dipisahkan menjadi beberapa file, yang memiliki semua nama file 1-byte (dan menghitung satu byte tambahan dalam perhitungan byte saya). Beberapa file adalah bagian dari contoh file dari bahasa OIL, tetapi tidak ada cara nyata untuk memanggil mereka secara konsisten (belum ada jalur pencarian atau semacamnya di OIL, jadi saya tidak menganggapnya sebagai perpustakaan standar), tetapi itu juga berarti bahwa (pada saat memposting) beberapa file lebih bertele-tele daripada neccessary, tetapi biasanya hanya dengan beberapa byte.

Perhitungannya akurat hingga 4 digit presisi, tetapi menghitung bahkan timbal balik sederhana (seperti input 3) membutuhkan waktu yang sangat lama (lebih dari 5 menit) untuk diselesaikan. Untuk tujuan pengujian, saya juga membuat varian minor yang akurat hingga 2 digit, yang hanya membutuhkan beberapa detik untuk menjalankannya, untuk membuktikan bahwa itu berfungsi.

Maaf atas jawaban yang sangat besar, saya berharap saya bisa menggunakan semacam tag spoiler. Saya juga bisa meletakkan sebagian besar di gist.github.com atau yang serupa, jika diinginkan.

Kita mulai main:, 217 byte (nama file tidak masuk hitungan untuk byte):

5
1
1
4
-
14
a
5
Y
10
5
8
14
29
12
1
97
1
97
24
9
24
13
99

1
1
4
31
1
35

14
a
32
.
10
32
8
50
41
1
53
2
14
b
1
1
6
72
14
c
5
0000
14
d
6
6
10
74
5
63
68
1
6
1
6
72
14
b
1
5
1
77
0
14
e
1
0
14
f
1
1
1
31
0
14
b
0
0
4

a (memeriksa apakah string yang diberikan dalam string lain yang diberikan), 74 + 1 = 75 byte:

5
0
5
1
14
g
2
0
10
2
30
24
13
10
1
31
27
18
14
h
1
1
6
4
4
30
3
4
29
N
Y

b (bergabung dengan dua string yang diberikan), 20 + 1 = 21 byte:

5
0
5
1
13
0
2
0
4
0

c (diberi simbol, pisahkan string yang diberikan pada kemunculannya yang pertama), 143 +1 = 144 byte (yang ini jelas masih golf):

5
0
5
83
12
83
83





10
84
0
21
17
8
13
6
12
1
13
1
1
5
2
14
i
45
1
1
83
1
1
45
2
14
i
57
1
9
45
13
84

1



8
13
1
13
56
13
13

2
4
1
11
4
2

d (diberi string, dapatkan 4 karakter pertama), 22 + 1 = 23 byte:

5
0
12
0
20
13
21
4

4

e (divisi tingkat tinggi (tetapi dengan bahaya nol divisi)), 138 +1 = 139 byte:

5
0
5
1
.
.
1
1
6
14
j
0
0
1
0
4
10
11
1
58
21
14
b
4
4
1
1
15
14
k
0
15
1
6
1
14
j
0
0
1
0
5
14
b
4
4
9
8
10
8
11
58
53
10
11
1
58
25
4
4

f (memindahkan posisi titik 4 ke kanan; "membagi" dengan 10.000), 146 +1 = 147 byte:

5
.
12
0
100
10
101
1
14
10
8
6
6
5
1
6
34
1
6
33
8
33
1
6
37
8
37
10
55
3
48
32
1
102
101
1
1
102
9
55
8
34
8
33
8
37
6
27
1
100
53
13
101


4

4

g (memeriksa apakah sebuah string dimulai dengan karakter yang diberikan), 113 + 1 = 114 byte:

5
0
5
1
12
0
100
12
1
200
1
6
2
1
9
3
8
2
8
3
9
100
9
200
1
2
31
1
3
32
10


39
35
4
38
3
N
10
100
5
44
16
4
46
Y

h (mengembalikan semuanya kecuali karakter pertama dari string yang diberikan), 41 + 1 = 42 byte:

5
0
12
0
100
9
100
1
100
12
13
102

0
4
0

i (kurangi dua angka), 34 + 1 = 35 byte:

5
0
5
1
10
16
1
14
9
9
0
9
1
6
4
0

j (divisi tingkat rendah yang tidak berfungsi dalam semua kasus), 134 + 1 = 135 byte:

5
0
5
2
10
2
19
52
9
1
2
3
10
23
2
28
17
10
23
0
35
22
9
0
9
2
6
12
8
1
1
3
2
6
17
10
23
2
46
40
9
2
9
3
6
35
4
1
11
4
3
3
4
19
11
4
0

k (penggandaan), 158 + 1 = 159 byte:

5
0
5
1
8
0
9
0
8
1
9
1
1
5
2
12
0
68
10
69
66
23
29
8
7
14
l
0
0
12
1
68
10
69
66
37
43
8
7
14
l
1
1
10
0
5
56
48
9
0
14
m
2
1
6
43
10
7
3
61
63
4
66
4
2
3
-

l (kembalikan nilai absolut), 58 + 1 = 59 byte:

5
-
12
0
24
10
25
1
13
10
4
0
3
9
24
1
24
20
13
26

0
6
10

m (tambahan), 109 + 1 = 110 byte:

5
0
5
1
8
0
9
0
8
1
9
1
12
1
46
10
47
45
31
20
10
1
43
42
25
9
1
8
0
6
20
10
1
43
42
36
8
1
9
0
6
31
4
0
3
-
L3viathan
sumber
15

J, 1 byte

%

%adalah fungsi memberikan kebalikan dari inputnya. Anda bisa menjalankannya seperti ini

   % 2
0.5
Loovjo
sumber
15

Taksi , 467 byte

Go to Starchild Numerology:w 1 l 2 r 1 l 1 l 2 l.1 is waiting at Starchild Numerology.Pickup a passenger going to Divide and Conquer.Go to Post Office:w 1 r 2 r 1 r 1 l.Pickup a passenger going to The Babelfishery.Go to The Babelfishery:s 1 l 1 r.Pickup a passenger going to Divide and Conquer.Go to Divide and Conquer:e 4 l.Pickup a passenger going to The Babelfishery.Go to The Babelfishery:e 1 r.Pickup a passenger going to Post Office.Go to Post Office:e 1 l 1 r.

Cobalah online!

Tidak Disatukan:

Go to Starchild Numerology:west 1 left, 2 right, 1 left, 1 left, 2 left.
1 is waiting at Starchild Numerology.
Pickup a passenger going to Divide and Conquer.
Go to Post Office:west 1 right, 2 right, 1 right, 1 left.
Pickup a passenger going to The Babelfishery.
Go to The Babelfishery:south 1 left, 1 right.
Pickup a passenger going to Divide and Conquer.
Go to Divide and Conquer:east 4 left.
Pickup a passenger going to The Babelfishery.
Go to The Babelfishery:east 1 right.
Pickup a passenger going to Post Office.
Go to Post Office:east 1 left, 1 right.
Erik the Outgolfer
sumber
Maukah Anda menambahkan versi non-golf agar lebih mudah dibaca?
Kevin Cruijssen
@KevinCruijssen Tentu, hanya saja ketika saya menjawab ini sudah larut malam.
Erik the Outgolfer
15

Vim, 10 8 byte / penekanan tombol

C<C-r>=1/<C-r>"

Karena V kompatibel dari belakang, Anda dapat mencobanya secara online!

DJMcMayhem
sumber
@NonlinearFruit Tidak, tidak. Ternyata, saya terlalu memikirkannya, dan mendukung yang sebenarnya kurang byte, tidak lebih. Terima kasih!
DJMcMayhem
Ini sangat menarik. Saya ingin tahu apakah mungkin untuk melakukan hal yang sama tanpa menggunakan =. Hanya mengandalkan makro lain, register untuk menyimpan memori, dan kunci untuk menavigasi dan memodifikasi data. Akan jauh lebih kompleks tetapi saya pikir itu akan sangat keren! Saya pikir fakan memainkan peran besar sebagai ujian bersyarat.
Stefan Aleksić
Jika input 6431, output harus 0,0001554, atau lebih tepatnya, tetapi tidak 0.
seshoumara
1
@seshoumara Saya pikir Anda perlu memasukkan 6431.0sehingga diperlakukan sebagai angka floating point
Poke
@ Poke Saya mencobanya dan berfungsi, tetapi hasilnya dalam notasi ilmiah. Apakah itu diizinkan?
seshoumara
11

x86_64 Bahasa mesin Linux, 5 byte

0:       f3 0f 53 c0             rcpss  %xmm0,%xmm0
4:       c3                      retq

Untuk menguji ini, Anda dapat mengkompilasi dan menjalankan program C berikut

#include<stdio.h>
#include<math.h>
const char f[]="\xf3\xf\x53\xc0\xc3";
int main(){
  for( float i = .1; i < 2; i+= .1 ) {
    printf( "%f %f\n", i, ((float(*)(float))f)(i) );
  }
}

Cobalah online!

plafon
sumber
1
Kami mungkin ingin menambahkan bahwa rcpsshanya menghitung perkiraan timbal balik (sekitar presisi 12 bit). +1
Christoph
11

C, 15 12 byte

#define f 1/

Cobalah online!

16 13 byte, jika perlu menangani input integer juga:

#define f 1./

Jadi Anda bisa menyebutnya dengan f(3)alih - alih f(3.0).

Cobalah online!

Terima kasih kepada @hvd untuk bermain golf 3 byte!

Steadybox
sumber
2
Bisakah Anda mengubah nama bahasa menjadi "C Preprocessor?"
ckjbgames
4
Menjadi sangat pemilih, ini tidak "menghitung" nilainya; itu hanya diganti f(x)dengan 1/x. Ketika "fungsi" dijalankan, yang dapat terjadi selambat runtime atau pada saat kompiler Anda merasa (dan dapat membuktikan benar), secara teknis bukan langkah preprosesor.
CAD97
1
@Steadybox Saya benar-benar mengutip dari bagian input sampel dalam deskripsi tantangan. Kode Anda akan mendapatkan 2dan -5sebagai masukan. Keduanya 2dan-5 desimal, yang mengandung angka dalam rentang 0 hingga 9.
pipa
2
Tidak perlu makro seperti fungsi: #define f 1./berfungsi juga.
hvd
2
"Menjadi sangat pemilih, ini tidak" menghitung "nilainya; itu hanya mengganti f (x) dengan 1 / x." Saya pemilih itu. Ini sepenuhnya mungkin dilakukan dengan menggunakan prepro C, tetapi orang tidak boleh mengklaim telah melakukan sesuatu dalam prepro C jika ia membutuhkan C atau C ++ untuk benar-benar melakukannya.
H Walters
10

MATLAB / Oktaf, 4 byte

@inv

Membuat gagang fungsi (bernama ans) ke invfungsi bawaan

Demo online

Suever
sumber
8

GNU sed , 377 362 +1 (r flag) = 363 bytes

Peringatan: program akan memakan semua memori sistem yang mencoba dijalankan dan membutuhkan lebih banyak waktu untuk menyelesaikan daripada yang Anda tunggu! Lihat di bawah untuk penjelasan dan versi yang cepat, tetapi kurang tepat.

s:\.|$:,,,,,,,,:;:i;s:,(,+)(\w):\2\1:;ti
h;:;s:\w::2g;y:9876543210:87654321\t :;/ /!s:,:@,:;/\s/!t;x;s:-?.::;x;G;s:,.*::m;s:\s::g;/\w/{s:@+:&&&&&&&&&&:;t}
/@,-?@/!{s:^:10000000,:;h;t}
:l;s:(@+)(,-?\1):\2;:;tl;s:,::;s:@+;?@+::
s:-?:&0:;:c;s:\b9+:0&:;s:.9*;:/&:;h;s:.*/::;y:0123456789:1234567890:;x;s:/.*::;G;s:\n::;s:;::;/;/tc
:f;s:(\w)(,+),:\2\1:;tf;s:,:.:;y:,:0:

Ini didasarkan pada jawaban Retina oleh Martin Ender. Saya menghitung \tdari baris 2 sebagai tab literal (1 byte).

Kontribusi utama saya adalah metode konversi dari desimal ke polos unary (baris 2), dan sebaliknya (baris 5). Saya berhasil secara signifikan mengurangi ukuran kode yang diperlukan untuk melakukan ini (gabungan ~ 40 byte), dibandingkan dengan metode yang ditunjukkan pada tip sebelumnya . Saya membuat jawaban tip terpisah dengan detail, tempat saya memberikan cuplikan yang siap pakai. Karena 0 tidak diizinkan sebagai input, beberapa byte lagi disimpan.

Penjelasan: untuk lebih memahami algoritma pembagian, baca jawaban Retina terlebih dahulu

Program ini secara teori benar, alasan mengapa ia menghabiskan begitu banyak sumber daya komputasi adalah bahwa langkah pembagian dijalankan ratusan ribu kali, lebih atau kurang tergantung pada input, dan regex yang digunakan menimbulkan mimpi buruk yang melenceng. Versi cepat mengurangi presisi (karenanya jumlah langkah pembagian), dan mengubah regex untuk mengurangi backtracking.

Sayangnya, sed tidak memiliki metode untuk secara langsung menghitung berapa kali backreference cocok dengan suatu pola, seperti di Retina.

s:\.|$:,,,,,,,,:             # replace decimal point or end of string with 8 commas
:i                           # loop to generate integer (useful for unary division)
  s:,(,+)(\w):\2\1:          # move 1 digit in front of commas, and delete 1 comma
ti                           # repeat (':i')
h;:                          # backup pattern and start decimal to unary conversion
  s:\w::2g                   # delete decimal digits, except the first (GNU magic)
  y:9876543210:87654321\t :; # transliterate characters
  / /!s:,:@,:                # if no space is present, append a unary digit ('@')
  /\s/!t                     # if no whitespace is present, go back to ':'
  x;s:-?.::;x                # delete first digit and the negative sign from backup
  G;s:,.*::m;s:\s::g         # append backup, delete whitespace and duplicate stuff
/\w/{s:@+:&&&&&&&&&&:        # if decimal digit left, multiply unary number by 10
t}                           # and repeat (':')
/@,-?@/!{                    # if only one unary number found (the input)
  s:^:10000000,:             # prepend decimal 10^7 separated by a comma
h;t}                         # backup pattern and convert new number to unary also
:l                           # start unary division loop (tons of RAM and time!!!)
  s:(@+)(,-?\1):\2;:         # delete as many '@'s from 10^7, as found in unary
                             #input, and add one ';' (new unary digit)
tl                           # repeat (':l')
s:,::;s:@+;?@+::             # delete leftover stuff
s:-?:&0:;:c                  # prepend zero and start unary to decimal conversion
  s:\b9+:0&:                 # if only 9s found, prepend zero to them
  s:.9*;:/&:                 # separate the digit(s) that would change on increment
  h;s:.*/::                  # backup, delete all (non-changing) digits (till '/')
  y:0123456789:1234567890:   # increment changing digit(s)
  x;s:/.*::                  # delete changing digits from backup
  G;s:\n::                   # append backup, delete newline
  s:;::                      # delete one unary digit (';')
/;/tc                        # if unary portion left, repeat (':c')
:f                           # loop to generate floating-point number
  s:(\w)(,+),:\2\1:          # move 1 digit after the commas, and delete 1 comma
tf                           # repeat (':f')
s:,:.:                       # turn first comma into a decimal point
y:,:0:                       # turn the rest of commas into zeroes (final result)
                             # implicit printing

Untuk versi program yang cepat dan aman, tetapi kurang tepat, Anda dapat mencoba ini secara online .

seshoumara
sumber
7

Japt , 2 byte

Solusi yang jelas akan menjadi

1/U

yang secara harfiah 1 / input,. Namun, kita dapat melakukan yang lebih baik:

pJ

Ini setara dengan input ** J, dan Jdiatur ke -1 secara default.

Cobalah online!

Fakta menyenangkan: seperti pfungsi daya, demikian qjuga fungsi root ( p2= **2, q2= **(1/2)); ini berarti bahwa qJakan bekerja juga, karena -1 == 1/-1, dan karena itu x**(-1) == x**(1/-1).

Produksi ETH
sumber
7

Javascript ES6, 6 byte

x=>1/x

Cobalah online!

Default Javascript untuk pembagian floating point.

fəˈnɛtɪk
sumber
Saya tidak terbiasa dengan cara Anda membuat dan memanggil f (). Bisakah Anda menjelaskannya sedikit, atau menyarankan referensi?
TecBrat
@ TechBrat Ini adalah fungsi anonim. Dalam tautan online coba, saya memiliki f = di header untuk menetapkan fungsi anonim sehingga dapat dipanggil. Di catatan kaki saya punya console.log (f (angka berapapun)) untuk menampilkan hasil pemanggilan fungsi
fəˈnɛtɪk
Bukankah seharusnya total Anda menjadi 8 Bytes?
TecBrat
@ TekBrat Fungsi anonim adalah jawaban tanpa harus menetapkannya.
fəˈnɛtɪk
1
@ TekBrat Fungsi ini adalah x => 1 / x, yang setara dengan fungsi (x) {return 1 / x}. Sesuai dengan jawaban ini dalam meta, yang merujuk pada konsensus ini , fungsi anonim yang akan melakukan tugas yang diminta adalah jawaban yang valid untuk tantangan tersebut.
fəˈnɛtɪk
7

APL, 1 byte

÷

÷Menghitung timbal balik saat digunakan sebagai fungsi monadik. Cobalah online!

Menggunakan set karakter Dyalog Classic.

Uriel
sumber
Pengkodean .
Adám
6

Cheddar , 5 byte

1&(/)

Cobalah online!

Ini menggunakan &, yang mengikat argumen ke suatu fungsi. Dalam hal ini, 1terikat ke sisi kiri /, yang memberi kita 1/x, untuk sebuah argumen x. Ini lebih pendek dari kanon x->1/xsebesar 1 byte.


Atau, dalam versi yang lebih baru:

(1:/)
Conor O'Brien
sumber
Versi baru memungkinkan ini menjadi (1:/)untuk jumlah byte yang sama
Downgoat
4

Java 8, 6 byte

x->1/x

Hampir sama dengan jawaban JavaScript .

Loovjo
sumber
Apakah ini akan menghadapi masalah dengan divisi integer?
kamoroso94
4

MATL , 3 byte

l_^

Cobalah di MATL Online

Penjelasan

    % Implictily grab input
l_  % Push -1 to the stack
^   % Raise the input to the -1 power
    % Implicitly display the result
Suever
sumber
4

Python, 12 byte

lambda x:1/x

Satu untuk 13 byte:

(-1).__rpow__

Satu untuk 14 byte:

1 .__truediv__
Loovjo
sumber
4

Mathematica, 4 byte

1/#&

Memberi Anda rasional yang tepat jika Anda memberikan rasional yang tepat, dan dengan hasil floating-point jika Anda memberikannya hasil floating-point.

Martin Ender
sumber
4

ZX Spectrum BASIC, 13 byte

1 INPUT A: PRINT SGN PI/A

Catatan:

  • Setiap baris berharga 2 byte untuk nomor baris, 2 byte untuk panjang baris dan 1 byte untuk baris baru
  • Numerik literal dikonversi menjadi biner pada waktu parse, dengan biaya tambahan 6 byte, sehingga penggunaan SGN PIbukannya literal1 .
  • Kata kunci masing-masing mengambil 1 byte.

Versi ZX81 untuk 17 byte:

1 INPUT A
2 PRINT SGN PI/A
Neil
sumber
1
Di mana saya dapat menemukan informasi yang lebih spesifik tentang cara mencetak ZX Spectrum BASIC?
Luis Mendo
@LuisMendo Anda dapat menemukan rangkaian karakter (termasuk kata kunci) di Wikipedia, tetapi selain itu saya tidak tahu apakah ada konsensus tentang penilaian ZX Basic. (Misalnya, versi ZX81 harus merupakan program lengkap, tetapi ZX Spectrum mendukung INPUT sebagai perintah langsung.)
Neil
Untuk menyimpan byte daftar program pada ZX81, Anda dapat melakukan LET A=17dan memperbaiki aplikasi Anda menjadi satu baris 1 PRINT SGN PI/A, Anda perlu mengubah nilai A dengan lebih banyak mengetik setiap kali Anda ingin menjalankan program Anda.
Shaun Bebbers
4

R, 8 byte

1/scan()

Cukup mudah. Langsung menampilkan kebalikan dari input.

Solusi lain, tetapi 1 byte lebih lama bisa:, scan()^-1atau bahkan scan()**-1untuk byte tambahan. Keduanya ^dan **simbol kekuatan.

Frédéric
sumber
4

TI-Basic (TI-84 Plus CE), 6 5 2 byte

Ans⁻¹

-1 byte terima kasih kepada Timtech .

-3 byte dengan Ansterima kasih kepada Григорий Перельман .

Ansdan ⁻¹merupakan token satu byte .

TI-Basic secara implisit mengembalikan nilai terakhir yang dievaluasi ( Ans⁻¹).

pizzapants184
sumber
Input juga secara implisit mendapat input koordinat ke dalam X dan Y, tetapi Anda tidak dapat menggunakannya karena Anda harus dapat menerima angka floating point. Ingat bahwa X ^ -1 hanya dua byte sehingga Anda bisa menyimpannya di sana.
Timtech
TI-Basic diizinkan untuk mengambil input dari Ans, sehingga Anda dapat menggantinya denganAns⁻¹
Pavel
3

Jelly , 1 byte

İ

Cobalah online!

Dennis
sumber
Itu sebenarnya 2 byte.
Coder-256
Di UTF-8, tentu saja. Secara default, Jelly menggunakan SBCS khusus .
Dennis
@Dennis, wiki yang Anda taut bertuliskan Jelly programs consist of up to 257 different Unicode characters.
Khaled.K
@ Khaled.K Ya, ia juga mengatakan Karakter dan karakter linefeed dapat digunakan secara bergantian , jadi sementara mode Unicode "memahami" 257 karakter yang berbeda, mereka memetakan ke 256 token.
Dennis
3

C, 30 byte

float f(float x){return 1./x;}
dkudriavtsev
sumber
Anda dapat menghapus trailing 0untuk menyimpan satu byte. Dengan 1.itu masih akan dikompilasi sebagai dobel.
Patrick Roberts
@ PatrickRoberts Tidak dalam pengujian saya. 1.masih diperlakukan seperti bilangan bulat.
dkudriavtsev
Bekerja untuk saya menggunakan echo -e "#include <stdio.h>\nfloat f(x){return 1./x;}main(){printf(\"%f\\\\n\",f(5));}" | gcc -o test -xc -Output of ./testadalah0.200000
Patrick Roberts
1
Bukankah ini mengambil input sebagai bilangan bulat, bukan float? Tidak berfungsi untuk mengapung, setidaknya pada gcc. float f(float x){return 1/x;}akan bekerja dengan benar.
Steadybox
2
Tidak perlu untuk trailing .- C dengan senang hati akan dikonversi (int)1ke (float)1karena tipe x.
fluffy