解决全球债务，规范高尔夫的方式

32

世界各国领导人开会并最终承认，解决全球经济困境的最佳方法（也是唯一的方法）是盘算彼此的欠款，并以巨额支票相互偿还。他们雇用了您（具有讽刺意味的是，以最低的合同价格聘请您）来找到这样做的最佳方法。

经过深思熟虑，并要求某人绘制一个简单的示例，他们提出了以下规范。

每个国家/地区均以其ISO 3166-1 alpha-2代码表示：US美国，AU澳大利亚，JP日本，CN中国等等。

  1. 将分类帐作为一系列国家分录和每个国家的欠款进行草拟。
  2. 每个国家/地区的条目均以其域ID开始，即冒号，其盈余/赤字有多少（十亿欧元），然后是分号，然后是逗号分隔的国家/地区列表，以及有多少（十亿欧元）欧元）。
  3. 如果一个国家不欠另一个国家，则在该分号分隔符之后不输入该国家的任何提述。
  4. 赤字表示为负数，盈余表示为正数。
  5. 值也可以是浮点数。
  6. 分类帐必须来自STDIN。分类帐的结尾由空白行上的回车符指示。提示必须传送到STDOUT。

分类帐的示例：

Input:
AU:8;US:10,CN:15,JP:3
US:14;AU:12,CN:27,JP:14
CN:12;AU:8,US:17,JP:4
JP:10;AU:6,US:7,CN:10

然后，系统计算出每个国家的欠款和欠款，并确定其盈余/赤字，例如对于非盟：

AU = 8（当前盈余）-10（至美国）-15（至CN）-3（至JP）+12（来自美国）+8（来自CN）+6（来自JP）= 6

完成所有计算后，必须显示一个提示：

Output:
AU:6
US:-5
CN:35
JP:8

您的工作就是创建一个系统，该系统能够为任何数量的国家采用任何数量的分类帐分录，并能够确定在支付所有费用后每个国家有多少赤字/盈余。

最终测试是让您使用代码来解决以下测试案例中以下国家之间的债务。这些数字取自2011年6月的BBC新闻。（http://www.bbc.com/news/business-15748696）

出于练习的目的，我将其各自的GDP用作其当前的盈余...请记住，这严格是代码质量保证的一项练习...在此问题中，将不讨论全球经济解决方案...如果您想谈论经济学，我敢肯定SE中还有另一个子域可以处理它...

US:10800;FR:440.2,ES:170.5,JP:835.2,DE:414.5,UK:834.5
FR:1800;IT:37.6,JP:79.8,DE:123.5,UK:227,US:202.1
ES:700;PT:19.7,IT:22.3,JP:20,DE:131.7,UK:74.9,US:49.6,FR:112
PT:200;IT:2.9,DE:26.6,UK:18.9,US:3.9,FR:19.1,ES:65.7
IT:1200;JP:32.8,DE:120,UK:54.7,US:34.8,FR:309,ES:29.5
IE:200;JP:15.4,DE:82,UK:104.5,US:39.8,FR:23.8
GR:200;DE:15.9,UK:9.4,US:6.2,FR:41.4,PT:7.5,IT:2.8
JP:4100;DE:42.5,UK:101.8,US:244.8,FR:107.7
DE:2400;UK:141.1,US:174.4,FR:205.8,IT:202.7,JP:108.3
UK:1700;US:578.6,FR:209.9,ES:316.6,IE:113.5,JP:122.7,DE:379.3

现在，成为世界的经济救星！

规则：

  1. 最短的代码胜出...这毕竟是代码高尔夫...
  2. 请提供主要测试用例的输出以及代码答案...
