Unique characters in each string: Difference between revisions
Content added Content deleted
(add →Pascal) |
(fix →Pascal) |
||
| Line 647: | Line 647: | ||
\brief calls `uniqueCharacters` for several strings |
\brief calls `uniqueCharacters` for several strings |
||
\param sample the `array` of strings |
\param sample the `array` of strings |
||
\return characters appearing once in |
\return characters appearing once in every \param sample member |
||
} |
} |
||
function allUniqueCharacters( |
function allUniqueCharacters( |
||
| Line 657: | Line 657: | ||
{ `type of` is an Extended Pascal extension. } |
{ `type of` is an Extended Pascal extension. } |
||
i: type of sampleMinimum; |
i: type of sampleMinimum; |
||
uniqueInEverySample: characters value [chr(0)..maxChar]; |
|||
begin |
begin |
||
for i := sampleMinimum to sampleMaximum do |
for i := sampleMinimum to sampleMaximum do |
||
begin |
begin |
||
uniqueInEverySample := uniqueInEverySample * uniqueCharacters(sample[i]) |
|||
end; |
end; |
||
allUniqueCharacters := |
allUniqueCharacters := uniqueInEverySample |
||
end; |
end; |
||
| Line 698: | Line 698: | ||
end.</lang> |
end.</lang> |
||
{{out}} |
{{out}} |
||
1 2 3 |
1 2 3 a b c |
||
=={{header|Perl}}== |
=={{header|Perl}}== |
||