Check a number is a narcissistic number or not, and print the narcissistic number in [0,1000] the detailed definition of a narcissistic number is at http://zh.wikipedia.org/wiki/%E6%B0%B4%E4%BB%99%E8%8A%B1%E6%95%B0

isNarcissistic.io

#!/usr/bin/env io
 
Number isNarcissistic := method(base,
	base ifNil(base = 10)
	digits := self toBase(base) asList map(fromBase(base))
	self == digits map(** digits size) sum 
)

# print the narcissistic number in range [0, 1000] (decimal) 
Range 0 to(1000) asList select(isNarcissistic) println

# => list(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 153, 370, 371, 407)