Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
13 lines (12 sloc) 196 Bytes
function what = iscomplex(var)
mytype = parrot_typeof(var);
if mytype == "Complex"
what = 1;
else
if mytype == "ComplexMatrix2D"
what = 1;
else
what = 0;
endif
endif
endfunction