aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

June 2018 Update

Browse source
This commit is contained in:
Ingy döt Net 2018-06-22 20:57:24 +00:00
parent ba8067c3b7
commit 22f33d4004
5278 changed files with 84726 additions and 14379 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Task/Numeric-error-propagation/Perl-6/numeric-error-propagation.pl6
View file

@ -19,7 +19,7 @@ multi approx($x) { Approx.new: :$x, :c[0 xx +@INDEP] }
# Each ± gets its own source slot.
multi infix:<±>($a, $b) {
.push: 0 for @INDEP; # lengthen older component lists
my $c = [ 0 xx @INDEP, $b ];
my $c = [ flat 0 xx @INDEP, $b ];
@INDEP.push: $c; # add new component list
approx $a, $c;