Ja, wie viel , nicht wie viele ...

Wie wir alle wissen, ist ein großes Geschenk weitaus besser als ein kleines. Daher sollte der Wert der Geschenke immer im Gesamtvolumen gemessen werden, nicht in der Anzahl der Geschenke, im Gewicht oder sogar im Gesamtpreis.

Da es verpönt ist, die Menge an Geschenken zu vergleichen, die man bekommt, möchte man kein langes Drehbuch, das von anderen auf der Weihnachtsfeier leicht gesehen und gelesen werden kann. Daher müssen Sie die Anzahl der Bytes in Ihrem Skript auf ein Minimum beschränken.

Ihre Aufgabe ist einfach: Erstellen Sie ein Programm, das eine Liste von Dimensionen in einem beliebigen geeigneten Format als Eingabe verwendet und das Gesamtvolumen Ihrer Geschenke ausgibt. Die Dimension eines jeden Geschenks ist entweder ein Satz von drei Zahlen oder eine einzelne Zahl. Wenn die Eingabe drei Zahlen ( L, W, H) ist, ist die Gegenwart ein Quader von Dimensionen L x W x H. Wenn es sich um eine einzelne Zahl handelt ( R), ist die Gegenwart eine Kugel mit Radius R.

Regeln:

• Es kann entweder ein vollständiges Programm oder eine Funktion sein
• Die Eingabe kann in einem beliebigen Format erfolgen
  • Falls gewünscht, kann eine Kugel durch eine Zahl gefolgt von zwei Nullen dargestellt werden
  • Ein Quader hat immer alle Dimensionen ungleich Null.
• Die Ausgabe sollte eine einzelne Dezimalzahl sein
  • Zusätzliche Ausgaben werden akzeptiert, solange die Antwort offensichtlich ist
  • Die Ausgabe muss mindestens zwei Nachkommastellen haben
  • Die Ausgabe kann in Standardform oder in wissenschaftlicher Notation erfolgen, wenn die Anzahl größer als 1000 ist.
  • Falls Ihre Sprache keine Pi-Konstante hat, sollte die Antwort auf 9999,99 genau sein.

Beispiele:

((1,4,3),(2,2,2),(3),(4,4,4))
197.0973    // (1*4*3 + 2*2*2 + 4/3*pi*3^3 + 4*4*4)

(5)
523.5988

(5,0,0)
523.5988

Bestenliste

Das Stapel-Snippet am Ende dieses Beitrags generiert den Katalog aus den Antworten a) als Liste der kürzesten Lösungen pro Sprache und b) als Gesamt-Bestenliste.

Um sicherzustellen, dass Ihre Antwort angezeigt wird, beginnen Sie Ihre Antwort mit einer Überschrift. Verwenden Sie dazu die folgende Markdown-Vorlage:

## Language Name, N bytes

Wo Nist die Größe Ihres Beitrags? Wenn Sie Ihren Score zu verbessern, Sie können alte Rechnungen in der Überschrift halten, indem man sich durch das Anschlagen. Zum Beispiel:

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

Wenn Sie mehrere Zahlen in Ihre Kopfzeile aufnehmen möchten (z. B. weil Ihre Punktzahl die Summe von zwei Dateien ist oder wenn Sie die Strafen für Interpreter-Flags separat auflisten möchten), stellen Sie sicher, dass die tatsächliche Punktzahl die letzte Zahl in der Kopfzeile ist:

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

Sie können den Namen der Sprache auch als Link festlegen, der dann im Snippet angezeigt wird:

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

var QUESTION_ID=67027,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>

Jelly , 19 18 Bytes

Zµ*3×1420÷339Ḣo@PS

Probieren Sie es online!

Leider hat Jelly noch keine π- Konstante und der Vektorisierer behandelt Floats nicht richtig.

Um diese Probleme zu überwinden, multiplizieren wir nicht mit 4π / 3 , sondern mit 1420 und dividieren durch 339 . Da 1420 ÷ 339 = 4,18879056… und 4π / 3 = 4,18879020… , ist dies ausreichend genau, um die Regeln einzuhalten.

