Binomial transform: Difference between revisions
m
→{{header|jq}}: shorten
m (→{{header|jq}}: shorten) |
|||
Line 661:
def forward:
. as $a
| reduce range(0; $a|length) as $
reduce range(0;$n+1) as $k (.;
.[$n] += binomial($n; $k) * $a[$k] ) );
Line 668 ⟶ 667:
def inverse:
. as $b
| reduce range (0; $b|length) as $
reduce range(0; $n+1) as $k (.;
(if (($n - $k) % 2 == 0) then 1 else -1 end) as $sign
Line 676 ⟶ 674:
def selfInverting:
. as $a
| reduce range(0; $a|length) as $
reduce range(0; $n+1) as $k (.;
(if $k % 2 == 0 then 1 else -1 end) as $sign
| |||