Base 16 numbers needing a to f: Difference between revisions
Content added Content deleted
(Base 16 numbers needing a to f en BASIC256) |
(Base 16 numbers needing a to f en Yabasic) |
||
| Line 2,279: | Line 2,279: | ||
301 such numbers found. |
301 such numbers found. |
||
</pre> |
</pre> |
||
=={{header|Yabasic}}== |
|||
<lang yabasic>sub needs_af (n) |
|||
while n > 0 |
|||
if mod(n, 16) > 9 then return true : fi |
|||
n = int(n / 16) |
|||
wend |
|||
return false |
|||
end sub |
|||
for i = 1 to 500 |
|||
if needs_af(i) then print i, " ", : fi |
|||
next i |
|||
end</lang> |
|||