Rosetta Code

Vampire number: Difference between revisions

Page Discussion

Vampire number (view source)

Revision as of 21:35, 1 February 2018

8 bytes removed ,  6 years ago
m
→‎{{header|REXX}}: used a template for ou tput, optimized the VAMPIRE function.
m (→‎{{header|REXX}}: changed some comments and whitespace.)
m (→‎{{header|REXX}}: used a template for ou tput, optimized the VAMPIRE function.)
Line 2,688:
_=right(j,1); if j<!._ then iterate /*is number tenable based on last dig? */
f=vampire(j); if f=='' then iterate /*Are fangs null? Yes, not vampire. */
#=# +1 1 /*bump the vampire count, Vlad. */
say 'vampire number' right(#,length(N)) "is: " j', fangs=' f
end /*j*/ /* [↑] process a range of numbers. */
Line 2,694:
if f=='' then say N " isn't a vampire number."
else say N " is a vampire number, fangs=" f
end
exit /*stick a fork in it, we're all done. */
/*──────────────────────────────────────────────────────────────────────────────────────*/
vampire: procedure; parse arg ?,, $. !!a bot; L=length(?); w=L % 2
if L//2 then return !!'' /*Is L an odd length? Then ¬vampire.*/
do k=1 for L; _=substr(?,k,1); $._=$._ || _; end /*k*/
do m=0 for 10; bot=bot || $.m; end /*m*/
w=L % 2
top=left( reverse(bot), w); bot=left(bot, w) /*determine limits of search*/
inc=?//2 + 1 /*? is odd? INC=2. No? INC=1*/
beg=max(bot, 10**(w-1)); if inc=2 then if beg//2==0 then beg=beg + 1
/* [↑] odd BEG if odd INC*/
do d=beg to min(top, 10**w - 1) by inc
if ? // d \==0 then iterate /*? not ÷ by D? Then skip,*/
q=? if% verify(d,; ?) \==0 if d>q then iterate /*is D > Q Then skip.*/
if q*d//9 \==? % (q+d;)//9 then iterate if d>q /*modulo 9 congruence thentest. iterate*/
if length(q*d//9) \==w (q+d)//9 then iterate /*moduloLen 9of congruenceQ test.^= W? Then skip.*/
if verifyright(q, ?1) \ ==0 then if right(d, 1) ==0 then iterate
if right(q, 1) dq==0 then if right(d, 1)==0|| then iterateq
t=?; if length(q) \= do i=1 w for L; then iterate p=pos( substr(dq, i, 1), t)
dq if p=d=0 || qthen iterate d; t=?delstr(t, p, 1)
end do /*i=1 for L; p=pos( substr(dq, i, 1), t)*/
if pa==0a then iterate '['d; t=delstr(t, p, 1)"∙"q']'
end /*id*/
return !!=!! '['d"∙"q']'a</lang>
'''{{out|output'''|text=&nbsp; when using the default input:}}▼
end /*d*/
return !!</lang>
▲'''output''' when using the default input:
<pre>
vampire number 1 is: 1260, fangs= [21∙60]
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/227769"