Rosetta Code

Display a linear combination: Difference between revisions

Page Discussion

Display a linear combination (view source)

Revision as of 15:35, 12 October 2015

42 bytes removed ,  8 years ago
→‎{{header|Perl 6}}: style
Line 27:
=={{header|Perl 6}}==
<lang perl6>sub linear-combination(@coeff) {
none(@coeff Z=> map { "e($_)" ??}, '0'1 !!.. *)\
join.grep(+*.key)\
.map({ .key ~ '+*', ~ .value })\
.join('+')\
map { .key ~ '*' ~ .value },
.subst('+-', '-', :g)\▼
grep +*.key,
.subst(/<|w>1\*/, '', :g);▼
(@coeff Z=> map { "e($_)" }, 1 .. *)
)\ || '0'
▲ .subst('+-', '-', :g)\
▲ .subst(/<|w>1\*/, '', :g);
}
 
say linear-combination(@$_) for
[1, 2, 3],
[0, 1, 2, 3],
Line 48 ⟶ 46:
[-1, -1, -1],
[-1, -2, 0, -3],
[ -1 ]
;</lang>
{{out}}
Grondilu
1,934

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/262028"