Advertisement
epidzhx

integers_matlab

Mar 28th, 2018
119
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
MatLab 0.86 KB | None | 0 0
  1. function ans = integers(str)
  2.  
  3.     ans = [];
  4.     h = "";
  5.     flag = 0;
  6.     i = 1;
  7.     settlers = [' ', ',', ';'];
  8.    
  9.     while (i <= length(str))
  10.        
  11.         if ((str(i) >= '0') && (str(i) <= '9'))
  12.             if ((flag == 1) || (i == 1))
  13.                 h = [h str(i)];
  14.                 flag = 1;
  15.             elseif ((flag == 0) && (ismember(str(i-1), settlers)))
  16.                 h = [h str(i)];
  17.                 flag = 1;
  18.             else
  19.                 flag = 0;
  20.                 h = "";
  21.             end
  22.            
  23.         elseif ((ismember(str(i), settlers)) && (length(h) > 0) && (flag == 1))
  24.             flag = 0;
  25.             ans = [ans; str2num(h)];
  26.             h = "";
  27.         else
  28.             flag = 0;
  29.             h = "";
  30.         end
  31.         i+=1;
  32.     end
  33.  
  34.     if (length(h) > 0)
  35.         ans = [ans; str2num(h)];
  36.     end
  37. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement