Liczba obrotów

10

Zadanie

Napisz funkcję lub program, aby znaleźć liczbę obrotów wymaganych przez koło do przebycia określonej odległości, biorąc pod uwagę jej promień.

Zasady

Dane wejściowe mogą być 2 dodatnimi liczbami wymiernymi i mogą być przyjmowane w dowolnym dogodnym formacie.

Oba wejścia mają tę samą jednostkę.

W kodzie nie mogą znajdować się cyfry 0–9.

Wyjście będzie liczbą całkowitą (w przypadku liczby zmiennoprzecinkowej, zaokrąglenie do nieskończoności)

To jest golf golfowy, więc wygrywa najkrótszy kod

Przykłady

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

code-golf restricted-source

— Wedant Kandoi
źródło

5

Prawdopodobnie powinieneś dodać, że cyfry są również zabronione w opcjach kompilatora (lub gdziekolwiek indziej): jeśli ograniczysz to ograniczenie tylko do kodu, za pomocą gcc możemy zrobić coś takiego jak -DP=3.14w flagach kompilatora, który zdefiniowałby Pjako przybliżenie liczby pi, co prawdopodobnie nie to, co zamierzałeś

— Annyo

Odpowiedzi:

6

MathGolf , 5 4 bajtów

τ/╠ü

Wypróbuj online!

Wyjaśnienie

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

— maxb
źródło

4

APL + WIN, 9 bajtów

Monity o promień, a następnie odległość:

⌈⎕÷○r+r←⎕

Wypróbuj online! Dzięki uprzejmości Dyalog Classic

Wyjaśnienie:

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

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

— Graham
źródło

⌈⎕÷○+⍨⎕działa na 7 bajtów.

— J. Sallé

@ J.Sallé Dzięki, ale niestety mój starożytny interpreter APL + WIN nie ma operatora ⍨

— Graham

4

Java 8, 32 30 bajtów

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

Zawiera niedrukowalne \u0002między pojedynczymi cudzysłowami.

Port odpowiedzi Perla 6 na @jOKing .

Wypróbuj online.

— Kevin Cruijssen
źródło

Czy to cyfra „1” w twoim kodzie? Myślę, że to może być niedozwolone.

— ouflak

4

@ouflak Wygląda na to, że można to naprawić w ten sposób .

— Erik the Outgolfer

@ouflak Woops, to był dość głupi błąd. Używam niezadrukowanego, więc nie używam cyfry 2, a potem po prostu używam cyfry 1... Na szczęście Erik ma rację, że zwykły jednoargument negatywny ma taki sam efekt jak +1(często używany pozbyć się nawiasów, ponieważ negatywne i jednostkowe mają wyższy priorytet niż większość innych operatorów).

— Kevin Cruijssen

4

Perl 6 , 15 12 bajtów

-3 bajty tjanks do nwellnhof przypominając mi o tau

