Common sorted list: Difference between revisions
Added Perl
SqrtNegInf (talk | contribs) (Added Perl) |
|||
Line 83:
9
</lang>
=={{header|Perl}}==
<lang perl>@c{@$_}++ for [5,1,3,8,9,4,8,7], [3,5,9,8,4], [1,3,7,9];
print join ' ', sort keys %c;
@c{@$_}++ for [qw<not all is integer ? is not ! 4.2>];
print join ' ', sort keys %c;</lang>
{{out}}
<pre>1 3 4 5 7 8 9
! 1 3 4 4.2 5 7 8 9 ? all integer is not</pre>
=={{header|Phix}}==
|