7 lines
190 B
Factor
7 lines
190 B
Factor
USING: kernel math.functions math.ranges math.text.utils
|
|
prettyprint sequences ;
|
|
|
|
: munchausen? ( n -- ? )
|
|
dup 1 digit-groups dup [ ^ ] 2map sum = ;
|
|
|
|
5000 [1,b] [ munchausen? ] filter .
|