Advertisement
Guest User

Roman numerals

a guest
Jan 15th, 2012
139
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.38 KB | None | 0 0
  1. #!/usr/bin/perl -w
  2. $string="CMCDXCXLIXIVI"; @letters=split //,$string;
  3. foreach $i (1 .. 2 ** scalar @letters) {
  4.   %used=();$number="";$k=$i;
  5.   foreach ($j=0; $j<=$#letters;$j++,$k >>= 1) {
  6.     $letter=$letters[$j];
  7.     if ($k % 2 and !$used{$letter}) {
  8.       $used{$letter}=1; $number.=$letter;
  9.     }
  10.   }
  11.   if (!$seen{$number}){
  12.     $seen{$number}=1;
  13.     print "$number\n";
  14.   }
  15. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement