fork download
copy 
  1. #!perl
  2. sub f{map{ref()?f(@$_):$_}@_}
  3.  
  4. local $, = ",";
  5. print f([10,20,30]); print "\n";
  6. print f([[10]]); print "\n";
  7. print f([["Hi"],[[10]]]); print "\n";
  8. print f([[[20],["Hi"],"Hi",20]]); print "\n";
  9. print f([[["[]"],"[]"]]); print "\n";
  10. print f([["\"Hi\""],[[10]]]); print "\n";
  11.  
Success #stdin #stdout 0s 6000KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
10,20,30
10
Hi,10
20,Hi,Hi,20
[],[]
"Hi",10
https://ideone.com/hlPjyf
http://c...content-available-to-author-only...e.com/q/80096
language:
Perl (perl 5.28.1)
created:
7 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!