Anonymous user
Self-describing numbers: Difference between revisions
→{{header|MATLAB}} / {{header|Octave}}
No edit summary |
|||
Line 1,191:
21200
... </pre>
=={{header|MiniScript}}==
<lang MiniScript>numbers = [12, 1210, 1300, 2020, 21200, 5]
occurrences = function(test, values)
count = 0
for i in values
if i.val == test then count = count + 1
end for
return count
end function
for number in numbers
check = "" + number
digits = check.values
describing = true
for digit in digits.indexes
// print digit + " = " + occurrences(digit, digits)
if digits[digit].val != occurrences(digit, digits) then
describing = false
end if
end for
if describing then
print number + " is self describing"
else
print number + " is not self describing"
end if
end for
</lang>
{{out}}
<pre>
12 is not self describing
1210 is self describing
1300 is not self describing
2020 is self describing
21200 is self describing
5 is not self describing
</pre>
=={{header|Modula-2}}==
| |||