งาน

เขียนฟังก์ชั่นหรือโปรแกรมเพื่อค้นหาจำนวนรอบการหมุนที่ล้อต้องการเพื่อเดินทางไปตามระยะทางที่กำหนดโดยกำหนดรัศมี

กฎระเบียบ

อินพุตสามารถเป็นจำนวนตรรกยะจำนวนบวก 2 ตัวและสามารถนำไปใช้ในรูปแบบใดก็ได้ที่สะดวก

อินพุตทั้งสองเป็นหน่วยเดียวกัน

ต้องไม่มีตัวเลข 0-9 ในรหัสของคุณ

เอาท์พุทจะเป็นจำนวนเต็ม (ในกรณีที่ลอย, รอบที่ไม่มีที่สิ้นสุด)

นี่คือรหัส - กอล์ฟเพื่อให้ได้รหัสที่สั้นที่สุด

ตัวอย่าง

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 ไบต์

τ/╠ü

ลองออนไลน์!

คำอธิบาย

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

APL + WIN, 9 ไบต์

พรอมต์สำหรับรัศมีตามด้วยระยะทาง:

⌈⎕÷○r+r←⎕

ลองออนไลน์! ความอนุเคราะห์จาก Dyalog Classic

คำอธิบาย:

○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 ไบต์

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

มี unprintable \u0002ระหว่างเครื่องหมายคำพูดเดี่ยว

ท่าเรือ@jOKing 's Perl 6 คำตอบ

ลองออนไลน์

Perl 6 , 15 12 ไบต์

-3 bytes tjanks ถึง nwellnhof เตือนฉันเกี่ยวกับ tau

*/*/τ+|$+!$

ลองออนไลน์!

(a/b/tau).floor+1แลมบ์ดาที่ไม่ระบุชื่ออะไรก็ตามที่ใช้สูตร เอกภาพเป็นสองเท่าของปี่ ตัวแปรนิรนามสองตัว$จะถูกรวมเข้ากับหมายเลข0ซึ่งถูกใช้เพื่อปูพื้นตัวเลข+|0(bitwise หรือ 0) และเพิ่มหนึ่งตัว+!$(บวกไม่เป็นศูนย์)

Python 2 , 47 45 44 43 ไบต์

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

ลองออนไลน์!

• -2 ไบต์ขอบคุณข้อบกพร่อง
• -1 ไบต์ขอบคุณ Jonathan Allan

05AB1E , 6 ไบต์

·/žq/î

ท่าเรือ@flawr 's งูหลาม 2 ความคิดเห็น
รับอินพุตตามลำดับradius, distance.

ลองมันออนไลน์หรือตรวจสอบกรณีทดสอบทั้งหมด

คำอธิบาย:

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

PHP, 47 ไบต์

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

ลองมันออนไลน์

Ruby , 29 ไบต์

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

ลองออนไลน์!

C, 46 ไบต์

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

ฉันใหม่สำหรับ PPCG ดังนั้นฉันไม่แน่ใจว่าฉันจะต้องนับส่วนอื่น ๆ เป็นจำนวนไบต์เช่น

include <math.h>

จำเป็นสำหรับฟังก์ชั่น ceil ซึ่งจะเพิ่มจำนวนเป็น64 ไบต์

Catholiconขนาด 8 ไบต์

ċ//ĊǓĊ`Ė

คำอธิบาย:

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

เวอร์ชันใหม่ (pi builtin สร้างหนึ่งไบต์, สลับพารามิเตอร์หาร), 5 ไบต์

ċ/π/Ǔ

J , 10 9 ไบต์

>.@%o.@+:

ลองออนไลน์!

Stax , 5 ไบต์

Vt*/e

เรียกใช้และแก้ไขข้อบกพร่อง

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

MathGolf , 6 5 ไบต์

∞/π/ü

กึ่งท่าเรือ@flawr 's งูหลาม 2 ความคิดเห็น จะเข้าในการสั่งซื้อ
radius distance

-1 ไบต์เพราะceilbuiltin floor+1ได้รับเพียงแค่เพิ่มเปลี่ยน

