Senin görevin basit: verilen iki tamsayı ave bçıktı ∏[a,b]; bu, aralığında bir ürünüdür ave b. Sen alabilir ave bbu bir fonksiyonu, bir liste girişi, STDIN, vesaire için argümanlar olsun, herhangi bir makul biçimde. Dönüş değeri (işlevler için) veya STDOUT gibi herhangi bir makul formatta çıktı alabilirsiniz. aher zaman daha az olacaktır b.

Sonun münhasır veya kapsayıcı olabileceğini unutmayın b. Ben seçici değilim. ^ _ ^

Test durumları

[a,b) => result
[2,5) => 24
[5,10) => 15120
[-4,3) => 0
[0,3) => 0
[-4,0) => 24

[a,b] => result
[2,5] => 120
[5,10] => 151200
[-4,3] => 0
[0,3] => 0
[-4,-1] => 24

Bu bir kod golf , yani bayt cinsinden en kısa program kazanır.

Liderler Sıralaması

Bu yazının altındaki Yığın Parçacığı, cevapları a) dil başına en kısa çözümün bir listesi olarak ve b) genel bir lider tablosu olarak oluşturur.

Cevabınızın göründüğünden emin olmak için, lütfen aşağıdaki Markdown şablonunu kullanarak cevabınızı bir başlık ile başlatın:

## Language Name, N bytes

Gönderinizin Nbüyüklüğü nerede ? Puanınızı artırmak varsa, olabilir onları içinden vurarak, başlığa eski hesapları tutmak. Örneğin:

## Ruby, <s>104</s> <s>101</s> 96 bytes

Başlığınıza birden fazla sayı eklemek istiyorsanız (örneğin, puanınız iki dosyanın toplamı olduğundan veya tercüman bayrağı cezalarını ayrı ayrı listelemek istediğiniz için), gerçek puanın başlıktaki son sayı olduğundan emin olun :

## Perl, 43 + 2 (-p flag) = 45 bytes

Dil adını, daha sonra pasajda görünecek bir bağlantı da yapabilirsiniz:

## [><>](http://esolangs.org/wiki/Fish), 121 bytes

