partie 1 : Compression :

 

Isdigit

function ind = isdigit(caracter)

      error(nargchk(1, 1, nargin));

   ind = ischar(c) & ( '0' <= caracter ) & ( caracter <= '9' );