53 lines
1.0 KiB
Plaintext
53 lines
1.0 KiB
Plaintext
"armstrong-numbers.8th" f:include
|
|
needs exercism/test
|
|
with: test
|
|
11 tests
|
|
|
|
"Zero is an Armstrong number"
|
|
( 0 armstrong? )
|
|
true?
|
|
|
|
SKIP-REST-OF-TESTS
|
|
|
|
"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?
|
|
|
|
end-of-tests
|
|
;with |