Program for Armstrong number in r

Question

A Number is called Armstrong Number if the sum of the cube of each digit of that number is equals to the Number itself.

Example:

• 153 = 1 + 5^

Answer 1

(a <- rowSums(matrix(as.numeric(unlist(strsplit(as.character(100:999),''))),nrow=900,byrow=TRUE)^3))[a==100:999]
[1] 153 370 371 407