Numbers with same digit set in base 10 and base 16: Difference between revisions
Content deleted Content added
Not a robot (talk | contribs) add Setl |
Not a robot (talk | contribs) Add ABC |
||
Line 32: | Line 32: | ||
</pre> |
</pre> |
||
=={{header|ABC}}== |
|||
<syntaxhighlight lang="abc">HOW TO RETURN base digitset n: |
|||
PUT {} IN set |
|||
WHILE n>0: |
|||
PUT n mod base IN digit |
|||
IF digit not.in set: INSERT digit IN set |
|||
PUT floor(n/base) IN n |
|||
RETURN set |
|||
PUT 0 IN col |
|||
FOR n IN {0..100000}: |
|||
IF 10 digitset n = 16 digitset n: |
|||
WRITE n>>8 |
|||
PUT col+1 IN col |
|||
IF col mod 10 = 0: WRITE /</syntaxhighlight> |
|||
{{out}} |
|||
<pre> 0 1 2 3 4 5 6 7 8 9 |
|||
53 371 913 1040 2080 2339 4100 5141 5412 5441 |
|||
6182 8200 9241 13593 13665 13969 16406 20530 26946 30979 |
|||
32803 33638 33840 33841 33842 33843 33844 33845 33846 33847 |
|||
33848 33849 34883 37943 38931 38966 38995 66310 71444 71497 |
|||
71511 75120 75121 75122 75123 75124 75125 75126 75127 75128 |
|||
75129 75621 86150 88165 91465 91769 96617 98711 99481</pre> |
|||
=={{header|Ada}}== |
=={{header|Ada}}== |
||
<syntaxhighlight lang="ada">with Ada.Text_Io; |
<syntaxhighlight lang="ada">with Ada.Text_Io; |