POLINOMIAL MULTIPLICATION
1 'POL
2 "m": ?$>G:
3 0$>M[K]$~K[2K]:
4 K-G$>J:
5 $L1:
6 G$>I:
7 $L0:
8 K[K+I+J]+L[J+G]L[I]$>K[K+I+J]:
9 $DI: $G0:
10 $DJ: $G1:
11 K-1$>I:
12 $L2:
13 L[2K-I]$>L[K+G-I]$,
14 $DI: $G2:
15 K+G-1$>K:
16 "$E"

TOP TOP