9 lines
336 B
Text
9 lines
336 B
Text
fcn vampiric(fangs,n=Void){
|
|
if(not fangs) return(n,"Not a Vampire number");
|
|
v:=fangs[0]; T(v,fangs[1].apply('wrap(n){T(n,v/n)})) }
|
|
|
|
T(16758243290880, 24959017348650, 14593825548650)
|
|
.pump(Console.println,fcn(n){"%d: %s".fmt(vampiric(fangs(n),n).xplode())});
|
|
|
|
(0).walker(*).tweak(fangs).filter(26)
|
|
.pump(Console.println,vampiric);
|