10 lines
195 B
Text
10 lines
195 B
Text
#import nat
|
|
#import flo
|
|
|
|
f = <1+0j,1+0j,1+0j,1+0j,0+0j,0+0j,0+0j,0+0j> # complex sequence of 4 1's and 4 0's
|
|
|
|
g = c..mul^*D(sqrt+ float+ length,..u_fw_dft) f # its fft
|
|
|
|
#cast %jLW
|
|
|
|
t = (f,g)
|