ลองมันออนไลน์

คำอธิบาย:

∞        # 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 ไบต์

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

การประมาณที่เหมาะสมของ pi คือ 355/113 เนื่องจากเส้นรอบวง C = 2 * r * PI เราสามารถแทน pi ใช้ tau ได้ซึ่งแน่นอนว่า ~ 710/113 710 เกิดขึ้นจะมีปัจจัยสะดวก 2 * 5 * 71 'G' * '\n'ซึ่งจะแสดงเป็นดาน เราเพิ่มหนึ่ง ( r/r) เพื่อบังคับให้ปัดเศษเป็นอนันต์

แก้ไข: เคล็ดลับของฉันฉลาดเกินไปสำหรับผลประโยชน์ของตนเอง: แน่นอนทำให้มันล้มเหลวหากระยะทางเป็นเส้นรอบวงหลายครั้ง

ลองออนไลน์!

Julia 1.0 , 20 ไบต์

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

ลองออนไลน์!

R , 39 32 ไบต์

-7 ไบต์ขอบคุณ Giuseppe

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

ลองออนไลน์!

ฉันรู้สึกเหมือนว่าจะเล่นกอล์ฟได้ แต่ฉันขี้เกียจนิดหน่อยตอนนี้ที่จะทำอะไรกับมัน

ขั้นต่ำ , 16 ไบต์

/ tau / ceil int

ใช้ระยะทางและรัศมีที่วางบนสแต็ก จากนั้นหารด้วยเอกภาพรอบและทำให้ int

เยลลี่ขนาด 6 ไบต์

÷÷ØPHĊ

ลองออนไลน์!

Japtap, 7 ไบต์

/MT/V c

ลองที่นี่

JavaScript (โหนดบาเบล) 25 ไบต์

-2 ไบต์โดยใช้ @flawr ความคิดเห็น = D -1 จาก @Kevin -7 จาก @Shaggy

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

ลองออนไลน์!

Dart , 47 46 ไบต์

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

ลองออนไลน์!

• -1 ไบต์ขอบคุณ @Shaggy

Haskell, 25 ไบต์

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

Lua , 61 58 57 49 ไบต์

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

ลองออนไลน์!

ขอบคุณ KirillL -8 ไบต์

Lisp ทั่วไป, 36 ไบต์

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

ลองออนไลน์!

Tcl , 50 ไบต์

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

ลองออนไลน์!

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

ลองออนไลน์!

การขาดค่า pi คงที่หรือฟังก์ชั่นทำให้ฉันสูญเสียการแข่งขันกอล์ฟ!

PowerShell, 53 52 51 ไบต์

-1 byte ต้องขอบคุณ @mazzy
-1 byte หลังจากที่ฉันรู้ว่าฉันไม่จำเป็นต้องใช้เครื่องหมายอัฒภาคหลังจากparam()บล็อก

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

ลองออนไลน์!

นำข้อมูลจากสองพารามิเตอร์ commandline ระยะทางและรัศมี-d-r

JavaScript (โหนดบาเบล), 23 ไบต์

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

ลองออนไลน์!

Clojure 50 ไบต์

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

ฟังก์ชั่นไม่ระบุชื่อที่ยอมรับจำนวนเต็มสองจำนวนaและbเป็นอาร์กิวเมนต์: ระยะทางและรัศมีของวงล้อตามลำดับ

ลองออนไลน์!

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

TI-Basic (83 series), 12 ไบต์

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

จะเข้าเป็นรายการของรัศมีและระยะทางในAns: {0.9999:12.5663:prgmXยกตัวอย่างเช่น

e^(ΔList(ln(Ansจะใช้อัตราส่วนของระยะทางเหล่านั้นและmin(เปลี่ยนให้เป็นจำนวน จากนั้นเราหารด้วยTmaxซึ่งเป็นพารามิเตอร์กราฟที่เท่ากับ2πตามค่าเริ่มต้น ในที่สุด-int(-ใช้เพดาน

Pari / GP , 23 ไบต์

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

ลองออนไลน์!