code-golf  math 
— WallyWest
source
1
在“最终测试”中，后面不应该有分号JP:4100吗？
— Mathieu Rodic 2014年
9
我不禁想知道这是否是为您完成作业的一种非常聪明的方法。如果是这样，您应得的。
— mkingston 2014年
2
是的，如果您这样做将使实数出现，您将发现一个惊人的矛盾。所有盈余和赤字的总和将为负。
— Cruncher 2014年
3
实际上，这不是变相的功课...它是从我与朋友们每周举行的扑克锦标赛中得到的启发...试图找出一种更快地为每位玩家赢得奖金的方法;）
— WallyWest 2014年
1
@WallyWest LOL;）顺便说一下，对旧约的评论表示歉意，但这是我非常热衷的事情。现在让我们回到一些有趣的编码上，而忘了世界的困境...
— Tobia 2014年

Answers:

11

K，66

{(((!)."SF"$+":"\:'*+a)-+/'d)+/d:"F"$(!).'"S:,"0:/:last'a:";"\:'x}

。

k)input:0:`:ledg.txt
k){(((!)."SF"$+":"\:'*+a)-+/'d)+/d:"F"$(!).'"S:,"0:/:last'a:";"\:'x} input
US| 9439.3
FR| 2598.9
ES| 852.1
PT| 90.1
IT| 887.5
IE| 48
GR| 116.8
JP| 4817.4
DE| 2903.7
UK| 1546.2
— 马丁
source
这给人留下了难以置信的印象……您是否有机会提供与K编程范例的链接？
— WallyWest
@WallyWest code.kx.com提供了有关q的大量信息，q是位于k上方的语法糖。q，此外，感谢k，这是您在生产系统中会发现的，但是对于高尔夫运动，k具有优势。还可以查看Kona（github.com/kevinlawler/kona），它是k的较旧版本的开源实现
— tmartin 2014年
10

Perl中，139 137 134 119 112

这是另一段有效的代码...我待会再记录。

打高尔夫球的代码

使用字典（112）：

for(<>){~/:(.+);/g;$d{$c=$`}+=$1;$l=$';$d{$1}+=$2,$d{$c}-=$2while$l=~/(..):([^,]+)/g}print"$_:$d{$_}
"for keys%d

没有字典（137）：

for($T=$t.=$_ for<>;$t=~/(..:)(.+);(.+)/g;print"$c$s\n"){$c=$1;$l=$3;$s=$2;$s-=$&while$l=~/[\d.]+/g;$s+=$1while$T=~/$c([\d.]+)(?!;|\d)/g}

输出量

US:9439.3
FR:2598.9
ES:852.1
PT:90.1
IT:887.5
IE:48
GR:116.8
JP:4817.4
DE:2903.7
UK:1546.2

看到它的行动！

http://ideone.com/4iwyEP

— 马修·罗迪克（Mathieu Rodic）
source
4
“短”的定义应根据标记的数量而不是字符来判断。可读性4生活！
— 米（Domi）2014年
10
@Domi-您是新来的，不是吗；-)
— jimbobmcgee
4
@jimbobmcgee：我也有一个感觉，这个网站的可读性不高...
— Mathieu Rodic 2014年
4

Python中，211 185 183

import sys,re;t,R,F=sys.stdin.read(),re.findall,float;S=lambda e,s:sum(map(F,R(e,s)))
for m in R('(..:)(.+);(.+)',t):print m[0]+`F(m[1])+S(m[0]+'([\d.]+)(?!;|\d)',t)-S('[\d.]+',m[2])`

主要测试用例的输出：

US:9439.300000000001
FR:2598.9
ES:852.0999999999999
PT:90.09999999999997
IT:887.5
IE:48.0
GR:116.8
JP:4817.4
DE:2903.7
UK:1546.2000000000003

（在此处进行测试：http : //ideone.com/CjWG7v）

— 马修·罗迪克（Mathieu Rodic）
source
4

C- 257253，如果行末没有CR

取决于sizeof（short）== 2。

不检查缓冲区溢出。

#define C(c) x[*(short*)c]
main(i){double x[23131]={0},d;char*q,b[99],*(*s)()=strtok;for(;gets(b);)for(s(b,":"),C(b)+=atof(s(0,";"));q=s(0,":");C(b)-=d=(atof(s(0,","))),C(q)+=d);for(i=b[2]=0;i<23131;memcpy(b,&i,2),x[i]?printf("%s:%f\n",b,x[i++]):++i);}

