Ideone.com

download

copy

#!/usr/bin/perl -p
 
s/^d/1d/;/^(\d+)d(\d+)(\+\d+)?$/;$d+=1+rand$2|0for
1..$1;$_=$1*$2?$d+$3:'Invalid input'

Success #stdin #stdout 0s 6000KB

stdin

copy

2d6+2

stdout

copy

https://ideone.com/gLJfhO

language:

Perl (perl 5.28.1)

created:

visibility:

public

Share or Embed source code

The brand new service which powers Ideone!

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