Die neueste Version von Jelly könnte diese Aufgabe in 14 Bytes mit besserer Präzision erledigen .

Zµ*3×240°Ḣo@PS

Probieren Sie es online!

Wie es funktioniert

Zµ*3×1420÷339Ḣo@PS  Left argument: A, e.g., [[1, 2, 3], [4, 0, 0]]

Z                   Zip A; turn A into [[1, 4], [2, 0], [3, 0]].
 µ                  Begin a new, monadic chain with zip(A) as left argument.
  *3                Cube all involved numbers.
    ×1420           Multiply all involved numbers by 1420.
         ÷339       Divide all involved numbers by 339.
                    This calculates [[4.19, 268.08], [33.51, 0], [113.10, 0]]
             Ḣ      Head; retrieve the first array.
                    This yields [4.19, 268.08].
                P   Take the product across the columns of zip(A).
                    This yields [6, 0].
              o@    Apply logical OR with swapped argument order to the results.
                    This replaces zeroes in the product with the corresponding
                    results from the left, yielding [6, 268.08].
                 S  Compute the sum of the resulting numbers.

In der nicht konkurrierenden Version wird ×240°stattdessen verwendet ×1420÷339, was sich mit 240 multipliziert und die Produkte in Bogenmaß umwandelt.

Haskell, 40 Bytes

q[x]=4/3*pi*x^^3
q x=product x
sum.map q

Anwendungsbeispiel: sum.map q $ [[1,4,3],[2,2,2],[3],[4,4,4]]-> 197.09733552923254.

So funktioniert es: Für jedes Element der Eingabeliste: Wenn es ein einzelnes Element enthält, xberechnen Sie das Volumen der Kugel product. Fass es zusammen.

Pyth, 19 18 Bytes

sm|*Fd*.tC\ð7^hd3Q

1 Byte danke an Dennis

Demonstration

Das Eingabeformat ist eine Liste von Listen:

[[1,4,3],[2,2,2],[3,0,0],[4,4,4]]

Die Dimensionen werden einfach multipliziert, um das Würfelvolumen zu berechnen. Wenn dies zu Null wird, wird das Kugelvolumen berechnet.

Die Kugelkonstante 4/3*piwird mit 240 Grad im Bogenmaß berechnet. .t ... 7konvertiert eine Eingabe in Grad in Bogenmaß und C\ðberechnet den Codepunkt von ð240.

Python 2, 86-70 Bytes

lambda i:sum(x[0]*x[1]*x[2]if len(x)>1 else x[0]**3*4.18879for x in i)

Mathematica, 34 Bytes

Tr[1.##&@@@(#/.{r_}:>{4r^3/3Pi})]&

Eine unbenannte Funktion, die eine verschachtelte Liste von Längen annimmt und das Volume als reelle Zahl zurückgibt.

Wir ersetzen zunächst einzelne Werte durch das Volumen der entsprechenden Kugel mit /.{r_}:>{4r^3/3Pi}. Dann multiplizieren wir den Inhalt jeder Liste mit 1.##&@@@. Schließlich berechnen wir die Summe als die Spur des Vektors mit Tr[...].

JavaScript (ES6), 56

l=>l.map(([x,y,z])=>t+=y?x*y*z:x*x*x*4/3*Math.PI,t=0)&&t

Die sinnvollere .reduce Version ist 1 Byte länger

l=>l.reduce((t,[x,y,z])=>t+(y?x*y*z:x*x*x*4/3*Math.PI),0)

Python, 49 Bytes

lambda l:sum(a*b*c or a**3*4.18879for a,b,c in l)

Verwendet die Darstellung von Kugeln als (a,0,0). Als Quader behandelt, hat dieser das Volumen 0, in diesem Fall wird stattdessen das Kugelvolumen verwendet. Mir ist nicht klar, wie genau die Konstante sein muss, also hoffe ich, dass dies ausreicht.

MATL , 20 Bytes

it!ptbw~)3^4*3/XT*hs