输出：

DE:2903.700000  
IE:48.000000    
UK:1546.200000  
JP:4817.400000  
FR:2598.900000  
GR:116.800000   
ES:852.100000   
US:9439.300000  
IT:887.500000   
PT:90.100000

少打高尔夫球：

#define C(c) x[*(short*)c]

main(i)
{
    double x[23131]={0}, d;
    char *q, b[99], *(*s)()=strtok;
    for(;gets(b);) 
        for(s(b, ":"),C(b)+=atof(s(0, ";")); 
            q=s(0, ":"); 
            C(b)-=d=(atof(s(0, ","))), C(q)+=d) ;

    for(i=b[2]=0; 
        i<23131; 
        memcpy(b, &i, 2), x[i]?printf("%s:%f\n", b, x[i++]):++i) ;
}
— ahy1
source
3

PHP- 338，280

应该适用于任何版本的PHP 5。

Golfed：

while(preg_match("#(..):(.+);(.*)#",fgets(STDIN),$m)){$l[$m[1]][0]=(float)$m[2];foreach(explode(",",$m[3])as$x){$_=explode(":",$x);$l[$m[1]][1][$_[0]]=(float)$_[1];}}foreach($l as$c=>$d)foreach($d[1]as$_=>$o){$l[$_][0]+=$o;$l[$c][0]-=$o;}foreach($l as$c=>$d)echo$c,":",$d[0],"\n";

未打高尔夫球：

<?php

while( preg_match( "#(..):(\d+);(.*)#", fgets( STDIN ), $m ) )
{
    $l[$m[1]][0] = (float)$m[2];

    foreach( explode( ",", $m[3] ) as $x )
    {
        $_ = explode( ":", $x );
        $l[$m[1]][1][$_[0]] = (float)$_[1];
    }
}

foreach( $l as $c => $d )
    foreach( $d[1] as $_ => $o )
    {
        $l[$_][0] += $o;
        $l[$c][0] -= $o;
    }

foreach( $l as $c => $d )
    echo $c, ":", $d[0], "\n";

输出：

US:9439.3
FR:2598.9
ES:852.1
PT:90.1
IT:887.5
IE:48
GR:116.8
JP:4817.4
DE:2903.7
UK:1546.2
— 托尼·埃利斯
source
如果使用preg_match_all()然后循环一次，它会不会更短？
— Damir Kasipovic
3

perl（184个字符）

码

%c,%d,%e=();while(<>){$_=~/(..):(.+);(.*)/;$n=$1;$c{$1}=$2;for $i(split /,/,$3){$i=~/(..):(.+)/;$d{$1}+=$2;$e{$n}+=$2;}}for $i(keys %c){$c{$i}+=$d{$i}-$e{$i};print $i.":".$c{$i}."\n";}

输出量

UK:1546.2
DE:2903.7
IT:887.5
FR:2598.9
PT:90.1
US:9439.3
JP:4817.4
ES:852.1
IE:48
GR:116.8
— 小故障的欲望
source
3

的Perl - 116 114 112

for(<>){($n,$m,@l)=split/[:;,]/;$h{$n}+=$m;$h{$n}-=$p,$h{$o}+=$p while($o,$p,@l)=@l}print"$_:$h{$_}\n"for keys%h

输出：

GR:116.8
UK:1546.2
DE:2903.7
IE:48
IT:887.5
US:9439.3
PT:90.1
ES:852.1
FR:2598.9
JP:4817.4

取消高尔夫：

for(<>) {
    ($n, $m, @l)=split(/[:;,]/);
    $h{$n}+=$m;

    $h{$n}-=$p, $h{$o}+=$p while ($o,$p,@l)=@l
}
print "$_:$h{$_}\n" for keys%h
— ahy1
source
真好！我喜欢您的方法：）
— Mathieu Rodic 2014年
3

C ++-1254

