Tugas

Tulis fungsi atau program untuk menemukan jumlah rotasi yang diperlukan oleh roda untuk menempuh jarak tertentu, dengan radiusnya.

Aturan

Input dapat berupa 2 angka rasional positif dan dapat diambil dalam format apa pun yang nyaman.

Kedua input memiliki unit yang sama.

Tidak boleh ada angka 0-9 dalam kode Anda.

Output akan berupa bilangan bulat (jika mengambang, bulat hingga tak terbatas)

Ini adalah kode-golf sehingga kode terpendek menang

Contohnya

distance radius  output
10       1       2
50       2       4
52.22    4       3
3.4      0.08    7
12.5663  0.9999  3

MathGolf , 5 4 byte

τ/╠ü

Cobalah online!

Penjelasan

τ      Push tau (2*pi)
 /     Divide the first argument (total distance) by tau
  ╠    Reverse divide (computes (distance/tau)/radius)
   ü   Ceiling

APL + WIN, 9 byte

Anjuran untuk radius diikuti oleh jarak:

⌈⎕÷○r+r←⎕

Cobalah online! Atas perkenan Dyalog Classic

Penjelasan:

○r+r←⎕ prompt for radius and double it and multiply by pie

⌈⎕÷ prompt for distance, divide by result above and take ceiling

Java 8, 32 30 byte

a->b->-~(int)(a/b/Math.PI/'')

Berisi yang tidak dapat dicetak di \u0002antara tanda kutip tunggal.

Port of @jOKing 's Perl 6 menjawab .

Cobalah online.

Perl 6 , 15 12 byte

-3 byte tjanks untuk nwellnhof mengingatkan saya tentang tau

*/*/τ+|$+!$

Cobalah online!

Anonim Apapun lambda yang menggunakan formula (a/b/tau).floor+1. Tau dua kali pi. Dua variabel anonim $dipaksa untuk nomor 0, yang digunakan untuk lantai nomor +|0(bitwise atau 0) dan tambahkan satu +!$(ditambah bukan nol).

Python 2 , 47 45 44 43 byte

lambda l,r:l/(r+r)//math.pi+l/l
import math

Cobalah online!

• -2 byte, terima kasih kepada flawr
• -1 byte, terima kasih kepada Jonathan Allan

05AB1E , 6 byte

·/žq/î

Port of @flawr 's Python 2 komentar .
Mengambil input dalam urutan radius, distance.

Cobalah secara online atau verifikasi semua kasus uji .

Penjelasan:

·         # Double the first (implicit) input
 /        # Divide the second (implicit) input by it
  žq/     # Divide it by PI
     î    # Ceil it (and output implicitly)

PHP, 47 byte

<?=ceil($argv[++$i]/M_PI/(($b=end($argv))+$b));

Cobalah online .

Ruby , 29 byte

->l,r{(l/Math::PI/r+=r).ceil}

Cobalah online!

C, 46 byte

f(float a,float b){return ceil(a/(b+b)/M_PI);}

Saya baru untuk PPCG, jadi saya tidak yakin apakah saya harus menghitung bagian lain dalam jumlah byte, seperti

include <math.h>

diperlukan untuk fungsi ceil, yang akan naik hitungan menjadi 64 byte

Catholicon , 8 byte

ċ//ĊǓĊ`Ė

Penjelasan:

  /ĊǓĊ    divide the first input by the doubled second input
 /    `Ė  divide that by pi
ċ         ceil

Versi baru (pi builtin dibuat satu byte, parameter pembagian bertukar), 5 byte

ċ/π/Ǔ

J , 10 9 byte

>.@%o.@+:

Cobalah online!

Stax , 5 byte

Vt*/e

Jalankan dan debug itu

Vt*   multiply by tau (2pi)
/     divide
e     ceiling

MathGolf , 6 5 byte

∞/π/ü

Semi-port dari komentar Python 2 @ flawr .
Mengambil input dalam urutan radius distance.

-1 byte karena ceilbuiltin baru saja ditambahkan, menggantikan floor+1.

Cobalah online .

Penjelasan:

∞        # Double the first (implicit) input
 /       # Divide the second (implicit) input by it
  π/     # Divide it by PI
    ü    # Ceil (and output implicitly)

C (gcc) , 45 47 45 byte

f(d,r,R)float d,r;{R=ceil(d/r/'G'/'\n'*'q');}

Perkiraan pi yang masuk akal adalah 355/113. Karena keliling C = 2 * r * PI, kita bisa bukannya pi menggunakan tau, yang tentu saja ~ 710/113. 710 kebetulan memiliki faktor nyaman 2 * 5 * 71, yang secara ringkas dinyatakan sebagai 'G' * '\n'. Kami menambahkan satu ( r/r) untuk memaksa pembulatan hingga tak terbatas.

Sunting: Trik saya terlalu pintar untuk kebaikannya sendiri: tentu saja membuatnya gagal jika jaraknya kelipatan dari kelilingnya.

Cobalah online!

Julia 1.0 , 20 byte

f(d,r)=cld(d/π,r+r)

Cobalah online!

R , 39 32 byte

-7 byte Berkat Giuseppe

function(d,r)ceiling(d/(r+r)/pi)

Cobalah online!

Saya merasa ini pasti golf, tapi saya agak malas sekarang untuk melakukan apa-apa

min , 16 byte

/ tau / ceil int

Mengambil jarak dan jari-jari diletakkan di tumpukan dalam urutan itu. Kemudian membaginya dengan tau, bulat, dan membuat int.

Jelly , 6 byte

÷÷ØPHĊ

Cobalah online!

Japt, 7 byte

/MT/V c

Coba di sini

JavaScript (Babel Node) , 25 byte

-2 byte menggunakan @ flawr comment = D. -1 dari @Kevin. -7 dari @Shaggy

a=>b=>-~(a/(b+b)/Math.PI)

Cobalah online!

Dart , 47 46 byte

import'dart:math';f(a,b)=>(a/(b+b)/pi).ceil();

Cobalah online!

• -1 byte terima kasih kepada @Shaggy

Haskell, 25 byte

f d r=ceiling(d/(r+r)/pi)

Lua , 61 58 57 49 byte

function(s,r)return math.ceil(s/(r+r)/math.pi)end

Cobalah online!

Terima kasih untuk KirillL. -8 byte.

Gangguan Umum, 36 byte

(lambda(a b)(ceiling(/ a(+ b b)pi)))

Cobalah online!

Tcl , 50 byte

proc N d\ r {expr ceil($d/(($r+$r)*acos(-$r/$r)))}

Cobalah online!

proc N d\ r {expr ceil($d/(($r+$r)*acos(-[incr i])))}

Cobalah online!

Kurangnya konstanta pi atau fungsi membuat saya kehilangan kompetisi golf!

PowerShell, 53 52 51 byte

-1 byte terima kasih kepada @mazzy
-1 byte setelah saya menyadari saya tidak perlu titik koma setelah param()blok

param($d,$r)($a=[math])::ceiling($d/($r+$r)/$a::pi)

Cobalah online!

Mengambil input dari dua parameter baris perintah, jarak -ddan jari-jari -r.

JavaScript (Babel Node), 23 byte

s=>r=>-~(s/2/r/Math.PI)

Cobalah online!

Clojure , 50 byte

(fn[a b](int(Math/ceil(/ a Math/PI(count"  ")b))))

Fungsi anonim yang menerima dua bilangan bulat adan bsebagai argumen: jarak dan jari-jari roda masing-masing.

Cobalah online!

(count " ")2$\lceil \dfrac a{2\pi b} \rceil$

TI-Basic (83 series), 12 byte

-int(-Tmax⁻¹min(e^(ΔList(ln(Ans

Mengambil input sebagai daftar radius dan jarak di Ans: misalnya {0.9999:12.5663:prgmX,.

e^(ΔList(ln(Ansakan mengambil rasio jarak tersebut, dan min(mengubahnya menjadi angka. Kemudian kita bagi dengan Tmax, yang merupakan parameter grafik yang sama dengan 2π secara default. Akhirnya, -int(-ambil plafon.

Pari / GP , 23 byte

(d,r)->ceil(d/(r+r)/Pi)

Cobalah online!