Das Eingabeformat ist eine Matrix, in der jede Zeile einen Würfel oder eine Kugel beschreibt. Eine Kugel wird nur durch die erste Zahl in dieser Zeile definiert. Die anderen beiden Zahlen sind Null. Das erste Beispiel für die Herausforderung wäre also:

[1 4 3; 2 2 2; 3 0 0; 4 4 4]

Hierbei wird die aktuelle Version der Sprache 2.0.2 verwendet , die älter als diese Herausforderung ist.

Beispiele:

>> matl it!ptbw~)3^4*3/XT*hs
> [1 4 3; 2 2 2; 3 0 0; 4 4 4]
197.0973355292326

>> matl it!ptbw~)3^4*3/XT*hs
> [5 0 0]
523.5987755982989

Erläuterung:

i             % input matrix
t!            % duplicate and transpose: each object is now a column
p             % product of elements in each column
t             % duplicate                                               
b             % bubble up top-third element in stack                              
w             % swap top two elements in stack                                  
~             % logical 'not'. This gives logical index of speheres                 
)             % reference () indexing. This is a logical-linear index to get sphere radii
3^4*3/XT*     % formula for volume of spehere; element-wise operations
h             % horizontal concatenation                                
s             % sum                

Prolog, 115 100 Bytes

Code:

[]*0.
[[L,W,H]|T]*V:-W=0,X is 4*pi*L^3/3,T*Y,V is X+Y;X is L*W*H,T*Y,V is X+Y.
p(L):-L*V,write(V).

Erklärt:

[]*0.
[[L,W,H]|T]*V:-W=0,                           % When 2nd dimension is 0
                  X is 4*pi*L^3/3,            % Calc volume of sphere
                  T*Y,                        % Recurse over list
                  V is X+Y                    % Sum volumes
                  ;                           % When we have a cube
                  X is L*W*H,                 % Calc cube volume
                  T*Y                         % Recurse over list
                  V is X+Y.                   % Sum volumes
p(L):-L*V,                                    % Get combined volume of list of lists
      write(V).                               % Print volume

Beispiele:

p([[1,4,3],[2,2,2],[3,0,0],[4,4,4]]).
197.09733552923257

p([[5,0,0]]).
523.5987755982989

Probieren Sie es hier online aus

Bearbeiten: 15 Bytes durch Definieren eines dyadischen Prädikats gespeichert.

Perl, 52 47 Bytes