#include<iostream>
#include<cstring>
#include<vector>
#include<sstream>
#include<cstdlib>
using namespace std;int main(){vector<string>input,countries,output;vector<double>results;string last_val;int j,k,i=0;cout<<"Input\n";do{getline(cin,last_val);if(last_val!=""){input.push_back(last_val);countries.push_back(last_val.substr(0,2));}}while(last_val!="");for(j=0;j<countries.size();j++){results.push_back(0);for(k=0;k<input.size();k++)input[k].substr(0, 2)==countries[j]?results[j]+=atof(input[k].substr((input[k].find(countries[j])+3),(input[k].find(',',input[k].find(countries[j]))-input[k].find(countries[j]))).c_str()):results[j]+=atof(input[k].substr((input[k].find(countries[j],3)+3),(input[k].find(',',input[k].find(countries[j]))-input[k].find(countries[j]))).c_str());}for(j=0;j<input.size();j++){for(k=0;k<countries.size();k++){if(input[j].substr(0,2)!=countries[k]){results[j]-=atof(input[j].substr((input[j].find(countries[k])+ 3),(input[j].find(',',input[k].find(countries[k]))-input[j].find(countries[j]))).c_str());}}}for(i=0;i<countries.size();i++){stringstream strstream;strstream<<countries[i]<<":"<<results[i];output.push_back(strstream.str().c_str());}cout<<"Output:\n";for(i=0;i<output.size();i++){cout<<output[i]<<'\n';}return 0;}

我知道代码很长，但是很开心。这是我第一次玩代码，而且我是C ++的新手，因此非常感谢您提出改进代码的建议。

最终挑战结果

Output:
US:9439.3
FR:2598.9
ES:852.1
PT:90.1
IT:887.5
IE:48
GR:116.8
JP:4817.4
DE:2903.7
UK:1546.2

非高尔夫代码

#include<iostream>
#include<cstring>
#include<vector>
#include<sstream>
#include<cstdlib>

using namespace std;

int main() {
  vector<string> input, countries, output;
  vector<double> results;
  string last_val;
  int i, j, k;

  cout << "Input\n";
  do {
    getline(cin, last_val);
    if(last_val != "") {
      input.push_back(last_val);
      countries.push_back(last_val.substr(0, 2));
    }
  } while(last_val != "");

  for(j = 0; j < countries.size(); j++) {
    results.push_back(0);
    for(k = 0; k < input.size(); k++) {
      if(input[k].substr(0, 2) == countries[j]) {
        results[j] += atof(input[k].substr((input[k].find(countries[j]) + 3),
                             (input[k].find(',', input[k].find(countries[j])) -
                              input[k].find(countries[j]))).c_str());
      } else {
        results[j] += atof(input[k].substr((input[k].find(countries[j], 3) + 3),
                             (input[k].find(',', input[k].find(countries[j])) -
                              input[k].find(countries[j]))).c_str());
      }
    }
  }

  for(j = 0; j < input.size(); j++) {
    for(k = 0; k < countries.size(); k++) {
      if(input[j].substr(0, 2) != countries[k]) {
        results[j] -= atof(input[j].substr((input[j].find(countries[k]) + 3),
                             (input[j].find(',', input[k].find(countries[k])) -
                              input[j].find(countries[j]))).c_str());
      }
    }
  }

  for(i = 0; i < countries.size(); i++) {
    stringstream strstream;
    strstream << countries[i] << ":" << results[i];
    output.push_back(strstream.str().c_str());
  }

  cout << "Output:\n";
  for(i = 0; i < output.size(); i++) {
    cout << output[i] << '\n';
  }

  return 0;
}
— 迪尔莫
source
2
嗨，很高兴看到C ++中的示例。您可以通过使用一个字母的标识符代替描述性名称来减少字符数，即使用i表示输入，使用c表示国家等。
— 2014年
在这里同意@ ahy1 ...如果将变量减少到1个字母，则可以减少很多...您也可能会在以后的高尔夫挑战中发现这一点：codegolf.stackexchange.com/questions/132/tips在高尔夫中使用
— WallyWest，2014年
哦，您也不需要cout << "Output:\n";...那儿节省了20个字节...
— WallyWest 2014年
3

