fork(2) download
copy 
  1. #!/usr/bin/perl
  2. @a=split/\./,<>;@b=split``,$a[1];@c=split``,$a[0];for($i=0;$i<length$a[0];$i++){$_.=($c[$i]!=0)?$c[$i]."0"x((length$a[0])-$i-1)."+":"";}for($i=1;$i<=length$a[1];$i++){$_.=($b[$i-1]!=0)?"0."."0"x($i-1).$b[$i-1]."+":"";}chop;($_=="")?print"0 ":print;
Success #stdin #stdout 0s 6044KB
comments (?)
stdin
copy 
5
stdout
copy 
5
https://ideone.com/zkYvCB
language:
Perl (perl 5.28.1)
created:
8 years ago
visibility:
secret

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!