Görev

Yarıçapı göz önüne alındığında, bir tekerleğin belirli bir mesafeyi kat etmesi için gereken dönüş sayısını bulmak için bir işlev veya program yazın.

kurallar

Giriş 2 pozitif rasyonel sayı olabilir ve herhangi bir uygun formatta alınabilir.

Her iki giriş de aynı birimdedir.

Kodunuzda 0-9 rakamı olmamalıdır.

Çıktı bir tamsayı olacaktır (şamandıra durumunda, sonsuza kadar yuvarlak)

Bu kod golf, bu yüzden en kısa kod kazanır

Örnekler

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 bayt

τ/╠ü

Çevrimiçi deneyin!

açıklama

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

APL + WIN, 9 bayt

Yarıçapı ve ardından mesafeyi bildirir:

⌈⎕÷○r+r←⎕

Çevrimiçi deneyin! Dyalog Classic'in izniyle

Açıklama:

○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 bayt

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

\u0002Tek tırnak işaretleri arasında yazdırılamaz .

Bağlantı noktası @jOKing Perl 6 cevap .

Çevrimiçi deneyin.

Perl 6 , 15 12 bayt

-3 bytes tjanks nwellnhof bana tau hakkında hatırlatan

*/*/τ+|$+!$

Çevrimiçi deneyin!

Anonim Formülü kullanan lambda ne olursa olsun (a/b/tau).floor+1. Tau pi'nin iki katıdır. İki anonim değişken , sayıyı katlamak (bitsel veya 0) ve bir (artı sıfır değil) eklemek için kullanılan $sayıya zorlanır .0+|0+!$

Python 2 , 47 45 44 43 bayt

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

Çevrimiçi deneyin!

• Kusur sayesinde -2 bayt
• -1 bayt, Jonathan Allan sayesinde

05AB1E , 6 bayt

·/žq/î

Port of @flawr adlı kullanıcının Python 2 yorumu .
Sırayla girişi Alır radius, distance.

Çevrimiçi deneyin veya tüm test senaryolarını doğrulayın .

Açıklama:

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

PHP, 47 bayt

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

Çevrimiçi deneyin .

Ruby , 29 bayt

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

Çevrimiçi deneyin!

C, 46 bayt

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

PPCG'de yeniyim, bu nedenle bayt sayısındaki diğer bölümleri saymam gerekip gerekmediğinden emin değilim.

include <math.h>

sayısı 64 bayta çıkaracak olan tavan işlevi için gerekli

Katolikon , 8 bayt

ċ//ĊǓĊ`Ė

Açıklama:

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

Yeni sürüm (pi yerleşik bir bayt, bölüm parametreleri değiştirildi), 5 bayt

ċ/π/Ǔ

J , 10 9 bayt

>.@%o.@+:

Çevrimiçi deneyin!

Stax , 5 bayt

Vt*/e

Çalıştır ve hata ayıkla

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

MathGolf , 6 5 bayt

∞/π/ü

@Flawr 'ın Python yarı limanı 2 yorumu .
Girdileri sırayla alır radius distance.

-1 bayt çünkü ceilbuiltin eklendi, yerine floor+1.

Çevrimiçi deneyin .

Açıklama:

∞        # 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 bayt

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

Pi'nin makul bir yaklaşımı 355/113'tür. Çevresi C = 2 * r * PI olduğundan, pi kullanımı tau yerine elbette ~ 710/113 olabilir. 710, kompakt olarak ifade edilen uygun faktörlere 2 * 5 * 71 sahiptir 'G' * '\n'. Sonsuza yuvarlamayı zorlamak için bir ( r/r) ekliyoruz .

Düzenleme: Benim hile kendi iyiliği için çok zeki oldu: Tabii ki mesafe çevresi bir katı olsaydı başarısız yaptı.

Çevrimiçi deneyin!

Julia 1.0 , 20 bayt

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

Çevrimiçi deneyin!

R , 39 32 bayt

-7 bayt Giuseppe'ya teşekkürler

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

Çevrimiçi deneyin!

Bu kesinlikle golf olabilir gibi hissediyorum, ama şu anda bu konuda bir şey yapmak için biraz tembelim

min , 16 bayt

/ tau / ceil int

Bu sıraya yığına yerleştirilen mesafe ve yarıçapı alır. Sonra tau ile böler, yuvarlar ve int yapar.

Jöle , 6 bayt

÷÷ØPHĊ

Çevrimiçi deneyin!

Japt, 7 bayt

/MT/V c

Burada deneyin

JavaScript (Babel Düğümü) , 25 bayt

@Flawr comment = D kullanarak -2 bayt. @Kevin'den -1. -7 @ @Shaggy

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

Çevrimiçi deneyin!

Dart , 47 46 bayt

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

Çevrimiçi deneyin!

• @Shaggy sayesinde -1 bayt

Haskell, 25 bayt

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

Lua , 61 58 57 49 bayt

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

Çevrimiçi deneyin!

KirillL'e teşekkürler. -8 bayt.

Ortak Lisp, 36 bayt

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

Çevrimiçi deneyin!

Tcl , 50 bayt

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

Çevrimiçi deneyin!

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

Çevrimiçi deneyin!

Bir pi sabiti veya fonksiyonunun olmaması golf yarışmasını kaybetmemi sağlıyor!

PowerShell, 53 52 51 bayt

-1 byte sayesinde @mazzy
-1 byte param()bloktan sonra noktalı virgül kullanmam gerektiğini fark ettikten sonra

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

Çevrimiçi deneyin!

Mesafe -dve yarıçap olmak üzere iki komut satırı parametresinden girdi alır -r.

JavaScript (Babel Düğümü), 23 bayt

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

Çevrimiçi deneyin!

Clojure , 50 bayt

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

İki tamsayıyı ave bbağımsız değişken olarak kabul eden anonim bir işlev : sırasıyla mesafe ve tekerleğin yarıçapı.

Çevrimiçi deneyin!

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

TI-Basic (83 serisi), 12 bayt

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

Girdiyi yarıçap ve mesafe listesi olarak alır Ans: örneğin {0.9999:12.5663:prgmX,.

e^(ΔList(ln(Ansbu mesafelerin oranını alır ve min(bunu bir sayıya dönüştürür. Sonra Tmax, bölüyoruz, bu varsayılan olarak 2π'ye eşit bir grafik parametresidir. Sonunda -int(-tavanı alır.

Pari / GP , 23 bayt

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

Çevrimiçi deneyin!