var QUESTION_ID=66202,OVERRIDE_USER=44713;function answersUrl(e){return"https://api.stackexchange.com/2.2/questions/"+QUESTION_ID+"/answers?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+ANSWER_FILTER}function commentUrl(e,s){return"https://api.stackexchange.com/2.2/answers/"+s.join(";")+"/comments?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+COMMENT_FILTER}function getAnswers(){jQuery.ajax({url:answersUrl(answer_page++),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){answers.push.apply(answers,e.items),answers_hash=[],answer_ids=[],e.items.forEach(function(e){e.comments=[];var s=+e.share_link.match(/\d+/);answer_ids.push(s),answers_hash[s]=e}),e.has_more||(more_answers=!1),comment_page=1,getComments()}})}function getComments(){jQuery.ajax({url:commentUrl(comment_page++,answer_ids),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){e.items.forEach(function(e){e.owner.user_id===OVERRIDE_USER&&answers_hash[e.post_id].comments.push(e)}),e.has_more?getComments():more_answers?getAnswers():process()}})}function getAuthorName(e){return e.owner.display_name}function process(){var e=[];answers.forEach(function(s){var r=s.body;s.comments.forEach(function(e){OVERRIDE_REG.test(e.body)&&(r="<h1>"+e.body.replace(OVERRIDE_REG,"")+"</h1>")});var a=r.match(SCORE_REG);a&&e.push({user:getAuthorName(s),size:+a[2],language:a[1],link:s.share_link})}),e.sort(function(e,s){var r=e.size,a=s.size;return r-a});var s={},r=1,a=null,n=1;e.forEach(function(e){e.size!=a&&(n=r),a=e.size,++r;var t=jQuery("#answer-template").html();t=t.replace("{{PLACE}}",n+".").replace("{{NAME}}",e.user).replace("{{LANGUAGE}}",e.language).replace("{{SIZE}}",e.size).replace("{{LINK}}",e.link),t=jQuery(t),jQuery("#answers").append(t);var o=e.language;/<a/.test(o)&&(o=jQuery(o).text()),s[o]=s[o]||{lang:e.language,user:e.user,size:e.size,link:e.link}});var t=[];for(var o in s)s.hasOwnProperty(o)&&t.push(s[o]);t.sort(function(e,s){return e.lang>s.lang?1:e.lang<s.lang?-1:0});for(var c=0;c<t.length;++c){var i=jQuery("#language-template").html(),o=t[c];i=i.replace("{{LANGUAGE}}",o.lang).replace("{{NAME}}",o.user).replace("{{SIZE}}",o.size).replace("{{LINK}}",o.link),i=jQuery(i),jQuery("#languages").append(i)}}var ANSWER_FILTER="!t)IWYnsLAZle2tQ3KqrVveCRJfxcRLe",COMMENT_FILTER="!)Q2B_A2kjfAiU78X(md6BoYk",answers=[],answers_hash,answer_ids,answer_page=1,more_answers=!0,comment_page;getAnswers();var SCORE_REG=/<h\d>\s*([^\n,]*[^\s,]),.*?(\d+)(?=[^\n\d<>]*(?:<(?:s>[^\n<>]*<\/s>|[^\n<>]+>)[^\n\d<>]*)*<\/h\d>)/,OVERRIDE_REG=/^Override\s*header:\s*/i;

body{text-align:left!important}#answer-list,#language-list{padding:10px;width:290px;float:left}table thead{font-weight:700}table td{padding:5px}

<script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script> <link rel="stylesheet" type="text/css" href="//cdn.sstatic.net/codegolf/all.css?v=83c949450c8b"> <div id="answer-list"> <h2>Leaderboard</h2> <table class="answer-list"> <thead> <tr><td></td><td>Author</td><td>Language</td><td>Size</td></tr></thead> <tbody id="answers"> </tbody> </table> </div><div id="language-list"> <h2>Winners by Language</h2> <table class="language-list"> <thead> <tr><td>Language</td><td>User</td><td>Score</td></tr></thead> <tbody id="languages"> </tbody> </table> </div><table style="display: none"> <tbody id="answer-template"> <tr><td>{{PLACE}}</td><td>{{NAME}}</td><td>{{LANGUAGE}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody> </table> <table style="display: none"> <tbody id="language-template"> <tr><td>{{LANGUAGE}}</td><td>{{NAME}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody> </table>

Jöle, 2 bayt

rP

Komut satırı argümanları olarak iki sayı alır. Çevrimiçi deneyin.

Bunun kapsayıcı bir aralık olduğunu unutmayın. Bir bayt (3 bayt) maliyeti için, bunu özel yapabiliriz:

’rP

Çevrimiçi deneyin. Argümanların b abu versiyon için sıralanması gerektiğine dikkat edin .

açıklama

dahil

a rP b
  r   dyadic atom, creates inclusive range between a and b
   P  computes product of the list

seçkin

b ’rP a
  ’   decrement b (by default, monadic atoms in dyadic chains operate on the left argument)
   r  range
    P product 

ArnoldC , 522 511 bayt

Codegolf'ta ilk yayın!

Bunu yaparken eğlendim. Özel seri

LISTEN TO ME VERY CAREFULLY f
I NEED YOUR CLOTHES YOUR BOOTS AND YOUR MOTORCYCLE a
I NEED YOUR CLOTHES YOUR BOOTS AND YOUR MOTORCYCLE b
GIVE THESE PEOPLE AIR
HEY CHRISTMAS TREE r
YOU SET US UP 1
HEY CHRISTMAS TREE l
YOU SET US UP 1
STICK AROUND l
GET TO THE CHOPPER r
HERE IS MY INVITATION r
YOU'RE FIRED a
ENOUGH TALK
GET TO THE CHOPPER a
HERE IS MY INVITATION a
GET UP 1
ENOUGH TALK
GET TO THE CHOPPER l
HERE IS MY INVITATION b
LET OFF SOME STEAM BENNET a
ENOUGH TALK
CHILL
I'LL BE BACK r
HASTA LA VISTA, BABY

Açıklamalar (Teşekkürler Bijan):

DeclareMethod f
        MethodArguments a
        MethodArguments b
        NonVoidMethod
        DeclareInt r
        SetInitialValue 1
        DeclareInt l
        SetInitialValue 1
        WHILE l
                AssignVariable r
                        SetValue r
                        MultiplicationOperator a
                EndAssignVariable
                AssignVariable a
                        SetValue a
                        + 1
                EndAssignVariable
                AssignVariable l
                        SetValue b
                        > a
                EndAssignVariable
        EndWhile
        Return r
EndMethodDeclaration

Python, 30 bayt

f=lambda a,b:a>b or a*f(a+1,b)

Her şey dahil Sol uç noktayı, sağ uç noktadan daha yüksek olana kadar art arda çoğaltır ve arttırır; bu durumda, 1 değerinin (Gerçek olarak) boş ürünüdür.

Minecraft 15w35a +, toplam program büyüklüğü 456 (aşağıya bakınız)

Bu hesaplar PI [a,b). Bu iki komut kullanılarak girdi verilir: /scoreboard players set A A {num}ve /scoreboard players set B A {num}. /scoreboard objectives add A dummyGiriş yapmadan önce kullanmayı unutmayın .

Kullanılarak Attı: {program size} + ( 2 * {input command} ) + {scoreboard command} = 356 + ( 2 * 33 ) + 34 = 456.

Bu kod aşağıdaki psuedocode'a karşılık gelir:

R = 1
loop:
  R *= A
  A += 1
  if A == B:
    print R
    end program

Dünyayı buradan indirin .

TI-BASIC, 9 bayt

Input A
prod(randIntNoRep(A,Ans

Ans Komut isteminden bir numara alır .

Ayrıca 9 bayt, bir listeden giriş alarak Ans:

prod(randIntNoRep(min(Ans),max(Ans

Python 2, 44 38 bayt

lambda l:reduce(int.__mul__,range(*l))

Neredeyse bariz bir isimsiz fonksiyon cevap.

EDIT: Bilmiyorum bazı özellikleri ile 6 byte tasarruf için xnor sayesinde.

Pyth, 5 bayt

*FrQE

Pyth'in ürünü yok, bu yüzden menzili düşürüyoruz *.

Özel menzili kullanır.

R, 22 bayt

function(a,b)prod(a:b)

Mathematica, 15 bayt

1##&@@Range@##&

Yalnızca negatif olmayan tamsayılar için çalışan daha kısa bir çözüm:

#2!/(#-1)!&

JavaScript (ES6), 34 bayt

(a,b)=>eval("for(c=a;a<b;)c*=++a")

Bazen en basit cevap en iyisidir! Sadece bir fordöngü içinde eval. Her şey dahil

Cidden, 4 bayt

,ixπ

,         Read list [a,b] from stdin
 i        Flatten it to a b
  x       Pop a,b, push range(a,b)
   π      Pop the list and push its product.

Hex Dump:

2c6978e3

Çevrimiçi deneyin

Japt , 7 bayt

Bu gibi kolay zorluklar her zaman eğlencelidir. :)

UoV r*1

Çevrimiçi deneyin!

açıklama

UoV r*1  // Implicit: U = first input, V = second input
UoV      // Generate range [U,V).
    r*1  // Reduce by multiplication, starting at 1.

Vay, bu, şu ana kadar verilen diğer cevaplarla karşılaştırıldığında zavallı görünüyor. Japt üzerinde biraz daha çalışmam lazım ...

Haskell, 19 17 bayt

a#b=product[a..b]

Kullanım örneği: 2#5-> 120.

Prolog, 45 bayt

Kod:

p(A,B,C):-A=B,C=A;D is A+1,p(D,B,E),C is A*E.

Açıklaması:

p(A,B,C):-A=B,      % A is unifiable with B
          C=A       % Unify C with A
          ;         % OR
          D is A+1, % D is the next number in the range
          p(D,B,E), % Recurse on the range after the first element
          C is A*E. % The result C is the product of the first element and the result 
                      of the recursion

Örnek:

p(5,10,X).
X = 151200

p(-4,-1,X).
X = 24

Oktav, 15 bayt

@(a,b)prod(a:b)

Basit. Kapsayıcı menzili kullanır.

CJam, 6 19 18 10 bayt

Golf ile ilgili yardımları için Dennis ve RetoKoradi'ye teşekkürler!

q~1$-,f+:*

Çevrimiçi deneyin

Girişi olarak alır a b. Hesaplar PI [a,b).

Not: Bu program 6 bayt uzunluktaki ve eğer çalışır ave bolumludur.

q~,>:*

Çevrimiçi deneyin

Girişi olarak alır a b. Hesaplar PI [a,b).

Bash + GNU yardımcı programları, 13

seq -s* $@|bc

Geçerli dizinde, adları ile başlayan hiçbir dosya olmadığını varsayar -s. Başlangıç ​​ve bitiş (dahil) komut satırı parametreleri olarak iletilir.

Bu basitçe aritmetik değerlendirme için diziyi baştan sona *, sonradan boru ile ardırarak üretir bc.

MATL (rekabet etmeyen), 4 bayt

Dahil Olanlar

2$:p

Çevrimiçi deneyin!

açıklama

2$: % Implicitly grab two input arguments and create the array input1:input2
p   % Take the product of all array elements

Bu MATL olayını çözmeme yardım ettiğin için @Don Muesli'ye teşekkürler .

Jolf , 4 bayt

Burada dene!

OrjJ
  jJ two inputs
 r   range between them [j,J)
O    product

Ruby, 22 bayt

->i,n{(i..n).reduce:*}

Ungolfed:

-> i,n {
  (i..n).reduce:* # Product of a range
}

Kullanımı:

->i,n{(i..n).reduce:*}[5,10]
=> 151200

C, 32 bayt

İçin [a,b):

f(a,b){return a-b?a*f(a+1,b):1;}

İçin [a,b](Katenkyo önerilerini günü, 32 tekrar bayt):

f(a,b){return a<b?a*f(a+1,b):b;}

05AB1E , 2 bayt (rekabet etmeyen)

Kod:

ŸP

Açıklama:

Ÿ   # Inclusive range [input, ..., input]
 P  # Total product of the list
    # Implicit printing top of the stack

J, 8 bayt

[:%/!@<:

kullanım

>> f =: [:%/!@<:
>> f 10 5
<< 15120

nerede >>STDIN ve <<STDOUT ise.

açıklama

∏[a,b]Olarak hesaplar (b-1)!/(a-1)!.

minus_one =: <:
factorial =: !
of        =: @
monadic   =: [:
division  =: %/
f =: monadic division factorial of minus_one

Önceki 13 bayt versiyon

Ne olduğu hakkında hiçbir fikrim olmadığı zaman yazıldı J: p

*/(}.[:>:i.)/

Kullanımı:

   */(}.[:>:i.)/ 5 10
30240

Açıklama:

*/            NB. multiply over
  (
   }.         NB. remove [the first x items] from
     [:>:     NB. increment all of
         i.   NB. the numbers from 0 to [y-1]
           )
            / NB. insert the above code into the following numbers

Detaylı açıklama:

i.10 would produce 0 1 2 3 4 5 6 7 8 9

>:i.10 would make it 1 2 3 4 5 6 6 7 8 9 10

the [: is used to make the ">:" take only one argument (a monad)
because if it takes two arguments, it is a different function.
so [:>:i.10 becomes 1 2 3 4 5 6 7 8 9 10

}. means take away the first [x] items from the following list,
so 5}.1 2 3 4 5 6 7 8 9 10 becomes 6 7 8 9 10

the two slashes "/" in the code are actually the same
for example, */6 7 8 9 10 becomes 6*7*8*9*10

JavaScript (ES6), 22 bayt

Hiçbirimizin JS golfçülerinin özyinelemeyi kullanmayı düşünmediğine inanamıyorum ...

a=>F=b=>a-b?b*F(b-1):a

Örneğin bir değişkene atayın var q = a=>F=b=>a-b?b*F(b-1):a, sonra çağrı yapın q(2)(5).

Brachylog , 3 bayt

⟦₃×

Çevrimiçi deneyin!

Giriş olarak iletildi [A,B]. Bu seri B'ye dahil değildir, ancak ₃ile değiştirilerek kapsayıcı hale getirilebilir ₂.

Minkolang 0.14 , 7 bayt

nnL$*N.

Burada dene.

açıklama

nn         Takes two numbers from input
  L        Pops b,a and pushes a..b
   $*      Product the whole stack
     N.    Output as number and stop.

Python, 52 bayt

Çok basit kod; biraz fazla uzun.

def p(a,b):
 t=1
 for i in range(a,b):t*=i
 return t

JavaScript (ES6), 45 41 bayt

@ Cᴏɴᴏʀ O'Bʀɪᴇɴ sayesinde 4 bayt kaydedildi

(a,b)=>[...Array(b-a)].reduce(x=>x*a++,1)

Biraz fazla uzun gibi görünüyor ...

(a,b)=>           // Define an anonymous function that takes parameters a and b, and returns:
[...Array(b-a)]   // An array of b-a items,
.reduce(          // Reduced by
x=>x*a++          //  multiplying each item with the previous,
,1)               //  starting at 1.

Perl 6 , 14 bayt

{[*] $^a..$^b}

kullanımı:

my &code = {[*] $^a..$^b}
say code |$_ for (2,5),(5,10),(-4,3),(0,3),(-4,-1);
# 120
# 151200
# 0
# 0
# 24

say chars code 1,10000;
# 35660

Son öğe kullanımı ..^yerine hariç tutmak istiyorsanız..

gs2, 4 bayt

hex: 57 0e 4f 65

Mnemonics: read-nums dump crange product

Çevrimiçi deneyin!

dumpyığından bir liste çıkar ve içeriğini iter ( ~GolfScript'te olduğu gibi ) ve crangeverir [a,b).