Unique characters in each string: Difference between revisions

Line 647:
\brief calls `uniqueCharacters` for several strings
\param sample the `array` of strings
\return characters appearing once in at least oneevery \param sample member
}
function allUniqueCharacters(
Line 657:
{ `type of` is an Extended Pascal extension. }
i: type of sampleMinimum;
lonelyLettersuniqueInEverySample: characters value [chr(0)..maxChar];
begin
for i := sampleMinimum to sampleMaximum do
begin
lonelyLettersuniqueInEverySample := lonelyLettersuniqueInEverySample +* uniqueCharacters(sample[i])
end;
allUniqueCharacters := lonelyLettersuniqueInEverySample
end;
 
Line 698:
end.</lang>
{{out}}
1 2 3 5 6 a b c d f g s t z
 
=={{header|Perl}}==
149

edits