fork download
copy 
  1. f=@(N,A)sum(unique((z=(1:N)'.*A)(z<N)))
  2.  
  3. f(50,2)
  4. f(10,[3,5])
  5. f(28,[4,2])
  6. f(19,[7,5])
  7. f(50,[2,3,5])
Success #stdin #stdout 0.22s 103360KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
f =

@(N, A) sum (unique ((z = 1:N' .* A) (z < N)))

ans =  600
ans =  23
ans =  182
ans =  51
ans =  857
https://ideone.com/8Bljrl
language:
Octave (octave 4.4.1)
created:
7 years ago
visibility:
public

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!