Ideone.com

download

copy

#!/usr/bin/perl -na
$j=s/./0 x$&/ger;print+($j|$i.1x$_)=~s/\B/ /gr x($i.=0 x$_,$_)for@F

Success #stdin #stdout 0s 6044KB

stdin

copy

1 2 3 1

stdout

copy

1 0 0 0 0 0 00 1 1 0 0 0 00 1 1 0 0 0 00 0 0 1 1 1 00 0 0 1 1 1 00 0 0 1 1 1 00 0 0 0 0 0 1

https://ideone.com/1rqR4W

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!