*/*/τ+|$+!$

Wypróbuj online!

Anonimowy Jakakolwiek lambda, która używa tej formuły (a/b/tau).floor+1. Tau jest dwa razy pi. Dwie anonimowe zmienne $są przymuszane do liczby 0, która jest używana do +|0uzupełnienia liczby (bitowa lub 0) i dodania jednej +!$(plus nie zero).

— Jo King
źródło

W kodzie nie mogą znajdować się cyfry 0–9.

— Tytus

@Titus Nie mogę uwierzyć, że o tym zapomniałem. Dzięki, naprawione!

— Jo King

Czy cyfry w wykładnikach są również dozwolone?

— ouflak

3

Python 2 , 47 45 44 43 bajty

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

Wypróbuj online!

-2 bajty dzięki flawr
-1 bajt, dzięki Jonathan Allan

— TFeld
źródło

Ponieważ zagwarantowano, że dane wejściowe są zarówno (ściśle) dodatnie, jak i racjonalne, nigdy nie trafiliśmy na przypadek wymagający dokładnej liczby obrotów, więc myślę, że możemy to zrobić l/(r+r)//pi+l/li zapisać bajt.

— Jonathan Allan

@JonathanAllan Thanks :)

— TFeld

2

05AB1E , 6 bajtów

·/žq/î

Port komentarza @flawr w Python 2 .
Trwa wejście w porządku radius, distance.

Wypróbuj online lub sprawdź wszystkie przypadki testowe .

Wyjaśnienie:

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

— Kevin Cruijssen
źródło

2

PHP, 47 bajtów

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

Wypróbuj online .

— Tytus
źródło

2

Ruby , 29 bajtów

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

Wypróbuj online!

— GB
źródło

2

C, 46 bajtów

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

Jestem nowy w PPCG, więc nie jestem pewien, czy muszę liczyć inne części w liczbie bajtów, takie jak

include <math.h>

potrzebne do funkcji ceil, która zwiększy liczbę do 64 bajtów

— bznein
źródło

Witamy w PPCG! To miła pierwsza odpowiedź. Tak, musisz liczyć #includei tym podobne do całkowitej liczby bajtów. Link do internetowego zestawu testów jest zawsze mile widziany, oto jeden, który możesz dołączyć

— OOBalance

@OOBalance Cyfry nie są dozwolone w kodzie tego wyzwania;)

— Annyo

@Annyo Wiedziałem, że coś zapomniałem :(

— OOBalance,

2

Catholicon , 8 bajtów

ċ//ĊǓĊ`Ė

Wyjaśnienie:

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

Nowa wersja (wbudowana pi zrobiła jeden bajt, zmieniono parametry podziału), 5 bajtów

ċ/π/Ǔ

— Okx
źródło

2

J , 10 9 bajtów

>.@%o.@+:

Wypróbuj online!

— Galen Iwanow
źródło

1

+1 za eleganckie użycie dyadycznego haczyka

— Jonah

@Jonah Dziękuję!

— Galen Iwanow

2

Stax , 5 bajtów

Vt*/e

Uruchom i debuguj

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

— rekurencyjny
źródło

2

MathGolf , 6 5 bajtów

∞/π/ü

Częściowy port komentarza @flawr w Python 2 .
Pobiera dane wejściowe w kolejności radius distance.

-1 bajt, ponieważ ceilwłaśnie dodano wbudowane, zastępując floor+1.

Wypróbuj online .

Wyjaśnienie:

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

— Kevin Cruijssen
źródło

2

C (gcc) , 45 47 45 bajtów

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

Rozsądnym przybliżeniem liczby pi jest 355/113. Ponieważ obwód C = 2 * r * PI, zamiast pi możemy użyć tau, co wtedy wynosi oczywiście ~ 710/113. 710 ma dogodne czynniki 2 * 5 * 71, co jest zwięźle wyrażone jako 'G' * '\n'. ~~Dodajemy jeden ( r/r), aby wymusić zaokrąglanie do nieskończoności.~~

Edycja: Moja sztuczka była zbyt sprytna dla własnego dobra: oczywiście sprawiła, że zawiodła, jeśli odległość była wielokrotnością obwodu.

Wypróbuj online!

— gastropner
źródło

2

Julia 1.0 , 20 bajtów

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

Wypróbuj online!

— gggg
źródło

2

R , 39 32 bajty

-7 bajtów Dzięki Giuseppe

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

Wypróbuj online!

Wydaje mi się, że można na pewno zagrać w golfa, ale teraz jestem trochę leniwy, aby coś z tym zrobić

— Sumner18
źródło

2

min , 16 bajtów

/ tau / ceil int

Zmienia odległość i promień na stosie w tej kolejności. Następnie dzieli przez tau, zaokrągla i tworzy liczbę całkowitą.

— Panda0nEarth
źródło

1

Galaretka , 6 bajtów

÷÷ØPHĊ

Wypróbuj online!

— Erik the Outgolfer
źródło

1

Japt, 7 bajtów

/MT/V c

Wypróbuj tutaj

— Kudłaty
źródło

1

JavaScript (węzeł Babel) , 25 bajtów

-2 bajty przy użyciu komentarza @flawr = D. -1 od @Kevin. -7 od @Shaggy

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

Wypróbuj online!

— Luis Felipe De Jesus Munoz
źródło

Ma tylko a=>b=>Math.ceil(a/(b+b)/Math.PI)32 bajty. :)

