Завдання

Напишіть функцію або програму, щоб знайти кількість обертів, необхідних колесо для проходження певної відстані, враховуючи його радіус.

Правила

Вхід може бути 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/'')

Містить недруковані \u0002між цитатами.

Порт відповіді Perl 6 @jOKing .

Спробуйте в Інтернеті.

Perl 6 , 15 12 байт

-3 байт-tjanks до nwellnhof, що нагадує мені про тау

*/*/τ+|$+!$

Спробуйте в Інтернеті!

Анонімне Що б лямбда не використовувала формулу (a/b/tau).floor+1. Тау - два рази пі. Дві анонімні змінні $примусові до числа 0, яке використовується для підрахунку числа +|0(порозрядно або 0) та додавання однієї +!$(плюс не нуля).

Python 2 , 47 45 44 43 байт

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

Спробуйте в Інтернеті!

• -2 байти, завдяки flawr
• -1 байт, завдяки Джонатану Аллану

05AB1E , 6 байт

·/žq/î

Порт коментаря @flawr 's Python 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));

Спробуйте в Інтернеті .

Рубін , 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 байт

Католикон , 8 байт

ċ//ĊǓĊ`Ė

Пояснення:

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

Нова версія (pi вбудований зробив один байт, змінив параметри поділу), 5 байт

ċ/π/Ǔ

J , 10 9 байт

>.@%o.@+:

Спробуйте в Інтернеті!

Стакс , 5 байт

Vt*/e

Запустіть і налагоджуйте його

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

MathGolf , 6 5 байт

∞/π/ü

Пол-порт @flawr Python 2 коментарі «s .
Бере введення в порядку radius distance.

-1 байт, оскільки ceilвбудований модуль щойно доданий, замінюючи 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');}

Доцільне наближення пі - 355/113. Оскільки окружність C = 2 * r * PI, ми можемо замість pi використовувати tau, що, звичайно, тоді ~ 710/113. 710, буває, має зручні коефіцієнти 2 * 5 * 71, що компактно виражається як 'G' * '\n'. Додаємо один ( r/r), щоб примусити округлення до нескінченності.

Редагувати: мій трюк був надто розумним для власного блага: він, звичайно, збився, якщо відстань кратна окружності.

Спробуйте в Інтернеті!

Джулія 1,0 , 20 байт

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

Спробуйте в Інтернеті!

R , 39 32 байти

-7 байт Завдяки Джузеппе

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

Спробуйте в Інтернеті!

Я відчуваю, що це, безумовно, могло б бути полем для гольфу, але я трохи ледачий зараз робити щось з цього приводу

хв. , 16 байт

/ tau / ceil int

Визначає відстань і радіус, нанесений на стек, у такому порядку. Потім ділиться на tau, обводить і робить int.

Желе , 6 байт

÷÷ØPHĊ

Спробуйте в Інтернеті!

Japt, 7 байт

/MT/V c

Спробуйте тут

JavaScript (Babel Node) , 25 байт

-2 байти за допомогою @flawr comment = D. -1 від @Kevin. -7 від @Shaggy

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

Спробуйте в Інтернеті!

Дарт , 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)

Луа , 61 58 57 49 байт

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

Спробуйте в Інтернеті!

Завдяки KirillL. -8 байт.

Лист звичайний, 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])))}

Спробуйте в Інтернеті!

Відсутність константи пі або функції змушує мене програти змагання з гольфу!

PowerShell, 53 52 51 байт

-1 байт завдяки @mazzy
-1 байт після того, як я зрозумів, що мені не потрібна крапка з комою після param()блоку

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

Спробуйте в Інтернеті!

Вводить дані з двох параметрів командного рядка, відстані -dта радіусу -r.

JavaScript (Babel Node), 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 серія), 12 байт

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

Приймає вхідний сигнал у вигляді списку радіусу і відстані в Ans: наприклад, {0.9999:12.5663:prgmX.

e^(ΔList(ln(Ansвізьме відношення цих відстаней і min(перетворить це на число. Потім ми ділимо на Tmax, що є параметром графіки, рівним 2π за замовчуванням. Нарешті, -int(-бере стелю.

Парі / GP , 23 байти

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

Спробуйте в Інтернеті!