s/,/*/g||s@$@**3*4.18879@,$\+=eval for/\S+/g}{

46 + 1 für -p(das war üblich; lass es mich wissen, wenn es hier anders ist und ich aktualisiere)

Verwendung: in eine Datei einfügen und echo 1,4,3 2,2,2 3 4,4,4 | perl -p x.pl

Mit Kommentaren:

s/,/*/g                # x,y,z becomes x*y*z
||                     # if that fails,
s@$@**3*1420/339@      # x becomes x**3 * 1420/339
,                      # 
$\+=eval               # evaluate the expression and accumulate
for/\S+/g              # iterate groups of non-whitespace
}{                     # -p adds while(<>){...}continue{print}; resets $_

update 47 Danke an @Dennis für das Speichern einiger Bytes mit diesem Trick .

CJam, 24 21 Bytes

q~{3*)4P*3/*+3<:*}%:+

Teste es hier.

Erläuterung

q~       e# Read and evaluate input.
{        e# Map this block over the list of presents...
  3*     e#   Repeat the list of lengths 3 times. This will expand cuboids to 9 elements
         e#   and spheres to three copies of the radius.
  )      e#   Pull off the last element.
  4P*3/* e#   Multiply by 4 pi / 3.
  +      e#   Add it back to the list of lengths.
  3<     e#   Truncate to 3 elements. This is a no-op for spheres, which now have three
         e#   elements [r r 4*pi/3*r] but discards everything we've done to cuboids, such
         e#   that they're reduced to their three side lengths again.
  :*     e#   Multiply the three numbers in the list.
}%
:+       e# Sum all the individual volumes.

PowerShell, 67 Bytes

($args|%{($_,((,$_*3)+4.18879))[$_.count-eq1]-join'*'})-join'+'|iex

Hier passiert schwarze Magie. Ich werde versuchen, reibungslos durchzugehen.

Wir nehmen zuerst unsere Eingabe, die wir als einzelne durch Kommas getrennte Arrays erwarten (1,4,3) (2,2,2) (3) (4,4,4), und leiten sie in eine Schleife |%{}.

In der Schleife prüfen wir zunächst, ob $_das betreffende Array nur ein einziges Element enthält, und indizieren es dann in ein Array (im Wesentlichen eine kürzere if / else-Konstruktion). Wenn es sich um mehrere Elemente handelt, nehmen Sie an(1,4,3) als Eingabe an, dass wir die erste Hälfte ausführen, bei der das Array einfach ausgespuckt wird $_, z (1,4,3). Andernfalls erstellen wir ein neues dynamisches Array, das aus dem Element dreimal besteht, (,$_*3)und nähern uns 4/3 * Pi. Bei der Eingabe (3)führt dies zur (3,3,3,4.18879)Ausgabe.

Ja, PowerShell verfügt über eine Pi-Konstante, auf die über einen .NET-Aufruf zugegriffen werden kann. Diese [math]::PIist jedoch länger und ich möchte sie nicht verwenden. : p

Unabhängig davon verketten wir dieses Ausgabearray mit Sternchen über -join'*' , also "1*4*3". Sobald wir die Schleife vollständig durchlaufen haben, haben wir jetzt eine Sammlung von Zeichenfolgen. Wir -join'+'alle zusammen für unsere Addition und iexden Ausdruck, um das Ergebnis zu berechnen.

Puh.

Ruby, 58 Zeichen

->b{b.reduce(0){|t,s|a,b,c=*s;t+(c ?a*b*c :a**3*4.18879)}}

Probelauf:

2.1.5 :001 ->b{b.reduce(0){|t,s|a,b,c=*s;t+(c ?a*b*c :a**3*4.18879)}}[[[1,4,3],[2,2,2],[3],[4,4,4]]]
 => 197.09733

Ruby, 50 Zeichen

Verbesserungsidee schamlos aus der JavaScript-Antwort von edc65 gestohlen .

->b{t=0;b.map{|a,b,c|t+=c ?a*b*c :a**3*4.18879};t}

Probelauf:

2.1.5 :001 > ->b{t=0;b.map{|a,b,c|t+=c ?a*b*c :a**3*4.18879};t}[[[1,4,3],[2,2,2],[3],[4,4,4]]]
 => 197.09733

Japt, 27 22 Bytes

N®r*1 ª4/3*M.P*Zg ³} x

Übernimmt Eingaben als durch Leerzeichen getrennte Arrays. Probieren Sie es online!

Wie es funktioniert

N®   r*1 ª 4/3*M.P*Zg ³  } x
NmZ{Zr*1 ||4/3*M.P*Zg p3 } x

          // Implicit: N = array of input arrays
NmZ{   }  // Map each item Z in N to:
Zr*1      //  Reduce Z with multiplication.
||4/3*M.P //  If this is falsy, calculate 4/3 times Pi
*Zg p3    //  times the first item in Z to the 3rd power.
x         // Sum the result.
          // Implicit: output last expression

R , 70 Bytes

function(l)sum(mapply(function(x)prod(x*!!1:3)*4.18879^is.na(x[2]),l))

Probieren Sie es online!

Pip , 23 Bytes

{$*a|4/3*PI*@a**3}MSg^s

Es gibt verschiedene Möglichkeiten, dieses Programm zu unterstützen. Jedes Geschenk kann als Befehlszeilenargument für drei durch Leerzeichen getrennte Zahlen verwendet werden (die in Anführungszeichen eingeschlossen werden müssen:) pip.py present.pip "1 4 3" "3 0 0". -rGeben Sie alternativ das Flag an und geben Sie jedes Geschenk als Standardzeile an, die aus drei durch Leerzeichen getrennten Zahlen besteht. Probieren Sie es online!

Wie?

                         g is list of cmdline args (or lines of stdin, if using -r flag)
                         s is space, PI is what it says on the tin (implicit)
                    g^s  Split each argument on spaces, so we have a list of lists
{                }MS     Map this function to each sublist and sum the results:
 $*a                      Fold the list on * (i.e. take the product)
    |                     Logical OR: if the above value is zero, use this value instead:
     4/3*PI*              4/3 pi, times
            @a            First element of the list
              **3         Cubed
                         Autoprint the result

Perl 5, 142 Bytes

Führen Sie mit -pin der Befehlszeile aus und geben Sie mit einem Komma getrennte Zahlen wie folgt ein:

5,0,0 oder (5,0,0)

würde produzieren

523.598820058997

Es gibt kein piSchlüsselwort in Perl. In den meisten Fällen stimmt dies mit den angegebenen signifikanten Zahlen überein. Selbst wenn ich alle mir bekannten Zahlen von pi eingetippt hätte, wäre dies für einige Berechnungen nicht sehr genau. Also habe ich es mit gelassen3.1415 . Ich bin mir nicht sicher, ob dies akzeptabel ist oder nicht.

Code:

@a=$_=~/(\d+,*)/g;$_=0;@n = map(split(/\D/),@a);for($i=0;$i<$#n;$i+=3){$x=$n[$i];$n[$i+1]==0?$_+=1420/339*$x**3:$_+=($x*$n[$i+1]*$n[$i+2]);}

Bearbeitet für mehr Präzision nach dem Rat von Dennis, der besser in Grundrechenarten als ich ist, und nach einem Vorschlag von MichaelT, Bytes zu sparen und dabei präzise zu bleiben.

Lua, 115 104 Bytes

function f(a)b=0 for i=1,#a do c=a[i]b=b+(1<#c and c[1]*c[2]*c[3]or(4/3)*math.pi*c[1]^3)end return b end

Einfache Lösung, ich muss die pseudoternäre Operation <condition> and <non-false> or <value if false>in Klammern setzen, sonst würde b mit beiden Bereichen summieren.

Die Eingabe muss in der Form erfolgen array={{1,4,3},{2,2,2},{3},{4,4,4}}und das Ergebnis kann durch Ausführen von angezeigt werden print(f(array)).

05AB1E , 18 16 Bytes

εDgi3m4žq*3/*]PO

Probieren Sie es online aus.

Erläuterung:

ε                # Map each inner list of the (implicit) input to:
 D               #  Duplicate the current inner list
  gi             #  Is the length 1 (is it an `R`):
    3m           #   Take the duplicated current item and take its cube
                 #    i.e. [3] → [27]
      žq         #   PI
        4*       #   Multiplied by 4
          3/     #   Divided by 3
                 #    → 4.1887902047863905
            *    #   And multiply it with the current cubed `R`
                 #    [27] and 4.1887902047863905 → [113.09733552923254]
]                # Close both the if and map
 P               # Take the product of each inner list
                 #  i.e. [[1,4,3],[2,2,2],[113.09733552923254],[4,4,4]]
                 #   → [12,8,113.09733552923254,64]
  O              # Take the total sum (and output implicitly)
                 #  i.e. [12,8,113.09733552923254,64] → 197.09733552923254

R, 38 36 Bytes

function(x,y=4*pi/3*x,z=x)sum(x*y*z)

Verwendet Standardargumente, um zwischen den Fällen zu wechseln: Mit drei Argumenten wird das Produkt berechnet, und mit einem Argument wird die Kugelformel berechnet.