haskell 基础题解（08）

水仙花数

【题目】水仙花数是指一个 3 位数，它的每个位上的数字的 3次幂之和等于它本身
例如： 153 = 1 ^ 3 + 5 ^ 3 + 3 ^ 3
求所有的水仙花数。

这个题目相对容易。只要一个数一个数测试有没有满足要求就可以了。

shui_xian = 
  [ x*100 + y*10 + z |
    x <- [1..9],
    y <- [0..9],
    z <- [0..9],
    x^3 + y^3 + z^3 == x*100+y*10+z ]

main = print shui_xian

这代码没什么可解释的。它为了方便，没有直接列举所有三位数，而是列举了它的每个数位的可能情况。注意，首位数字不能是 0

这道题目要扩展一下才有意思。比如，4位数对4次方，5位数对5次方，。。。
有人算到了21位数对21次方，你可以试试看。