fork download 
  1. function m = rev(n)
  2. 	m = 0;
  3. 	while 0 < n
  4. 		[m, n] = deal(m * 10 + mod(n, 10), fix(n / 10));
  5. 	end
  6. end
  7. function m = f(n)
  8. 	[m, a, b] = deal(n(n == rev(n)), n - 1, n + 1);
  9. 	while isempty(m)
  10. 		[m, a, b] = deal([a(a == rev(a)) b(b == rev(b))], a - 1, b + 1);
  11. 	end
  12. end
  13. g = @(n) fprintf("入力: %d\n出力: %s\n\n", n, mat2str(f(n)));
  14. arrayfun(g, [0 17 100])
Success #stdin #stdout 0.15s 46828KB
comments (?)
stdin 
Standard input is empty
stdout 
入力: 0
出力: 0

入力: 17
出力: 22

入力: 100
出力: [99 101]
https://ideone.com/MXux5X
language:
Octave (octave 4.4.1)
created:
93 days 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!