fork download
copy 
  1. f = @(a, b) a(abs(a - b) == min(abs(a - b)));
  2. g = @(b) f([98 100 198 200 250 298], b);
  3. arrayfun(@(n) {g(n)}, [50 195 99])
  4.  
  5. function i = mini(a), [~, i] = min(a); end
  6. f = @(a, b) a(mini(abs(a - b)));
  7. g = @(b) f([98 100 198 200 250 298], b);
  8. arrayfun(@(n) {g(n)}, [50 195 99])
  9.  
  10. mini = @(a) a == min(a);
  11. f = @(a, b) a(mini(abs(a - b)));
  12. g = @(b) f([98 100 198 200 250 298], b);
  13. arrayfun(@(n) {g(n)}, [50 195 99])
Success #stdin #stdout 0.12s 45608KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
ans =
{
  [1,1] =  98
  [1,2] =  198
  [1,3] =

      98   100

}

ans =
{
  [1,1] =  98
  [1,2] =  198
  [1,3] =  98
}

ans =
{
  [1,1] =  98
  [1,2] =  198
  [1,3] =

      98   100

}
https://ideone.com/kbVTGp
language:
Octave (octave 4.4.1)
created:
6 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!