Geek Gadgets 1/ADE-1.bin/ade-dist/octave-1.1.1p1-src.tgz/tar.out/fsf/octave/test/octave.test/for/for-6.m

Text File | 1996-09-28 | 69b | 5 lines

for i = [1,2,3,4]*I
  printf ("%d", imag (i));
endfor
printf ("\n");