# R Programming : Check Armstrong Number

Tutorial by:Maria Ghoste      Date: 2016-06-10 02:34:43

An Armstrong number, also known as narcissistic number, is a number that is equal to the sum of the cubes of its own digits. For example, 370 is an Armstrong number since 370 = 3*3*3 + 7*7*7 + 0*0*0.

## Source Code

``````# Program to if the
# number provied by the
# user is an Armstrong number
# or not

# take input from the user
num = as.integer(readline(prompt="Enter a number: "))

# initialize sum
sum = 0

# find the sum of the cube of each digit
temp = num
while(temp > 0) {
digit = temp %% 10
sum = sum + (digit ^ 3)
temp = floor(temp/10)
}

# display the result
if(num == sum) {
print(paste(num,"is an Armstrong number"))
} else {
print(paste(num,"is not an Armstrong number"))
}``````

Output 1

```
Enter a number: 23
[1] "23 is not an Armstrong number"
```

Output 2

```
Enter a number: 370
[1] "370 is an Armstrong number"
```

Here, we ask the user for a number and check if it is an Armstrong number. We need to calculate the sum of cube of each digit. So, we initialize the sum to 0 and obtain each digit number by using the modulus operator %%. Remainder of a number when it is divide by 10 is the last digit of that number. We take the cubes using exponent operator. Finally we compare the sum with the original number and conclude that it is Armstrong number if they are equal.

## R Programming

Submit Your Thought, Tutorial, Articls etc.