diff options
| -rw-r--r-- | Doc/perl/python.perl | 23 |
1 files changed, 0 insertions, 23 deletions
diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl index 9eaf36c..bffd46f 100644 --- a/Doc/perl/python.perl +++ b/Doc/perl/python.perl @@ -32,29 +32,6 @@ sub swallow_newline{ s/[\n]?//o; } -sub ArabictoRoman { - # Written by Robert Donohue <donahue@cfassp48.harvard.edu>, - # fixed by Fred Drake <fdrake@acm.org>, - # kept around in case it becomes useful. - my $a = @_; - my($b,@c,$i); - my(@D0,@D1,@D2); - - @D0 = ("", "I", "II", "III", "IV", "V", "VI", "VII", "VIII", "IX"); - @D1 = ("", "X", "XX", "XXX", "XL", "L", "LX", "LXX", "LXXX", "XC"); - @D2 = ("", "C", "CC", "CCC", "CD", "D", "DC", "DCC", "DCCC", "CM"); - - $b = $a; - $i = 0; - while($b > 0) { - $c[$i] = ($b % 10); - $b -= ($b % 10); - $b /= 10; - $i++; - } - return $D2[$c[2]] . $D1[$c[1]] . $D0[$c[0]]; -} - # This is a fairly simple hack; it supports \let when it is used to create # (or redefine) a macro to exactly be some other macro: \let\newname=\oldname. |