阿拉伯数字填空

bikkuri

请用阿拉伯数字填空,使下面十句话都正确.
0在这十句话里出现的次数是_____；
1在这十句话里出现的次数是_____；
2在这十句话里出现的次数是_____；
3在这十句话里出现的次数是_____；
4在这十句话里出现的次数是_____；
5在这十句话里出现的次数是_____；
6在这十句话里出现的次数是_____；
7在这十句话里出现的次数是_____；
8在这十句话里出现的次数是_____；
9在这十句话里出现的次数是_____；

怎么用shell计算这道题？

sunzhiguolu

这样?

1. #!/usr/bin/perl
   
2. 
   
3. map {/([0-9])/; $h{$1}++} <>;
   
4. print "$_在这十句话里出现的次数是$h{$_};\n" for sort keys %h;
   

复制代码

0在这十句话里出现的次数是1;
1在这十句话里出现的次数是1;
2在这十句话里出现的次数是1;
3在这十句话里出现的次数是1;
4在这十句话里出现的次数是1;
5在这十句话里出现的次数是1;
6在这十句话里出现的次数是1;
7在这十句话里出现的次数是1;
8在这十句话里出现的次数是1;
9在这十句话里出现的次数是1;

有误: 奥林匹克数学

bikkuri

你的答案显然是错误的。
请参阅：
http://www.zhihu.com/question/20720161

回复 2# sunzhiguolu


   

jason680

$ time perl -e 'sub chk{my%h=@_;my%v;for(keys %h){++$v{$_};++$v{$h{$_}}}for(keys %h){return if($h{$_}!=$v{$_})};for(0..9){print "$_,$h{$_}\n"}print "="x20 . "\n"}sub add{my($p,$m,%h)=@_;$h{$p}+=$m;if($p==9){chk(%h);return};for(0..8){$s=0;for$x(0..9){$s+=$h{$x}};return if($s>20);add($p+1,$_,%h);}};@a=(0..9);@h{@a}=(1)x@a;add(0,0,%h)'
0,1
1,7
2,3
3,2
4,1
5,1
6,1
7,2
8,1
9,1
====================

real    0m10.494s
user    0m9.725s
sys    0m0.152s

$ time perl -e 'sub chk{my%h=@_;my%v;for(keys %h){++$v{$_};++$v{$h{$_}}}for(keys %h){return if($h{$_}!=$v{$_})};for(0..9){print "$_,$h{$_}\n"}print "="x20 . "\n"}sub add{my($p,$m,%h)=@_;$h{$p}+=$m;if($p==9){chk(%h);return};for(0..8){$s=0;for$x(0..9){$s+=$h{$x}};return if($s>20);add($p+1,$_,%h);}};@a=(0..9);@h{@a}=(1)x@a;add(0,$_,%h)for(0..8)'
0,1
1,7
2,3
3,2
4,1
5,1
6,1
7,2
8,1
9,1
====================

real    0m20.755s
user    0m19.545s
sys    0m0.216s

RE_HASH

$> time perl -e '$B=""; $_="0: \n1: \n2: \n3: \n4: \n5: \n6: \n7: \n8: \n9: \n";while ($B ne $_){$B = $_; s/(\d):.+/$a=$1; $c= $B =~ s:$a:$a:g; "$a:$c"/ge ; }; print'
0:1
1:11
2:2
3:1
4:1
5:1
6:1
7:1
8:1
9:1

real    0m0.048s
user    0m0.010s
sys     0m0.000s

jcdiy0601

奥林匹克

sunzhiguolu

@jason680, @RE_HASH
大神 能否说下这道题的出处啊, 没看懂题目的含义. 谢谢...