— Kevin Cruijssen

25 bajtów

— Shaggy

1

Dart , 47 46 bajtów

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

Wypróbuj online!

-1 bajt dzięki @Shaggy

— Elcan
źródło

46 bajtów

— Kudłaty

1

Haskell, 25 bajtów

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

— notatka
źródło

Możesz zdefiniować operatora (!)zamiast fi używać ceiling$zamiast tego ceiling(..)oszczędza 3 bajty: Wypróbuj online!

— ბიმო

1

Lua , 61 58 57 49 bajtów

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

Wypróbuj online!

Dzięki KirillL. -8 bajtów.

— ouflak
źródło

Nie znam dużo Lua (więc może wciąż jest za długi), ale wydaje się być krótszy jako funkcja: 49 bajtów

— Kirill L.

@KirillL., Wciąż uczę się zasad tutaj. Wyzwanie PO jest dość otwarte na wejściu. Więc moje pytanie brzmi: czy musielibyśmy liczyć twoje wywołanie programu () w stosunku do liczby bajtów? Jeśli nie, to zdecydowanie goli niezły kawałek.

— ouflak

Dość powszechnym stylem przekazywania jest tutaj funkcja anonimowa (abyśmy nie musieli liczyć nazwy, chyba że jest rekurencyjna), która wyprowadza wartość zwracaną. Sekcja stopki z wywołaniami funkcji i rzeczywistym drukowaniem na konsolę jest następnie zasadniczo używana do wizualizacji wyników i nie jest wliczana do wyniku. BTW, możesz dodać do stopki więcej przykładów testów OP, aby można je było wygodnie przeglądać jednocześnie. Pamiętaj, że w niektórych przypadkach pełny program może okazać się golfistą!

— Kirill L.,

1

Common Lisp, 36 bajtów

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

Wypróbuj online!

— Renzo
źródło

1

Tcl , 50 bajtów

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

Wypróbuj online!

Tcl , 53 bajty

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

Wypróbuj online!

Brak stałej lub funkcji pi powoduje, że przegrywam konkurencję golfową!

— sergiol
źródło

Czy muszę usunąć .0 na końcu każdego wyjścia? Sprawiłoby to, że zużyłem więcej bajtów!

— sergiol

1

[incr i]jest dość sprytny, ale myślę, że możesz użyć $d/$dlub $r/$rzamiast tego.

— David

Zaoszczędziłem trochę bajtów dzięki pomysłowi @ davida!

— sergiol

1

PowerShell, 53 52 51 bajtów

-1 bajt dzięki @mazzy
-1 bajt po tym, jak zdałem sobie sprawę, że nie potrzebuję średnika po param()bloku

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

Wypróbuj online!

Pobiera dane wejściowe z dwóch parametrów wiersza polecenia, odległości -di promienia -r.

— Gabriel Mills
źródło

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

— mazzy

0

JavaScript (węzeł Babel), 23 bajty

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

Wypróbuj online!

— Igor Sowiński
źródło

2

W kodzie nie mogą znajdować się cyfry 0–9.

— Dennis

0

Clojure , 50 bajtów

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

Anonimowa funkcja, która przyjmuje dwie liczby całkowite ai bjako argumenty: odpowiednio odległość i promień koła.

Wypróbuj online!

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

— TheGreatGeek
źródło

0

TI-Basic (seria 83), 12 bajtów

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

Pobiera dane wejściowe jako listę promienia i odległości w Ans: na przykład {0.9999:12.5663:prgmX.

e^(ΔList(ln(Answeźmie stosunek tych odległości i min(zamieni to na liczbę. Następnie dzielimy przez Tmax, który jest parametrem graficznym domyślnie równym 2π. Wreszcie -int(-bierze pułap.

— Misza Ławrow
źródło

0

Pari / GP , 23 bajty

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

Wypróbuj online!

— alephalpha
źródło

Korzystając z naszej strony potwierdzasz, że przeczytałeś(-aś) i rozumiesz nasze zasady używania plików cookie i zasady ochrony prywatności.

Licensed under cc by-sa 3.0 with attribution required.