AWK - 138 120

{l=split($0,h,"[:,;]");t[h[1]]+=h[2];for(i=3;i<l;i+=2){t[h[1]]-=h[i+1];t[h[i]]+=h[i+1]}}END{for(v in t){print v":"t[v]}}

结果

$ cat data.withoutInputHeadline |awk -f codegolf.awk
IT:887.5
UK:1546.2
DE:2903.7
PT:90.1
ES:852.1
FR:2598.9
GR:116.8
Input:0
JP:4817.4
IE:48
US:9439.3

不打高尔夫球

{
    l=split($0,h,"[:,;]");
    t[h[1]]+=h[2];
    for(i=3;i<l;i+=2){
        t[h[1]]-=h[i+1]
        t[h[i]]+=h[i+1]
    }
}
END{
    for(v in t){
        print v":"t[v]
    }
}

（在此处进行测试：http : //ideone.com/pxqc07）

— 末日
source
为什么还要放入这些标题？如果没有它们，您将节省更多的字节...它们甚至不属于我设定的规格...;）
— WallyWest'3
@WallyWest：好的，所以我不明白，因为它们显示在您的输入和输出的第一个示例中，例如：（..）必须显示一个提示：输出：（..）不用担心，我删除了我现在的第一个例子。
— 2014年
2

红宝石-225

首先尝试这样的挑战，确定它会好很多...

R=Hash.new(0)
def pd(s,o=nil);s.split(':').tap{|c,a|R[c]+=a.to_f;o&&R[o]-=a.to_f};end
STDIN.read.split("\n").each{|l|c,d=l.split(';');pd(c);d.split(',').each{|s|pd(s,c.split(':')[0])}}
puts R.map{|k,v|"#{k}: #{v}"}.join("\n")

结果

$ cat data|ruby codegolf.rb
US: 9439.299999999997
FR: 2598.8999999999996
ES: 852.1
JP: 4817.4
DE: 2903.7
UK: 1546.2000000000003
IT: 887.5
PT: 90.09999999999998
IE: 48.0
GR: 116.8
— 鲁鲁先生
source
2

JS，254 240 245

z='replace';r={};p=eval(('[{'+prompt()+'}]')[z](/\n/g,'},{')[z](/;/g,','));for(i in p){l=p[i];c=0;for(k in l){if(!c){c=k;r[c]=0;}else{r[c]-=l[k];}};for(j in p){w=p[j][c];if(w!=null)r[c]+=w}};alert(JSON.stringify(r)[z](/"|{|}/g,'')[z](/,/g,'\n'))

好吧..我知道这很长，但这是我的第二个代码高尔夫。

欢迎提出建议！

顺便说一句，有趣的Javascript保留了哈希图中元素的顺序，因此，即使p包含字典数组，我也可以将每个字典作为数组进行迭代，并且可以确定dict的第一个元素是第一个插入的元素。（国家名称指的是当前行）

取消高尔夫：

z='replace';
r={};
p=eval(('[{'+prompt()+'}]')[z](/\n/g,'},{')[z](/;/g,',')); // make the string JSONable and then evaluate it in a structure
for(i in p){ 
    l=p[i];
    c=0;
    for(k in l){
            if(!c){ // if c is not still defined, this is the country we are parsing.
                    c=k;
                    r[c]=0;
            }
            else r[c]-=l[k];
    }; 
    for(j in p){
            w=p[j][c];
            if(!w)  r[c]+=w
    }
};
alert(JSON.stringify(r)[z](/"|{|}/g,'')[z](/,/g,'\n')) # Stringify the structure, makes it new-line separated.

注意：输入是a prompt()，应为一行。但是，如果您在prompt()窗口中复制/粘贴多行文本（如建议的输入），则JS请全部阅读。

输出：

US:9439.3
FR:2598.9
ES:852.1
PT:90.09999999999998
IT:887.5
IE:48
GR:116.8
JP:4817.4
DE:2903.7000000000003
UK:1546.2
— 安东尼奥·拉格宁
source
1
您在代码中四次使用单词“ replace” 。像这样缩短它怎么样z='replace';r={};p=eval(('[{'+prompt()+'}]')[z](/\n/g,'},{')[z](/;/g,','));for(i in p){l=p[i];c=0;for(k in l){if(!c){c=k;r[c]=0;}else{r[c]-=l[k];}};for(j in p){w=p[j][c];if(w!=null)r[c]+=w}};alert(JSON.stringify(r)[z](/"|{|}/g,'')[z](/,/g,'\n'))？
— user2428118 2014年
哇，这为我节省了7 * 4-（3 * 4 + 11）个字符！（我也把(w!=null)作为(!w)
— 安东尼Ragagnin
@AntonioRagagnin您能否显示您的输出？
— WallyWest
感谢您的来信@WallyWest。事实证明!w，检查w!=null该脚本不是一个好主意，并且该脚本不再起作用：p。现在，我将使用结果进行更新
— Antonio Ragagnin 2014年
尝试使用：z="replace";r={};p=eval(("[{"+prompt()+"}]")[z](/\n/g,"},{")[z](/;/g,","));for(i in p){l=p[i];c=0;for(k in l)c?r[c]-=l[k]:(c=k,r[c]=0);for(j in p)w=p[j][c],null!=w&&(r[c]+=w)}alert(JSON.stringify(r)[z](/"|{|}/g,"")[z](/,/g,"\n"))229字节...我在这里所做的是将if(!c)序列简化为单个三元运算符，并且我还将其合并到其父for循环中...我也与其他for循环做了类似的事情...逗号运算符可以很好地工作以在循环中加入多个语句...
— WallyWest 2014年
2

的JavaScript（ES6）175，166，161，156，153 147

打高尔夫球

R={};prompt().split(/\s/).map(l=>{a=l.split(/[;,:]/);c=b=a[0];a.map(v=>b=!+v?v:(R[b]=(R[b]||0)+ +v c==b?b:R[c]-=+v))});for(x in R)alert(x+':'+R[x])

不打高尔夫球

R = {};
prompt().split(/\s/).map(l => {
    a = l.split(/[;,:]/);       // Split them all!! 
                                // Now in a we have big array with Country/Value items
    c = b = a[0];               // c - is first country, b - current country
    a.map(v =>                
         b = !+v ? v                 // If v is country (not a number), simply update b to it's value          
                 : (R[b] = (R[b] ||0) + +v   // Safely Add value to current country
                   c == b ? c : R[c] -= +v)  // If current country is not first one, remove debth 
    )
});
for (x in R) alert(x + ':' + R[x])

输出量

US:9439.299999999997
FR:2598.8999999999996
ES:852.1
JP:4817.4
DE:2903.7
UK:1546.2000000000003
IT:887.5
PT:90.09999999999998
IE:48
GR:116.8
— 基勒
source
不确定取消高尔夫的版本是否会正常工作，因为在高尔夫版本中，我使用的是单线运算符
— tt.Kilew 2014年
你能显示你的输出吗？
— WallyWest
1
替换R[b] ? R[b] += +v : R[b] = +v为R[b]=R[b]||0+ +v
— tt.Kilew，2014年
1
已删除索引i=0;i++%2==0?b=v至b=isNaN(+v)?v:
— tt.Kilew，2014年
1
isNaN(+v)->!+v
— tt.Kilew，2014年
1

Groovy 315

def f(i){t=[:];i.eachLine(){l=it.split(/;|,/);s=l[0].split(/:/);if(!z(s[0]))t.put(s[0],0);t.put(s[0],x(z(s[0]))+x(s[1]));(1..<l.size()).each(){n=l[it].split(/:/);t.put(s[0],x(z(s[0]))-x(n[1]));if(!z(n[0]))t.put(n[0],0);t.put(n[0],x(z(n[0]))+x(n[1]))}};t.each(){println it}};def x(j){j.toDouble()};def z(j){t.get(j)}

Output:
US=9439.299999999997
FR=2598.8999999999996
ES=852.1
JP=4817.4
DE=2903.7
UK=1546.2000000000003
IT=887.5
PT=90.09999999999998
IE=48.0
GR=116.8

取消高尔夫：

input = """US:10800;FR:440.2,ES:170.5,JP:835.2,DE:414.5,UK:834.5
FR:1800;IT:37.6,JP:79.8,DE:123.5,UK:227,US:202.1
ES:700;PT:19.7,IT:22.3,JP:20,DE:131.7,UK:74.9,US:49.6,FR:112
PT:200;IT:2.9,DE:26.6,UK:18.9,US:3.9,FR:19.1,ES:65.7
IT:1200;JP:32.8,DE:120,UK:54.7,US:34.8,FR:309,ES:29.5
IE:200;JP:15.4,DE:82,UK:104.5,US:39.8,FR:23.8
GR:200;DE:15.9,UK:9.4,US:6.2,FR:41.4,PT:7.5,IT:2.8
JP:4100;DE:42.5,UK:101.8,US:244.8,FR:107.7
DE:2400;UK:141.1,US:174.4,FR:205.8,IT:202.7,JP:108.3
UK:1700;US:578.6,FR:209.9,ES:316.6,IE:113.5,JP:122.7,DE:379.3"""

ungolfed(input)

def ungolfed(i){
    def tallyMap = [:]
    i.eachLine(){ 
        def lineList = it.split(/;|,/)
        def target = lineList[0].split(/:/)

        if(!tallyMap.get(target[0])){tallyMap.put(target[0],0)}
        tallyMap.put(target[0],tallyMap.get(target[0]).toDouble() + target[1].toDouble())
        (1..lineList.size()-1).each(){ e ->
            def nextTarget = lineList[e].split(/:/)
            //subtract the debt
            tallyMap.put(target[0], (tallyMap.get(target[0]).toDouble() - nextTarget[1].toDouble()))
            //add the debt
            if(!tallyMap.get(nextTarget[0])){ tallyMap.put(nextTarget[0], 0) }
            tallyMap.put(nextTarget[0], (tallyMap.get(nextTarget[0]).toDouble() + nextTarget[1].toDouble()))  
        }
    }
    tallyMap.each(){
        println it
    }
}
— md_rasler
source
您是否碰巧找到我可以在Groovy上找到更多信息的链接？
— WallyWest
@WallyWest：我有这本书，并从中学到了很多东西。我觉得这是最好的参考书目之一。链接，这里还有大量信息：链接
— md_rasler 2014年
1

PHP 333

$a='';while(($l=trim(fgets(STDIN)))!='')$a.=$l.'\n';$a=rtrim($a,'\n');$p=explode('\n',$a);foreach($p as $q){preg_match('/^([A-Z]+)/',$q,$b);preg_match_all('/'.$b[0].':(\d+(?:\.\d+)?)/',$a,$c);$e=ltrim(strstr($q,';'),';');preg_match_all('/([A-Z]+)\:(\d+(?:\.\d+)?)/',$e,$d);echo $b[0].':'.(array_sum($c[1])-array_sum($d[2])).PHP_EOL;}

非高尔夫版本： 

$a='';
while(($l=trim(fgets(STDIN)))!='')
    $a .= $l.'\n';
$a = rtrim($a,'\n');
$p = explode('\n',$a);
foreach($p as $q){
    preg_match('/^([A-Z]+)/',$q,$b);
    preg_match_all('/'.$b[0].':(\d+(?:\.\d+)?)/',$a,$c);
    $e = ltrim(strstr($q,';'),';');
    preg_match_all('/([A-Z]+)\:(\d+(?:\.\d+)?)/', $e, $d);
    echo $b[0].':'.(array_sum($c[1])-array_sum($d[2])).PHP_EOL;
}
— kuldeep.kamboj
source
By using our site, you acknowledge that you have read and understand our Cookie Policy and Privacy Policy.
Licensed under cc by-sa 3.0 with attribution required.