Skip to content

Instantly share code, notes, and snippets.

@cybelechild

cybelechild/Roman

Last active December 16, 2015 21:00
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save cybelechild/5496836 to your computer and use it in GitHub Desktop.
Save cybelechild/5496836 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
Roman
#!/usr/bin/env perl
use Test::More tests => 1;
my %roman = (1 => 'I', 2 => 'II', 3=> '3', 4 =>'IV', 5 => 'V', 6 => 'VI', 7 => 'VII', 8 => 'VIII', 9 => 'IX', 10 => 'X') ;
sub to_roman($val) {
return $roman{$val};}
is to_roman{3}, "III" ;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment