2023-10-11 23:06:21 -04:00
|
|
|
"armstrong-numbers.8th" f:include
|
|
|
|
|
needs exercism/test
|
2024-03-05 20:52:32 +08:00
|
|
|
with: test
|
2023-10-11 23:06:21 -04:00
|
|
|
11 tests
|
|
|
|
|
|
2025-01-30 09:02:48 +01:00
|
|
|
"Zero is an Armstrong number"
|
|
|
|
|
( 0 armstrong? )
|
|
|
|
|
true?
|
|
|
|
|
|
2023-10-11 23:06:21 -04:00
|
|
|
SKIP-REST-OF-TESTS
|
2025-01-30 09:02:48 +01:00
|
|
|
|
|
|
|
|
"Single digit numbers are Armstrong numbers"
|
|
|
|
|
( 5 armstrong? )
|
|
|
|
|
true?
|
|
|
|
|
|
|
|
|
|
"There are no 2 digit Armstrong Numbers"
|
|
|
|
|
( 10 armstrong? )
|
|
|
|
|
false?
|
|
|
|
|
|
|
|
|
|
"Three digit number that is not an Armstrong number"
|
|
|
|
|
( 100 armstrong? )
|
|
|
|
|
false?
|
|
|
|
|
|
|
|
|
|
"Three digit number that is an Armstrong number"
|
|
|
|
|
( 153 armstrong? )
|
|
|
|
|
true?
|
|
|
|
|
|
|
|
|
|
"Four digit number that is an Armstrong number"
|
|
|
|
|
( 9474 armstrong? )
|
|
|
|
|
true?
|
|
|
|
|
|
|
|
|
|
"Four digit number that is not an Armstrong number"
|
|
|
|
|
( 9475 armstrong? )
|
|
|
|
|
false?
|
|
|
|
|
|
|
|
|
|
"Seven digit number that is not an Armstrong number"
|
|
|
|
|
( 9926314 armstrong? )
|
|
|
|
|
false?
|
|
|
|
|
|
|
|
|
|
"Seven digit number that is an Armstrong number"
|
|
|
|
|
( 9926315 armstrong? )
|
|
|
|
|
true?
|
|
|
|
|
|
|
|
|
|
"Armstrong number containing seven zeroes"
|
|
|
|
|
( 186709961001538790100634132976990 armstrong? )
|
|
|
|
|
true?
|
|
|
|
|
|
|
|
|
|
"The largest and last Armstrong number"
|
|
|
|
|
( 115132219018763992565095597973971522401 armstrong? )
|
|
|
|
|
true?
|
2023-10-11 23:06:21 -04:00
|
|
|
|
|
|
|
|
end-of-tests
|
2024-03-05 20:52:32 +08:00
|
|
|
;with
|