Addition-chain exponentiation: Difference between revisions
→{{header|Raku}}: amendment for neglected output
(added Raku programming solution) |
(→{{header|Raku}}: amendment for neglected output) |
||
Line 2,014:
for chain.Array -> \i {
$pows = i
}
Line 2,030:
say "\nKnuth chains for addition chains of 31415 and 27182:";
say "Exponent: $_\n Addition Chain: %chns{$_}[0..*-2]" for %chns.keys;
say '1.00002206445416^31415 = ', $chn.cpow(1.00002206445416, %chns{31415});
say '1.00002550055251^27182 = ', $chn.cpow(1.00002550055251, %chns{27182});
Line 2,038 ⟶ 2,039:
my \mat = Math::Matrix.new( [[sq05, 0, sq05, 0, 0, 0],
[ 0, sq05, 0, sq05, 0, 0],
[-sq05, 0, sq05, 0, 0, 0],
say 'matrix A ^ 27182 =';
Line 2,064 ⟶ 2,065:
Knuth chains for addition chains of 31415 and 27182:
Exponent: 27182
Addition Chain: 1 2 3 5 7 14 21 35 70 140 143 283 566 849 1698 3396 6792 6799 13591
Exponent: 31415
Addition Chain: 1 2 3 5 7 14 28 56 61 122 244 488 976 1952 3904 7808 15616 15677 31293
1.00002206445416^31415 = 1.9999999998924638
1.00002550055251^27182 = 1.999999999974053
| |||