fork(1) download
copy 
  1. #!perl -p
  2. %x=(I,1,IV,4,V,5,IX,9,X,10);$a="(X{0,3}(?:V?I{1,3}|I?V|IX)|X{1,3})"x3;m*^$a,$a,$a$(?{@z=map"$$_",0..9;$r|=!grep$x-$_,map{$x=eval s/./ $z[$&]/gr=~s/IX|IV|\S/+$x{$&}/gr}123,456,789,147,258,369,159,357;++$-})^*;$_="$-,$r"
  3.  
Success #stdin #stdout 0s 6000KB
comments ()
stdin
copy 
VIIIIVI,IIIVVII,IVIXII
stdout
copy 
24,1
https://ideone.com/p580tK
language:
Perl (perl 5.28.1)
created:
10 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!