fork download
copy 
  1. #!/usr/bin/perl
  2. #!/usr/bin/perl
  3. use feature qw(say);
  4.  
  5. my $input = '
  6. 898778765432100
  7. 787667654321100
  8. 677656543211210
  9. 678765432112321
  10. 567654321123210';
  11.  
  12.  
  13. f($input);
  14.  
  15. sub f{for(split'
  16. ',$_[0]){chomp;push@r,r($_);}for(t(@r)){push@y,r($_)=~s/0/./gr}$,=$/;say t(@y);}sub r{$_[0]=~s/(?<=(.))?(.)(?=(.))?/$1<=$2&&$3<=$2?$2:$2eq'0'?0:"-"/ger;}sub t{@q=();for(@_){for(split//){$q[$i++].=$_;}$i=0;}@q}
Success #stdin #stdout 0s 6000KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
-9---8-------..
-------------..
--------------.
--8---------3--
-----------3--.
https://ideone.com/feK1Uc
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!