Vampire number: Difference between revisions

Content added Content deleted
Line 2,059:
 
def task1($n):
limit($n; range(1; infinite)
{i:0,
vamps: 0| }. as $i
| (.i|vampire_factors) as $vf▼
| while(.vamps <= $n;
| .emit = nullselect(length>0)
| "\($i):\t\(.i +=)" 1);
▲ | (.i|vampire_factors) as $vf
| if $vf == [] then .
else .emit = "\(.i):\t\($vf)"
| .vamps += 1
end)
| select(.emit).emit ;
 
def task2:
Line 2,114 ⟶ 2,108:
14593825548650 is not a vampire number!
</pre>
 
 
=={{header|Julia}}==
Retrieved from "https://rosettacode.org/wiki/Vampire_number"