Bài tập

Viết hàm hoặc chương trình để tìm số vòng quay cần thiết của một bánh xe để đi được một khoảng cách nhất định, với bán kính của nó.

Quy tắc

Đầu vào có thể là 2 số hữu tỷ dương và có thể được lấy ở bất kỳ định dạng thuận tiện nào.

Cả hai đầu vào là cùng một đơn vị.

Không được có bất kỳ chữ số 0-9 nào trong mã của bạn.

Đầu ra sẽ là một số nguyên (trong trường hợp nổi, tròn đến vô cùng)

Đây là môn đánh gôn nên mã ngắn nhất sẽ thắng

Ví dụ

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

τ/╠ü

Hãy thử trực tuyến!

Giải trình

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

APL + THẮNG, 9 byte

Nhắc bán kính theo sau khoảng cách:

⌈⎕÷○r+r←⎕

Hãy thử trực tuyến! Lịch sự của Dyalog Classic

Giải trình:

○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/'')

Chứa không thể in \u0002giữa các dấu ngoặc đơn.

Cổng của câu trả lời Perl 6 của @jOKing .

Hãy thử trực tuyến.

Perl 6 , 15 12 byte

-3 byte tjanks để nwellnhof nhắc nhở tôi về tau

*/*/τ+|$+!$

Hãy thử trực tuyến!

Vô danh Bất cứ điều gì lambda sử dụng công thức (a/b/tau).floor+1. Tàu là hai lần pi. Hai biến ẩn danh $được ép buộc với số 0, được sử dụng để chia số +|0(bitwise hoặc 0) và thêm một biến +!$(cộng không bằng 0).

Python 2 , 47 45 44 43 byte

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

Hãy thử trực tuyến!

• -2 byte, nhờ flawr
• -1 byte, nhờ Jonathan Allan

05AB1E , 6 byte

·/žq/î

Cổng bình luận Python 2 của @flawr .
Đưa đầu vào theo thứ tự radius, distance.

Hãy thử trực tuyến hoặc xác minh tất cả các trường hợp thử nghiệm .

Giải trình:

·         # 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));

Hãy thử trực tuyến .

Ruby , 29 byte

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

Hãy thử trực tuyến!

C, 46 byte

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

Tôi mới sử dụng PPCG, vì vậy tôi không chắc chắn tôi phải đếm các phần khác trong số byte, chẳng hạn như

include <math.h>

cần thiết cho chức năng trần, sẽ tăng số lượng lên 64 byte

Catholicon , 8 byte

ċ//ĊǓĊ`Ė

Giải trình:

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

Phiên bản mới (pi dựng sẵn một byte, tham số chia đổi), 5 byte

ċ/π/Ǔ

J , 10 9 byte

>.@%o.@+:

Hãy thử trực tuyến!

Stax , 5 byte

Vt*/e

Chạy và gỡ lỗi nó

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

MathGolf , 6 5 byte

∞/π/ü

Semi-port của bình luận Python 2 của @flawr .
Đưa đầu vào theo thứ tự radius distance.

-1 byte vì ceilnội dung mới được thêm vào, thay thế floor+1.

Hãy thử trực tuyến .

Giải trình:

∞        # 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');}

Một xấp xỉ hợp lý của pi là 355/113. Vì chu vi C = 2 * r * PI, chúng ta có thể thay vì pi sử dụng tau, điều đó dĩ nhiên là ~ 710/113. 710 xảy ra có các yếu tố thuận tiện 2 * 5 * 71, được thể hiện nhỏ gọn như 'G' * '\n'. Chúng ta thêm một ( r/r) để buộc làm tròn đến vô cùng.

Chỉnh sửa: Thủ thuật của tôi quá thông minh vì lợi ích của chính nó: tất nhiên nó đã làm cho nó thất bại nếu khoảng cách là bội số của chu vi.

Hãy thử trực tuyến!

Julia 1.0 , 20 byte

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

Hãy thử trực tuyến!

R , 39 32 byte

-7 byte Nhờ Giuseppe

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

Hãy thử trực tuyến!

Tôi cảm thấy như điều này chắc chắn có thể được chơi gôn, nhưng tôi hơi lười biếng để làm bất cứ điều gì về nó

tối thiểu 16 byte

/ tau / ceil int

Lấy khoảng cách và bán kính đặt trên ngăn xếp theo thứ tự đó. Sau đó chia cho tau, làm tròn và làm cho int.

Thạch , 6 byte

÷÷ØPHĊ

Hãy thử trực tuyến!

Japt, 7 byte

/MT/V c

Hãy thử nó ở đây

JavaScript (Nút Babel) , 25 byte

-2 byte sử dụng @flawr bình luận = D. -1 từ @Kevin. -7 từ @Shaggy

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

Hãy thử trực tuyến!

Phi tiêu , 47 46 byte

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

Hãy thử trực tuyến!

• -1 byte nhờ @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

Hãy thử trực tuyến!

Cảm ơn KirillL. -8 byte.

Lisp thông thường, 36 byte

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

Hãy thử trực tuyến!

Tcl , 50 byte

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

Hãy thử trực tuyến!

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

Hãy thử trực tuyến!

Thiếu một hằng số pi hoặc chức năng làm cho tôi thua cuộc thi golf!

PowerShell, 53 52 51 byte

-1 byte nhờ @mazzy
-1 byte sau khi tôi nhận ra mình không cần dấu chấm phẩy sau param()khối

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

Hãy thử trực tuyến!

Lấy đầu vào từ hai tham số dòng lệnh, khoảng cách -dvà bán kính -r.

JavaScript (Nút Babel), 23 byte

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

Hãy thử trực tuyến!

Clojure , 50 byte

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

Một hàm ẩn danh chấp nhận hai số nguyên avà blàm đối số: khoảng cách và bán kính của bánh xe, tương ứng.

Hãy thử trực tuyến!

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

TI-Basic (sê-ri 83), 12 byte

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

Lấy đầu vào dưới dạng danh sách bán kính và khoảng cách trong Ans: ví dụ : {0.9999:12.5663:prgmX.

e^(ΔList(ln(Anssẽ lấy tỷ lệ của những khoảng cách đó, và min(biến nó thành một con số. Sau đó, chúng tôi chia cho Tmax, đó là một tham số đồ thị bằng 2π theo mặc định. Cuối cùng, -int(-lấy trần.

Pari / GP , 23 byte

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

Hãy thử trực tuyến!