Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much

Rosetta PGA-TRAM

by eyepopslikeamosquito (Canon)
on Jun 13, 2009 at 11:48 UTC ( #771219=perlmeditation: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download

  1. or download this
    use strict;
    use warnings;
    for my $r (@testdata) {
      print "$r: ", roman_to_dec($r), "\n";
  2. or download this
    XLII: 42
    LXIX: 69
    mi: 1001
  3. or download this
      sub roman_to_dec {
        my $t = 0;
        return $t;
  4. or download this
    def roman_to_dec(r, __rtoa = dict(M=1000, D=500, C=100, L=50, X=10, V=
    +5, I=1) ):
      return reduce( lambda t,n: t+n-t%n*2, (__rtoa[c] for c in r.upper())
    + )
    testdata = [ "XLII", "LXIX", "mi" ]
    for r in testdata:
      print r, ":", roman_to_dec(r)
  5. or download this
    {-# OPTIONS_GHC -fglasgow-exts -Wall #-}
    main :: IO ()
    main = do
      putStrLn $ (concat $ intersperse "\n" (map (\c -> (myshow roman_to_d
    +ec c)) testdata))
  6. or download this
    #include <cctype>
    #include <iostream>
      return 0;

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlmeditation [id://771219]
Approved by Old_Gray_Bear
Front-paged by Corion
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (8)
As of 2014-09-19 18:54 GMT
Find Nodes?
    Voting Booth?

    How do you remember the number of days in each month?

    Results (144 votes), past polls