fork download 
  1. flip_col = @(m, n) [m(:, 1:n-1) flip(m(:, n)) m(:, n+1:end)];
  2. f = @(m, n) flip_col([repmat('*', 1, numel(m)); m], n);
  3. f('abc', 2)
  4.  
  5. function m = g(m, n)
  6. 	m = [repmat('*', 1, numel(m)); m];
  7. 	m(:, n) = flip(m(:, n));
  8. end
  9. g('def', 2)
  10.  
  11. h = @(m, n) cell2mat(arrayfun(@(c, i) {['*'; c] [c; '*']}(1 + (i == n)), m, 1:numel(m)));
  12. h('ghi', 2)
Success #stdin #stdout 0.25s 411712KB
comments (?)
stdin 
Standard input is empty
stdout 
ans =

*b*
a*c

ans =

*e*
d*f

ans =

*h*
g*i
https://ideone.com/fEaJMh
language:
Octave (octave 4.4.1)
created:
5 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!